XL 2010 Comment faire une insértion d'une ligne selon un critère

[elisagssrd]

Bonjour tout le monde !

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.

J'espère que je me suis faite comprendre,

Merci de votre aide

 

[piga25]

Bonjour,

Un essais avec cela :

A mettre dans un module (alt F11, insérer un module et coller le cade dans celui-ci) puis lancer la macro

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

 

[elisagssrd]

Bonjour,

Un essais avec cela :

A mettre dans un module (alt F11, insérer un module et coller le cade dans celui-ci) puis lancer la macro

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

Merci c'est super, ca marche impécable !