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 -
FB34 -
A voir également:
- Comment ajouter une ligne automatique quand une cellule est pleine
- Comment aller à la ligne dans une cellule excel - Guide
- Boite gmail pleine - Guide
- Réponse automatique thunderbird - Guide
- Partager photos en ligne - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
2 réponses
Bonjour
Code à mettre dans un module puis à lancer à partir de la feuille concernée :
Cdlmnt
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