Comment insérer une ligne vide après une condition remplie?
Charlotte
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Sur Excel, je souhaite insérer une ligne vide à la suite d'une ligne dont une colonne donnée remplit la condition suivante : "contenu différent de la ligne précédente". Ex du résultat souhaité pour la colonne en question :
Contenu1
Contenu1
Contenu1
[créer un saut de ligne]
Contenu2
Contenu2
[créer un saut de ligne]
Contenu 3
Contenu 3
Contenu 3
Contenu 3
[créer un saut de ligne]
Je suis totalement newbie en macros malheureusement...
Merci de votre aide!
Sur Excel, je souhaite insérer une ligne vide à la suite d'une ligne dont une colonne donnée remplit la condition suivante : "contenu différent de la ligne précédente". Ex du résultat souhaité pour la colonne en question :
Contenu1
Contenu1
Contenu1
[créer un saut de ligne]
Contenu2
Contenu2
[créer un saut de ligne]
Contenu 3
Contenu 3
Contenu 3
Contenu 3
[créer un saut de ligne]
Je suis totalement newbie en macros malheureusement...
Merci de votre aide!
A voir également:
- Comment insérer une ligne vide après une condition remplie?
- Insérer une vidéo dans powerpoint - Guide
- Comment supprimer une page vide sur word - Guide
- Insérer une signature sur word - Guide
- Insérer une liste déroulante excel - Guide
- Partager photos en ligne - Guide
1 réponse
Bonjour
Voilà une macro basée sur la colonne A, si les valeurs sont dans une autre colonne changer les references dans la macro :
Sub insertion()
'
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row ' derniere ligne non vide de la colonne
For n = DernLigne To 2 Step -1 ' boucle de la dernière vide à la 2eme
'si valeur differente que celle de ligne précédente on selectionne la ligne et insertion
If Range("A" & n).Value <> Range("A" & n - 1).Value Then
Rows(n & ":" & n).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next n
End Sub
Macro à copier et coller dans le worsheet de la feuille à traiter (ALT F11 pour ouvrir l'éditeur, choisir la feuille dans l'arborescence)
Cdlmnt
Voilà une macro basée sur la colonne A, si les valeurs sont dans une autre colonne changer les references dans la macro :
Sub insertion()
'
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row ' derniere ligne non vide de la colonne
For n = DernLigne To 2 Step -1 ' boucle de la dernière vide à la 2eme
'si valeur differente que celle de ligne précédente on selectionne la ligne et insertion
If Range("A" & n).Value <> Range("A" & n - 1).Value Then
Rows(n & ":" & n).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next n
End Sub
Macro à copier et coller dans le worsheet de la feuille à traiter (ALT F11 pour ouvrir l'éditeur, choisir la feuille dans l'arborescence)
Cdlmnt