[ VBA] ajouter X lignes sous chaque lieu

Homer75 · 20 Août 2009

Bonjour à tous !

Voila j'ai un petit souci que je n'arrive pas a enlever.

je souhaite ajouter des lignes sous chaques lieu de mon onglet. Les lignes à ajoutées sont différentes à chaque fois...mais elles sont notifiées dans l'onglet.

J'ai deja fait un ptit code qui me permet de creer un nombre de ligne différent mais ca ne fonctionne pas comme je le souhaite.

pouvez jeter un ptit coup d'oeil svp ???

Ci joint un exemple avec le code commencé

Homer75 · 20 Août 2009

Re : [ VBA] ajouter X lignes sous chaque lieu

UN seul mot !!!

MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

j'ai juste modifié le 65535 par un chiffre un peu grand (10000) sinon ma bete de course, elle plantait !!!

Mais c'est génial !!

Bravo et encore merci

SubEndSub · 20 Août 2009

Re : [ VBA] ajouter X lignes sous chaque lieu

Bonjour chez vous

En déclarant les variables ( surtout a , b c'est moins grave) en Long, Excel devrait ne pas planter
et en ajoutant les lignes en bleu, ca devrait être plus rapide

Code:

Sub macro()
Dim a As Long, b As Long
[COLOR="Blue"]Application.ScreenUpdating = False[/COLOR]
For a = [H65536].End(xlUp).Row To 1 Step -1
If Cells(a, "H") > 0 Then
For b = 1 To Cells(a, "H").Value Step 1
Rows(a + 1).Insert Shift:=xlDown
Next b
End If
Next a
[COLOR="Blue"]Application.ScreenUpdating = True[/COLOR]
End Sub

[ VBA] ajouter X lignes sous chaque lieu

Homer75

XLDnaute Junior

Pièces jointes

Homer75

XLDnaute Junior

SubEndSub

XLDnaute Occasionnel

Discussions similaires

[ VBA] ajouter X lignes sous chaque lieu

Homer75

XLDnaute Junior

Pièces jointes

Homer75

XLDnaute Junior

SubEndSub

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency