Macro excel insère ligne sous condition
Résolu
tchernosplif
Messages postés
714
Statut
Membre
-
tchernosplif Messages postés 714 Statut Membre -
tchernosplif Messages postés 714 Statut Membre -
Bonjour,
Sauriez vous faire une macro pour insérer des lignes à chaque changement de valeur?
J'ai par ex dans la colonne A:
A
A
B
B
B
C
D
D
et le résultat souhaité est
A
A
'insere une ligne'
B
B
B
'insere une ligne'
C
'insere une ligne'
D
D
Merci d'avance pour vos réponses lumineuses.
Sauriez vous faire une macro pour insérer des lignes à chaque changement de valeur?
J'ai par ex dans la colonne A:
A
A
B
B
B
C
D
D
et le résultat souhaité est
A
A
'insere une ligne'
B
B
B
'insere une ligne'
C
'insere une ligne'
D
D
Merci d'avance pour vos réponses lumineuses.
1 réponse
-
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-
Quant est il si on veut obtenir le meme style de resultat simultanement sur plusieurs colonnes ?
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 ;) -
-
