Discussion :

[seblafrite]

Bonjour à tous,

Je souhaiterais copier le nom choisi dans le menu déroulant d'un combobox sur un label situé sur une autre page de ma userform lorsque j'appui sur un commandbutton.
J'ai essayé ce code mais il ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton9_Click()
 If ComboBox2.Enabled = True Then
        If ComboBox2.Value = True Then
        Label45.Visible = True
        End If
    Label45.Caption = ComboBox2.AddItem
    End If
end sub

Avez vous des idées ?

Merci d'avance,

Seblafrite

[joe.levrai]

Bonjour,

un contrôle combobox n'est pas un contrôle OptionButton !

On teste s'il contient une valeur sélectionnée par sa propriété .Value ou .ListIndex si on a pas autorisé la saisie libre

et la propriété .Value est ce que tu cherches à mettre dans ton Caption ... la méthode AddItem c'est pour ajouter un élément dans la liste de ton contrôle Combobox


il y a urgence à éplucher le tuto sur les contrôles de Userform, cela fait deux sujets où tu démontres avoir foncé tête baissé dans l'écriture de code sans maîtriser les objets que tu manipules ... tu cours à la perte de temps perpétuelle à avoir sauté l'étape d'apprentissage des bases

http://silkyroad.developpez.com/VBA/ControlesUserForm/


tu verras, le temps investi dans ta montée en compétence sera largement amorti après un ou deux projets

[Ben_L]

Bonjour,

Essayer de remplacer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label45.Caption = ComboBox2.AddItem

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label45.Caption = ComboBox2.Text

De plus, comme dit ci-dessus, le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ComboBox2.Value = True Then

n'a pas de sens. Il convient d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ComboBox2.ListIndex <> -1 Then

Cordialement.

[joe.levrai]

Attention pour l'utilisation de .ListIndex

si le Style est fmStyleDropDownCombo (style par défaut), on a possibilité de créer un .value qui n'est pas existant dans la collection. On obtient donc un .Listindex = -1 alors que .Value (ou .Text) est <> ""


là, c'est au concepteur du projet de clarifier ce qu'il souhaite : ne récupérer qu'une valeur non vide existante dans la liste crée ou être tolérant et rapatrier une éventuelle valeurs saisie par l'utilisateur même si elle n'existe pas dans la collection

[seblafrite]

Bonjour à vous deux,

Tout d'abord merci pour votre aide. Je sais que je fonce un peu tête baissée dans ce projet, mais j'ai un travail à rendre la semaine prochaine pour mes études alors que je ne connaissais même pas le vba il y'a deux semaines.

En tout cas merci à vous et bonne journée