Macro combiner suppression & insertion de lignes

kris

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
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:D' & 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
 

Discussions similaires

Réponses
6
Affichages
190
Réponses
7
Affichages
456

Statistiques des forums

Discussions
312 849
Messages
2 092 797
Membres
105 534
dernier inscrit
EmilieG60