Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Finalement, j'ai réussi à coder un petit truc qui marche pas trop mal (bien qu'il puisse encore être amélioré), que je vous indique ici:
Sub simpli_small()
Do
Change = 0
i = 3
Do
k = i + 1
Do
diff = 0
For j = 7 To 2 Step -1
If Cells(i, j) <> Cells(k, j) Then
diff = diff + 1
idcol = j
End If
Next j
If diff = 1 And idcol < 6 Then
Cells(i, idcol).Value = "-"
Rows(k).Select
Selection.Delete Shift:=xlUp
Change = 1
End If
k = k + 1
Loop Until (Cells(k, 6) = "" And Cells(k, 7) = "")
i = i + 1
Loop Until (Cells(i, 6) = "" And Cells(i, 7) = "")
Loop Until Change = 0
For j = 2 To 5
k = 3
pasvide = 0
Do
If Cells(k, j) <> "-" Then
pasvide = 1
End If
k = k + 1
Loop Until (Cells(k, 6) = "" And Cells(k, 7) = "")
If pasvide = 0 Then
Columns(j).Select
Selection.Delete Shift:=xlLeft
End If
Next j
End Sub
Si l'algorithme peut être simplifié et/ou optimisé, je suis à l'écoute. :)