Comment insérer une ligne vide après une condition remplie?
Fermé
Charlotte
-
28 juil. 2014 à 13:12
via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 2024 - 28 juil. 2014 à 13:48
via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 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
- Comment supprimer une page vide sur word - Guide
- Excel cellule couleur si condition texte - Guide
- Insérer une liste déroulante excel - Guide
- Comment aller à la ligne dans une cellule excel - Guide
1 réponse
via55
Messages postés
14504
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 décembre 2024
2 738
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
