inserer de nlle lignes selon un chiffre dans une case

[tiennot]

bonjour à tous,

La 1ere colonne de mon fichier contient des chiffres.

j'aimerais avoir une macro qui permettrait d'insérer des lignes en dessous de chaque chiffres.

Le nombre de ligne à insérer est déterminé en fct du chiffre inscrit au dessus.

si une case contient le chiffre 2 il faudra insérer 2 lignes
si une case contient le chiffre x il faudra insérer x lignes

Je ne sais pas si creer un telle macro est possible.

En tout cas je remercie d'avance pour l'aide fournie.

Tiennot

 

[Yo]

Salut,
Regarde l'exemple ci-joint.
Le code est assez barbare, mais ça marche

PS: si tu as plus de 50 lignes dans ta feuille, modifies la ligne ;
redim tableau(50)
en
redim tableau(xxxxx)

 

[tiennot]

merci pour ton aide.

par contre comment faire si tous mes chiffres sont situés dans la deuxieme colonne ou une autre colonne que la première? quels sont les paramètres à utiliser.

Désolé si la réponse semble évidente, je n' y connais rien en VB et je le regrette fortement !!!


Par contre encore une fois mille merci cela me dépannne ENORMEMENT !!!!!

Tiennot

 

[Yo]

Re-Salut,
Dans le code de la macro, tu as :

While Cells(i, 1) <> ""
tableau(i) = Cells(i, 1)
i = i + 1
Wend

Par exemple, si tes données sont stockées dans la 2eme colonne, il faut mettre :

While Cells(i, 2) <> ""
tableau(i) = Cells(i, 2)
i = i + 1
Wend

Cells est utilise comme ça :
Cells(Numero de la ligne, numero de la colonne)

 

[JPH]

Une autre variante de la réponse de YO
Voilà pour le plaisir d’insérer des lignes avec mémoire des insertions dans une autre colonne dont la largeur est à zéro.
Il faut simplement saisir le nombre de lignes souhaitées c’est tout, valider c’est tout.
Des explications dans le script de la feuille « nouveau »