mettre un item d'une listbox dans un label ou un textbox par macro ??

[papapaul]

Bonsoir à tous, ca me turlupine 🙁

Donc avec le code ci-dessous, dans une msg, j'arrive à mettre l'item selectionné de ma listbox2.
est-il possible de faire la même chose pour l'item dans un label ou
une textbox??

For L = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(L) = True Then
Msg2 = "Vous avez choisi la feuille : " & ListBox2.List(L) & " "
End If
Next L

a la place de msg mettre, labelx ou textbox(x)
peut-être pas ??

merci à ceux qui sauront.

Bonne soirée les forumeurs🙄

 

[Pierrot93]

Re : mettre un item d'une listbox dans un label ou un textbox par macro ??

Bonsoir Papapaul,

je pense qu'en mettant un code comme celui ci dessous, ca devrait fonctionner, enfin si j'ai bien compris ta question :

For L = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(L) = True Then
Label1.Caption =  "Vous avez choisi la feuille : " & ListBox2.List(L) & " "
End If
Next L

bonne soirée
@+

edition : j'ai considéré que tu mettais le label sur le même USF

 

[papapaul]

Re : mettre un item d'une listbox dans un label ou un textbox par macro ??

😱 Merci Pierrot,
J'ai essayé un tas de trucs, aussi le tien, ca marche pas
ou alors je m'y prends mal.
Je mets ci-joint une partie de l'usine à gaz que je suis en train de
fabriquer depuis plusieurs jours, ca pourra vous éclairer😀.
Question d'esthétique et pratique :
faire en sorte que les items de la feuille et de la colonne choisies
se mettent automatiquement dans mon label en bas à gauche?
Est-ce vraiment réalisable ??
Comme d'hab, je reprends les rames, y a pas de vent today...😡
Amitiés à tous😉

 

[bqtr]

Re : mettre un item d'une listbox dans un label ou un textbox par macro ??

Bonsoir papapaul, Pierrot93

Ton fichier modifié, j'ai rajouté deux variables NFeuil et Ncolon pour le nom de la feuille et de la colonne. Le texte du label se modifie en conséquence après avoir répondu oui à la msgbox.

Par contre il faudra gérer le texte du label2, à l'ouverture du USF, et quand la réponse et non à la msgbox.

Bonne soirée

 

[Excel_lent]

Re : mettre un item d'une listbox dans un label ou un textbox par macro ??

Bonsoir,

A tester (avec ce que j'ai compris):

For L = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(L) = True Then
    [COLOR=DarkRed]Msg2 = "Pour la feuille : " & ListBox1.List(L) & " " & Chr(10) & ListBox2
    Label2 = Msg2[/COLOR]
  End If

Attention à la place de l'Userform qui ne doit pas être caché par la MsgBox suivante !
@+

 

[papapaul]

Re : mettre un item d'une listbox dans un label ou un textbox par macro ??

🙂 Merci beaucoup les amis,
J'avais déjà essayer la méthode d'excel-lent mais ........🙁
par contre l'idée de P.O de mettre les variables Ncol ...et N...
Ca marche §. Je garde ca précieusement.😉
Je vais maintenant pouvoir attaquer l'avant dernier étage de mon usine.
Vous l'avez certainement vu dans mes précédents posts, c'est trés
compliqué ce que je veux faire.
J'ai mis plusieurs versions qui sont très proches mais ca devient
tellement lourd que j'y vais petit à petit.
Je vais essayer d'en joindre une plus "parlante mais
va me falloir du temps pour mettre ca au propre et faire en sorte
que ce soit facile à utiliser. Par moment, je m'y retrouve plus
moi-même.
En voici une ou j'ai un problème avec le bouton en dessous le choix Option.
Ca m'enlève les couleurs des colonnes sélectionnées, je voudrais l'inverse.
Dans le code du bouton, j'ai essayer avec if not plg(I,1) ou bien
<> au lieu de = 😕 rien n'y fais. Je patauge lamentablement.

En tout cas, j'apprends et je pense progresser.

Vive vous tous, vive XLD