Il semble que les messages sur MPFE entre 22:30 et maintenant soient perdues
dans les limbes.
Je reposte donc. (Toutes mes excuses s'il s'agit d'un climat "local")
Je débute avec les userforms, et rencontre un problème avec un TabStrip à
plusieurs onglets (un pour chaque jour de la semaine) :
Private Sub UserForm_Initialize()
ListBox1.RowSource = "a1:a13"
ListBox1.ControlSource = "X12"
place bien mon choix en cellule X12
ListBox2.RowSource = "a1:a13"
ListBox2.ControlSource = "AA12"
place bien mon choix en cellule AA12
etc...
Mais ce que je souhaite obtenir, c'est
remplir la ligne 12 avec l'onglet 1 du TabStrip (Dimanche)
remplir la ligne 13 avec l'onglet 2 du TabSrip (Lundi)
Etc.
Les recherches faites sur Excelabo, et sur Google Group ne m'ont pas permis
d'avancer.
Peut-être auriez-vous la solution ?
Une question subsidiaire : 11 ListBox pour chaque onglet, soit 77en tout.
Faut-il initialiser la RowSource (identique) pour chacun, ou existe-t-il un
For Each...
du genre :
Dim Lb As ListBox
For each LB in this userform ' là, VBA devient rouge de colère...
Lb.RowSource = "A1:A13"
Next
D'avance, merci pour l'aide que vous pourriez m'apporter.,
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
Daniel
Mais ce que je souhaite obtenir, c'est remplir la ligne 12 avec l'onglet 1 du TabStrip (Dimanche) remplir la ligne 13 avec l'onglet 2 du TabSrip (Lundi) Etc.
Bonjour. Je ne suis sans doute pas bien réveillé, mais ce que je comprends, c'est que tu veux remplir la ligne 12 (ou autre) avec les choix des 11 listboxes de l'onglet sélectionné ? Pour le second point : Dim c As Control For Each c In UserForm1.Controls If Left(c.Name, 4) = "List" Then c.RowSource = "a1:a13" End If Next Cordialement. Daniel
Mais ce que je souhaite obtenir, c'est
remplir la ligne 12 avec l'onglet 1 du TabStrip (Dimanche)
remplir la ligne 13 avec l'onglet 2 du TabSrip (Lundi)
Etc.
Bonjour.
Je ne suis sans doute pas bien réveillé, mais ce que je comprends, c'est que
tu veux remplir la ligne 12 (ou autre) avec les choix des 11 listboxes de
l'onglet sélectionné ?
Pour le second point :
Dim c As Control
For Each c In UserForm1.Controls
If Left(c.Name, 4) = "List" Then
c.RowSource = "a1:a13"
End If
Next
Cordialement.
Daniel
Mais ce que je souhaite obtenir, c'est remplir la ligne 12 avec l'onglet 1 du TabStrip (Dimanche) remplir la ligne 13 avec l'onglet 2 du TabSrip (Lundi) Etc.
Bonjour. Je ne suis sans doute pas bien réveillé, mais ce que je comprends, c'est que tu veux remplir la ligne 12 (ou autre) avec les choix des 11 listboxes de l'onglet sélectionné ? Pour le second point : Dim c As Control For Each c In UserForm1.Controls If Left(c.Name, 4) = "List" Then c.RowSource = "a1:a13" End If Next Cordialement. Daniel
