liste modifiableRésolu

Question

bonjour,
j'ai fait une liste déroulante
je veux affecté le choix que j'ai fait dans ma liste à une variable, pour me reservir de cette variable après
j'ai fait un programme mais il marche pas

Private Sub CommandButton2_Click()
If ComboBox1.Text Then
nom = ComboBox1.Text
End If
End Sub

pouvez vous m'aider

Lunikmarty · Accepted Answer

Re,

Juste une petite astuce pour tes programmation à venir:

Pour obtenir la liste des propriété d'un objet sous VBA. Va dans le menu affichage >  Explorateur d'objet (raccourci: F2).
Si tu tape Combobox, tu obtient la liste des propriété de l'objet. A UTILISER SANS MODERATION

Le grand Zorro · Answer

If ComboBox1.Text<>"" ??

jrivet · Answer

Salut la question est QUAND souhaites tu mémoriser cette valeur.

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse

Lunikmarty · Answer

Dim nom as string

Private Sub CommandButton2_Click()

    If ComboBox1.Text <> "" Then nom = ComboBox1.Text

End Sub

>> D'après ta question, c'est la réponse qui me semble la plus cohérante, mais comme dit jrivet :A quel(s) condition(s) et comment  souhaites tu mémoriser cette valeur ??

apex77 · Answer

je souhaite la memoriser pour la 2eme macro

Private Sub CommandButton2_Click()
If ComboBox1.Value = True Then
nom = ComboBox1.Value


Call depart_gagnant
End If
End Sub

Lunikmarty · Answer

Apparament tu souhaite savoir si ta liste déroulante contitent une chaîne de caractére ou non. Pour cela, tu ne doit pas utilisé la propriété Value - qui d'ailleur n'existe pas pour une combobox - mais testé le contenu de la liste contenue avec le code: ComboBox1.Text <> "". (si la chaîne contenue dans la combobox est différent de "" - c'est à dire RIEN - alors ...).

apex77 · Answer

oui c'est ca


et do nc jeveux attribuer l variable nom ala valeur de la liste

Lunikmarty · Answer

!!!!!!!
Si tu veux attribué la variabe à la liste: ComboBox1.Text nom   ET NON  nom  ComboBox1.Text


                        
                        Dim nom as string

Private Sub CommandButton2_Click()

    If ComboBox1.Text <> "" Then
        ComboBox1.Text = nom
         Call depart_gagnant
    End If

End Sub

Lunikmarty · Answer

Oups, dsl. Je t'avais mal lus:

Pour attribué la valeur de la liste à ta variable, voila:

Private Sub CommandButton2_Click()

    If ComboBox1.Text <> "" Then
        nom = ComboBox1.Text
         Call depart_gagnant
    End If

End Sub

Liste modifiable

9 réponses

Votre réponse

Discussions similaires