Programme pour liste déroulante
del8679
-
Heliotte Messages postés 1561 Statut Membre -
Heliotte Messages postés 1561 Statut Membre -
Bonjour,
j'ai une fiche ou l'on doit choisir entre reponse 1 ou réponse 2
voici mon programme
Private Sub CBX_Typ_LostFocus()
If CBX_Typ <> "reponse1" And CBX_Typ <> "reponse2" Then
CBX_Typ = ""
End If
End Sub
cependant cela fonctionne si 1 et 2 sont écris dans ma feuille de calcul
mais je ne souhaite pas que ces données soient dans la feuille de calcul mais uniquement dans le programme
comment faire !!
merci
j'ai une fiche ou l'on doit choisir entre reponse 1 ou réponse 2
voici mon programme
Private Sub CBX_Typ_LostFocus()
If CBX_Typ <> "reponse1" And CBX_Typ <> "reponse2" Then
CBX_Typ = ""
End If
End Sub
cependant cela fonctionne si 1 et 2 sont écris dans ma feuille de calcul
mais je ne souhaite pas que ces données soient dans la feuille de calcul mais uniquement dans le programme
comment faire !!
merci
A voir également:
- Programme pour liste déroulante
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Programme demarrage windows - Guide
- Liste code ascii - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
8 réponses
Bonjour del8679,
Ce code va ajouter "réponse1" et "réponse2" à chaque changement de la ComboBox.
Ce qu'il faut faire:
Initialiser la ComboBox avec la procédure Activate ou Initialize du formulaire .. A ce moment là, la ComboBox s'initialise en ajoutant les deux items et pas plus, car cette procédure n'est plus appelée par la suite.
La procédure :
Cordialement.
Private Sub CBX_Typ_Change()
CBX_Typ.AddItem "réponse1"
CBX_Typ.AddItem "réponse2"
End Sub
Ce code va ajouter "réponse1" et "réponse2" à chaque changement de la ComboBox.
Ce qu'il faut faire:
Initialiser la ComboBox avec la procédure Activate ou Initialize du formulaire .. A ce moment là, la ComboBox s'initialise en ajoutant les deux items et pas plus, car cette procédure n'est plus appelée par la suite.
La procédure :
Private Sub CBX_Typ_Change()
code
End Sub sert à mettre un code qui exécute des actions en fonction du choix de l'item de la ComboBox.
Cordialement.
j'ai essayé cela et ça ne fonctionne toujours pas
Private Sub CBX_Typ_Activate()
If CBX_Typ <> "Annuité constante" And CBX_Typ <> "Amortissement constant" Then
CBX_Typ = ""
End If
With CBX_Typ
.AddItem "Annuité constante"
.AddItem "Amortissement constant"
End With
End Sub
Private Sub CBX_Typ_Activate()
If CBX_Typ <> "Annuité constante" And CBX_Typ <> "Amortissement constant" Then
CBX_Typ = ""
End If
With CBX_Typ
.AddItem "Annuité constante"
.AddItem "Amortissement constant"
End With
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
faut-il modifier quelque chose dans les propriétés de la comobox ?
de plus l'utilisateur peut écrire autre chose que les élements de la liste déroulante
j'ai tout essayé !
merci d'avance
de plus l'utilisateur peut écrire autre chose que les élements de la liste déroulante
j'ai tout essayé !
merci d'avance
Bonsoir del8679,
1° de plus l'utilisateur peut écrire autre chose que les éléments de la liste déroulante .. il faut mettre la propriété style à 2 - fmStyleDropDownList.
2° faut-il modifier quelque chose dans les propriétés de la comobox ? .. Il faudrait tout le code de la feuille "UserForm" pour voir ce qui cloche !
Bonne soirée.
1° de plus l'utilisateur peut écrire autre chose que les éléments de la liste déroulante .. il faut mettre la propriété style à 2 - fmStyleDropDownList.
2° faut-il modifier quelque chose dans les propriétés de la comobox ? .. Il faudrait tout le code de la feuille "UserForm" pour voir ce qui cloche !
Bonne soirée.
