Ajout de lignes vides

[clood]

Bonjour tout le monde

J'aimerai une nouvelle fois vous demander un petit coup de main sur un fichier excel.

J'ai un tableau avec une colonne de numéros et des données sur les autres.
Imagons que la colonne avec les numéros s'appelle A et les données en B.

A B

101 texte
102 texte
103 texte
104 texte
201 texte
202 texte
203 texte
204 texte
205 texte
206 texte
207 texte
301 texte

J'aimerai ajouter des lignes vides sur cette colonne A pour compléter les chiffres par série de 20. C'est à dire que pour la série qui commence à 101, la faire continuer jusque 120, la série qui commence à 201, la faire continuer jusque 220, pour la 301 jusque 320 et ainsi de suite, tout en gardant les donnes des autres colonnes..

A B

101 texte
102 texte
103 texte
104 texte
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
201 texte
202 texte
203 texte
204 texte
205 texte
206 texte
207 texte
208
209
210
211
212
213
214
215
216
217
218
219
220
301 texte


Je vous met un petit exemple en xls.
Merci a ceux ou celles qui auront un petit peu de temps pour répondre.

 

[GIBI]

Re : Ajout de lignes vides

Bonjour,

si j'ai compris voici une macro qui ajoute des ligne en rupture de centaine si < la centaine +20

Sub CreerLigne()
 For L = Range("A65536").End(xlUp).Row - 1 To 2 Step -1
     If  Int(Cells(L, 1) / 100) <> Int(Cells(L + 1, 1) / 100) Then
         n = Int(Cells(L, 1) / 100) * 100 + 20 - Cells(L, 1)
         If n > 0 Then
            Rows(L + 1 & ":" & L + n).Insert Shift:=xlDown
            For i = L + 1 To L + n
               Cells(i, 1) = Cells(i - 1, 1) + 1
            Next
         End If
     End If

 Next
    
End Sub

GIBI

 

[clood]

Re : Ajout de lignes vides

Merci beaucoup GIBI pour ton aide. Ca fonctionne très bien et c'est exactement ce q'il me fallait.