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
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
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
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