Comment insérer une ligne vide après une condition remplie?
Fermé
Charlotte
-
28 juil. 2014 à 13:12
via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 - 28 juil. 2014 à 13:48
via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 - 28 juil. 2014 à 13:48
A voir également:
- Comment insérer une ligne vide après une condition remplie?
- Insérer une vidéo dans powerpoint - Guide
- Insérer signature word - Guide
- Insérer une liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment supprimer une page vide sur word - Guide
1 réponse
via55
Messages postés
14406
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
28 avril 2024
2 703
28 juil. 2014 à 13:48
28 juil. 2014 à 13:48
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
