Effacer contenu combobox [Résolu]

Messages postés
104
Date d'inscription
samedi 12 mars 2005
Dernière intervention
30 avril 2007
- - Dernière réponse : aaliyan
Messages postés
104
Date d'inscription
samedi 12 mars 2005
Dernière intervention
30 avril 2007
- 17 avril 2007 à 09:52
Bonjour
Je voudrais effacer le contenu d'un combobox si je change la valeur d'une première combobox :
Domaine et sdomaine sont des combobox
Code :

Private Sub Document_Open()
      Call ThisDocument.domaine.AddItem("")
      Call ThisDocument.domaine.AddItem("?")
      Call ThisDocument.domaine.AddItem("??")
      Call ThisDocument.domaine.AddItem("???")
      Call ThisDocument.domaine.AddItem("????")
      Call ThisDocument.domaine.AddItem("?????")
End Sub


Private Sub domaine_Change()
      If domaine.Value = "?" Then
        'Effacement contenu sdomaine
        Call ThisDocument.sdomaine.AddItem("")
        Call ThisDocument.sdomaine.AddItem("?")


      ElseIf domaine.Value = "??" Then
'Effacement contenu sdomaine
        Call ThisDocument.sdomaine.AddItem("")
        Call ThisDocument.sdomaine.AddItem("?")
        Call ThisDocument.sdomaine.AddItem("??")
       
       
      ElseIf domaine.Value = "???" Then
'Effacement contenu sdomaine
        Call ThisDocument.sdomaine.AddItem("")
        Call ThisDocument.sdomaine.AddItem("?")
       
       
      ElseIf domaine.Value = "????" Then
        Call ThisDocument.sdomaine.AddItem("")
        Call ThisDocument.sdomaine.AddItem("?")
        Call ThisDocument.sdomaine.AddItem("??")
        Call ThisDocument.sdomaine.AddItem("???")
        Call ThisDocument.sdomaine.AddItem("????")
        Call ThisDocument.sdomaine.AddItem("?????")
        Call ThisDocument.sdomaine.AddItem("??????")
        Call ThisDocument.sdomaine.AddItem("????????")
        Call ThisDocument.sdomaine.AddItem("?????????")
        Call ThisDocument.sdomaine.AddItem("AUTRES")
       
       
      ElseIf domaine.Value = "?????" Then
        Call ThisDocument.sdomaine.AddItem("")
        Call ThisDocument.sdomaine.AddItem("?")
       
       
      ElseIf domaine.Value = "" Then
        Call ThisDocument.sdomaine.AddItem("")
       
      End If
End Sub
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
47
3
Merci
Salut,
Pour effacer le contenu d'un combo.
Call ThisDocument.sdomaine.clear devrait fonctionner
@+: Ju£i?n
Pensez: Réponse acceptée

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 91 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Dernière intervention
4 mars 2013
108
0
Merci
il s'agit de la méthode clear de ta combo.

De plus, au lieu de faire autant de test if, utilise plutôt un select case qui rendra ton code plus lisible.
Commenter la réponse de cs_DARKSIDIOUS
Messages postés
104
Date d'inscription
samedi 12 mars 2005
Dernière intervention
30 avril 2007
0
Merci
Merci
Commenter la réponse de aaliyan

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.