Ajout d'une ligne si cellule non vide à partir d'une colonne "X"

Résolu
evolve Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
 FB34 -
Bonjour, je cherche le code VBA/Macro Excel afin d'exécuter cette tâche : ajout d'une ligne à chaque fois qu'une cellule est détecté "non vide" à partir des données d'une colonne dans mon cas la "G". J'aimerais que le code s'arrête dès qu'il n'y a plus de cellules dite "non vide" sous la colonne "G". Est-ce assez clair pour vous ? Je remercie grandement la ou les personnes qui vont m'aider sur le sujet !

2 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 743
 
Bonjour

Code à mettre dans un module puis à lancer à partir de la feuille concernée :
Sub ajout_lignes()
Dim Ligne As Long
' derniere ligne remplie de la colonne G
Ligne = ActiveSheet.Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row
' boucle depuis la dernière ligne remplie jusqu'à la 1
For n = Ligne To 1 Step -1  ' si necessaire de s'arrêter avant la ligne 1 changer To 1
' si cellule en G vide
If Range("G" & n).Value <> "" Then
' alors insertion à la ligne suivante
Rows(n + 1 & ":" & n + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub


Cdlmnt
0