Bonsoir tout le monde,
Depuis un UserForm je souhaite remplir une feuille excel, j'ai donc créer un bouton à cet effet mais mon soucis est que j'ai 30 feuilles à remplir, j'ai trouver une boucle pour les condition mais je ne sais pas comment changer de feuille avec une autre boucle
Bien sur les feuilles à remplir sont toutes identiques
La macro n'est pas terminer car j'ai trois fois plus de valeurs à imputer sur la feuille alors je pense que si je fais du copier coller 30 fois je vais obtenir un beau dépassement de capacité, alors comment faire pour passer de la feuille 2 à la feuille 3 etc....
Merci pour votre aide car le problème dépasse mes connaissances
cordialement Didier
Depuis un UserForm je souhaite remplir une feuille excel, j'ai donc créer un bouton à cet effet mais mon soucis est que j'ai 30 feuilles à remplir, j'ai trouver une boucle pour les condition mais je ne sais pas comment changer de feuille avec une autre boucle
Bien sur les feuilles à remplir sont toutes identiques
Code:
Private Sub CommandButton9_Click()
For i = 6 To 36
If Range("D" & i) = "" And _
Range("D" & i - 1) <> "" _
Or Application.WorksheetFunction.Sum(Range("G" & i - 1 & ":Zz" & i - 1)) = 0 _
And Application.WorksheetFunction.Sum(Range("G" & i & ":Zz" & i)) > 0 Then
'mon problème est là, je commence à la feuil2
With Sheets("Feuil2")
.Range("A11").Value = ListBox10.Value
.Range("A12").Value = ListBox27.Value
.Range("A13").Value = ListBox28.Value
.Range("A14").Value = ListBox29.Value
.Range("A15").Value = ListBox30.Value
.Range("A16").Value = ListBox31.Value
.Range("A17").Value = ListBox32.Value
.Range("A18").Value = ListBox33.Value
.Range("A19").Value = ListBox34.Value
.Range("A3").Value = ListBox11.Value
.Range("A4").Value = ListBox12.Value
.Range("A5").Value = ListBox13.Value
.Range("A6").Value = ListBox14.Value
.Range("A7").Value = ListBox15.Value
.Range("A8").Value = ListBox16.Value
.Range("A21").Value = ListBox17.Value
.Range("A22").Value = ListBox18.Value
.Range("A23").Value = ListBox19.Value
.Range("A24").Value = ListBox20.Value
.Range("A25").Value = ListBox21.Value
.Range("A26").Value = ListBox22.Value
.Range("A27").Value = ListBox23.Value
.Range("A28").Value = ListBox24.Value
.Range("A29").Value = ListBox25.Value
.Range("A30").Value = ListBox26.Value
End With
End Sub
La macro n'est pas terminer car j'ai trois fois plus de valeurs à imputer sur la feuille alors je pense que si je fais du copier coller 30 fois je vais obtenir un beau dépassement de capacité, alors comment faire pour passer de la feuille 2 à la feuille 3 etc....
Merci pour votre aide car le problème dépasse mes connaissances
cordialement Didier