Macro excel insère ligne sous condition
Résolu/Fermé
tchernosplif
Messages postés
600
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
21 juin 2015
-
Modifié par tchernosplif le 3/12/2010 à 13:51
tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 - 1 juil. 2011 à 14:03
tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 - 1 juil. 2011 à 14:03
A voir également:
- Excel insérer une ligne à chaque changement de valeur
- Aller à la ligne excel - Guide
- Insérer liste déroulante excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Site de vente en ligne particulier - Guide
- Insérer signature word - Guide
1 réponse
tchernosplif
Messages postés
600
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
21 juin 2015
244
3 déc. 2010 à 14:03
3 déc. 2010 à 14:03
J'ai trouvé merci
Sub insertA()
Dim cellule As Variant
'se positionne au bas de la colonne et remonte
For i = Range("a65536").End(xlUp).Row To 1 Step -1
'selectionne la ligne lors du changement de valeur et ajoute une ligne en dessous
If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then Rows(i + 1).EntireRow.Insert Shift:=x1Down
Next i
End Sub
Sub insertA()
Dim cellule As Variant
'se positionne au bas de la colonne et remonte
For i = Range("a65536").End(xlUp).Row To 1 Step -1
'selectionne la ligne lors du changement de valeur et ajoute une ligne en dessous
If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then Rows(i + 1).EntireRow.Insert Shift:=x1Down
Next i
End Sub
Modifié par Lomic6 le 1/07/2011 à 07:16
Par exemple dans colonne A on a:
A
A
A
B
B
C
D
D
Dans colonne B on a:
a
a
a
a
a
a
b
c
et je veux faire une insertion de une seule ligne pour obtenir...
A a
A a
A a
"inserer ligne"
B a
B a
"inserer ligne"
C a
"inserer ligne"
D b
"inserer ligne"
D c
"inserer ligne"
Merci d'avance pour vos bons conseils ;)
1 juil. 2011 à 14:03
Par exemple colonne C:
Aa
Aa
Aa
Ba
Ba
Ca
Db
Dc