MACRO Excel Insérer ligne entre deux cellules

Résolu
pierrelouis26 Messages postés 6 Statut Membre -  
 Patoche54 -
Bonjour,
Je souhaiterais trouver la macro qui me permette de, sur une plage sélectionnée (ex: cellules A2 à A30), contrôler le contenu des cellules afin d'insérer une ligne entre deux cellules différentes.
Exemple : plage A2 à A30, si cellule A3 = A2, passer à la cellule suivante
Si A4 = A3, insérer une ligne entre A3 et A4
Ainsi de suite
Merci!
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
test les cellules de A2 à Axx 
Sub TesterLigne() 
Dim Lig As Long 
    For Lig = Range("A65536").End(xlUp).Row To 3 Step -1 
        If Cells(Lig, 1) = Cells(Lig - 1, 1) Then 
            Rows(Lig).Insert Shift:=xlDown 
            Lig = Lig - 1 
             
        End If 
    Next Lig 
End Sub

A+
Toute la connaissance du monde ne peu tenir dans une seul tête (moi)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.
7
pierrelouis26 Messages postés 6 Statut Membre
 
Un grand merci pour cette réponse rapide et efficace! Bonne journée
0
Patoche54
 
Pourquoi ca ne marche pas chez moi ?
0
Réponse 2 / 2
pierrelouis26 Messages postés 6 Statut Membre
 
..
0