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

elisagssrd

XLDnaute Junior
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
 

Pièces jointes

  • Exemple N° commande.xlsx
    24.3 KB · Affichages: 31

piga25

XLDnaute Barbatruc
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

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
 

elisagssrd

XLDnaute Junior
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

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

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

Discussions similaires