Macro combiner suppression & insertion de lignes

[kris]

Bonjour,

Ma demande va peut-être vous paraître un peu farfelue mais c'est pour garder la mise en page de mes feuilles Excel.

Je souhaite créer une macro qui à partir de la ligne 10 test les cellules de la colonne D et si la valeur est égale à un espace alors la ligne est supprimer et une nouvelle ligne vierge est ajoutée 10 lignes après.

Dans les archives, j'ai trouvé la macro qui test la colonne et qui supprime la ligne, j'ai également trouvé la macro qui insere une ligne mais ce qui me manque c'est l'enchaînement des deux macros et surtout la commande qui insére la ligne 10 lignes après la ligne supprimée.

Merci beaucoup pour votre aide,

Kris

 

[Robert]

Bonsoir Kris, bonsoir le forum,

Je te propose cette macro qui devrait convenir :

Sub Macro1()
Dim Cel As Range 'déclare la variable Cel
Dim li As Long 'déclare la variable li

'boucle sur toutes les cellules éditées Cel de la colonne D
For Each Cel In Range('D10' & Range('D65536').End(xlUp).Row)
If Cel.Value = ' ' Then 'condition : si la valeur de la cellule = un espace
li = Cel.Row 'définit la variable li
Cel.EntireRow.Delete 'supprime la ligne de la cellule Cel
Cells(li + 10, 1).EntireRow.Insert Shift:=xlDown 'rajoute une ligne vierge 10 ligne en dessous de Cel
End If 'fin de la condition
Next Cel 'prochaine cellule éditée Cel de la colonne D
End Sub

 

[kris]

Je viens de tester la macro elle fonctionne parfaitement.

Merci beaucoup pour ton aide,

Kris