Effacer contenu combobox [Résolu]

aaliyan 104 Messages postés samedi 12 mars 2005Date d'inscription 30 avril 2007 Dernière intervention - 17 avril 2007 à 09:22 - Dernière réponse : aaliyan 104 Messages postés samedi 12 mars 2005Date d'inscription 30 avril 2007 Dernière intervention
- 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
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 17 avril 2007 à 09:27
3
Merci
Salut,
Pour effacer le contenu d'un combo.
Call ThisDocument.sdomaine.clear devrait fonctionner
@+: Ju£i?n
Pensez: Réponse acceptée

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de jrivet
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 17 avril 2007 à 09:30
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
aaliyan 104 Messages postés samedi 12 mars 2005Date d'inscription 30 avril 2007 Dernière intervention - 17 avril 2007 à 09:52
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.