insertion automatique

[pcmac]

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

 

[Rai]

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

 

[JC de Lorient]

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

 

[Rai]

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

 

[JC de Lorient]

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