Comme vous avez dû le voir dans le tire, je voudrais savoir comment fire une insértion d'une ligne selon un critère.
Selon mon exemple en pièce jointe, je voudrais insérer une ligne sous chaque numéros de commande différent du précédent.
A mettre dans un module (alt F11, insérer un module et coller le cade dans celui-ci) puis lancer la macro
VB:
Sub InsLigne()
Dim L As Integer, Ligne As Integer
L = 1
Do While Cells(L, "A") <> ""
If Cells(L, "A").Value <> Cells(L + 1, "A").Value Then
Ligne = Cells(L + 1, "A").Row
Rows(Ligne).Insert
L = L + 1
End If
L = L + 1
Loop
End Sub
A mettre dans un module (alt F11, insérer un module et coller le cade dans celui-ci) puis lancer la macro
VB:
Sub InsLigne()
Dim L As Integer, Ligne As Integer
L = 1
Do While Cells(L, "A") <> ""
If Cells(L, "A").Value <> Cells(L + 1, "A").Value Then
Ligne = Cells(L + 1, "A").Row
Rows(Ligne).Insert
L = L + 1
End If
L = L + 1
Loop
End Sub