Sujet Précédent Sujet Suivant

MACRO Excel Insérer ligne entre deux cellules

Résolu/Fermé
pierrelouis26 Messages postés 6 Date d'inscription samedi 5 mars 2011 Statut Membre Dernière intervention 20 juillet 2011 - 5 mars 2011 à 17:52
 Patoche54 - 16 mai 2013 à 08:47
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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 5/03/2011 à 18:48
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 Date d'inscription samedi 5 mars 2011 Statut Membre Dernière intervention 20 juillet 2011
6 mars 2011 à 06:39
Un grand merci pour cette réponse rapide et efficace! Bonne journée
0
Patoche54
16 mai 2013 à 08:47
Pourquoi ca ne marche pas chez moi ?
0
Réponse 2 / 2
pierrelouis26 Messages postés 6 Date d'inscription samedi 5 mars 2011 Statut Membre Dernière intervention 20 juillet 2011
6 mars 2011 à 10:51
..
0