Sub test()
Dim nbligne&, pas&
nbligne = 2
pas = 8
With ActiveSheet.ListObjects("tableau1")
For i = pas To .ListRows.Count Step pas
.ListRows.Add i + 1: .ListRows.Add i + 1
i = i + nbligne
Next
End With
End Sub
Bonjour paticktoulon,
Je voulais pouvoir définir le nombre de lignes vides à insérer et le nombre de lignes à sauter dans des cellules de la feuille mais ta solution fonctionne.
Au pie, j'irai modifier dans le code ces valeurs à chaque fois que ca sera nécessaire.
Merci beaucoup
c'est si difficile de faire
nbligne = range(XY)'la cellule que tuveux
pas = 8=range(XY)'la cellule que tu veux
voir de mettre ce code dans l'event change avec la condition sur ces deux cellules ?????