insertion automatique

bonsoir a tous

question qui me tarabuste
je cherche manip pour mettre en page un tableau genre 5000lignes et inserer automatiquement une ligne vierge toute les 5 lignes.
Quelqu'un a t'il une soluce....?

merci par avance

Bonjour,

Oui, c'est possible.

En passant par VBA ça donnerait ça :

Sub insere()
For i = 4996 To 6 Step -5
Rows(i).Insert
Next i
End Sub


reste plus qu'à exécuter la macro.

Bonne journée

Rai

Bonjour Rai, le forum

juste une question
j'essaye d'améliorer mes connaissances en VBA
Pourquoi dans cet exemple tu ne démarres pas de 1 vers 5000 ?
Y'a surement une raison mais je ne vois pas laquelle !!

Merci bcp
JC

Salut,

C'est le même procédé qu'on emploie si on veut gérer des suppressions de lignes : c'est pour ne pas s'embeter avec les décalages et donc simplifier le code

Je m'explique :
au départ j'ai les lignes 1 2 3 4 5 6 7 8 9 10
je veux insérer une ligne après la 5 et après la 10.
Si je démarre en 1
Ca donne 1 2 3 4 5 II 6 7 8 9 10 donc les lignes initialement 6 7 8 9 10 se décalent d'une ligne et deviennent 7 8 9 10 11. Mes insertions affectent les lignes + bas ... pas encore traitées et tout se décale.

Alors que si je démarre du bas (ligne 10). Mes insertions affectent les lignes + bas (donc déjà traitées) et par conséquent je n'ai pas à m'en préoccuper.

Mmmmh, j'sais pas si c'est très lair ce que je raconte.
T'as qu'à faire un test.
Remplis la colonne A d'une feuille (les 20 premières lignes par ex) avec des données au hasard, puis aplique la macro suivante :
Sub test()
For i=1 to 20 step 5
Rows(i).insert
Next i
End Sub

Tu verras le résultat des décalages.


Bonne suite

Rai

re tout le monde !

merci Rai
g vu ce que ça fait et là je commence a piger !

un jour aussi je serai "costaud" en VBA !!!!

merci et bonne journée
JC