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