remplir tableau en 1 fois

Le
magic-dd
bonsoir

j'ai un classeur avec 10 feuilles, et je souhaiterai par
l'intermediaire remplir toutes les feuilles

voici mon code
Sub test()

Set mes_feuilles = Sheets(Array("Feuil1", "Feuil2","Feuil3")) ' etc
jusqu'a 10
For Each vfeuille In mes_feuilles
vfeuille.Range("A65536").End(xlUp).Offset(1, 0).Value =
UserForm1.TextBox1.Value
vfeuille.Range("a65536").End(xlUp).Offset(0, 1).Value =
UserForm1.TextBox2.Value
vfeuille.Range("a65536").End(xlUp).Offset(0, 2).Value =
UserForm1.TextBox3.Value

Next

End Sub

je souhaite ajouter a mon userform des OptionButtons correspondants aux
feuilles

ex feuil 1 OptB 1

quand cet option button renvoi la valeur false alorsles donnees de mon
userform ne seront misent que sur les autres feuilles dont
l'OptionButton est a true

en esperant avoir t clair
merci
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Patrick Penet
Le #3862201
Dim f As Integer
For f=1 to mes_feuilles.Count
If OptB1.Value=True then
mes_feuilles(f).Range("A65536").End(xlUp).Offset(1, 0).Value = _
UserForm1.TextBox1.Value
End If
If OptB2.Value=True then
... etc

PP

"magic-dd" bonsoir

j'ai un classeur avec 10 feuilles, et je souhaiterai par
l'intermediaire remplir toutes les feuilles

voici mon code
Sub test()

Set mes_feuilles = Sheets(Array("Feuil1", "Feuil2","Feuil3")) ' etc
jusqu'a 10
For Each vfeuille In mes_feuilles
vfeuille.Range("A65536").End(xlUp).Offset(1, 0).Value UserForm1.TextBox1.Value
vfeuille.Range("a65536").End(xlUp).Offset(0, 1).Value UserForm1.TextBox2.Value
vfeuille.Range("a65536").End(xlUp).Offset(0, 2).Value UserForm1.TextBox3.Value

Next

End Sub

je souhaite ajouter a mon userform des OptionButtons correspondants aux
feuilles

ex feuil 1 OptB 1

quand cet option button renvoi la valeur false alorsles donnees de mon
userform ne seront misent que sur les autres feuilles dont
l'OptionButton est a true

en esperant avoir ét clair
merci
magic-dd
Le #3862161
merci pour la reponse

voila le code ainsi créé

Sub test2()
If UserForm1.CBox1 = True Then

Feuil1.Range("A65536").End(xlUp).Offset(1, 0).Value =
UserForm1.TextBox1.Value
Feuil1.Range("a65536").End(xlUp).Offset(0, 1).Value =
UserForm1.TextBox2.Value
Feuil1.Range("a65536").End(xlUp).Offset(0, 2).Value =
UserForm1.TextBox3.Value

End If

If UserForm1.CBox2 = True Then

Feuil2.Range("A65536").End(xlUp).Offset(1, 0).Value =
UserForm1.TextBox1.Value
Feuil2.Range("a65536").End(xlUp).Offset(0, 1).Value =
UserForm1.TextBox2.Value
Feuil2.Range("a65536").End(xlUp).Offset(0, 2).Value =
UserForm1.TextBox3.Value

End If

If UserForm1.CBox3 = True Then

Feuil3.Range("A65536").End(xlUp).Offset(1, 0).Value =
UserForm1.TextBox1.Value
Feuil3.Range("a65536").End(xlUp).Offset(0, 1).Value =
UserForm1.TextBox2.Value
Feuil3.Range("a65536").End(xlUp).Offset(0, 2).Value =
UserForm1.TextBox3.Value
End If

End Sub


je laisse le fichier exemple pour savoir s'il est possible de
simplifier


http://cjoint.com/?jEkVGonWPg

merci
Poster une réponse
Anonyme