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 =3D Sheets(Array("Feuil1", "Feuil2","Feuil3")) ' etc
jusqu'a 10
For Each vfeuille In mes_feuilles
vfeuille.Range("A65536").End(xlUp).Offset(1, 0).Value =3D
UserForm1.TextBox1.Value
vfeuille.Range("a65536").End(xlUp).Offset(0, 1).Value =3D
UserForm1.TextBox2.Value
vfeuille.Range("a65536").End(xlUp).Offset(0, 2).Value =3D
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick Penet
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" a écrit dans le message de news: 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
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" <magicconcours@gmail.com> a écrit dans le message de news: 1159559410.865067.130660@h48g2000cwc.googlegroups.com...
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
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" a écrit dans le message de news: 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
