Vider combobox selon d'un autre ComboBox

[Ilino]

Bonsoir Form
je souhaite vider automatiquement un comobox selon un autre combobox, j'ai utilisé ce code

Private Sub ComboBox8_Change()
If UserForm1.ComboBox7.Value = "A S R" Then UserForm1.ComboBox8.Clear
End Sub

Vider automatiquement le ComboBox8 si le ComboBox7 contient le texte suivant : "A S R"
mais il n'a pas fonctionné
GRAZIE & B W

 

[sourcier08]

Re : Vider combobox selon d'un autre ComboBox

Salut Ilino, le forum.

Je n'ai jamais utilisé la fonction "Clear" sur un Combobox mais, tu changes la valeur par rien, ça va aussi bien.
De plus, il aurait mieux valu le faire sur Combobox7, vu que c'est de sa valeur changée que va dépendre le résultat.

Si j'ai donc bien compris ta requête, ceci devrait aller :

Private Sub ComboBox7_Change()
If UserForm1.ComboBox7.Value = "A S R" Then UserForm1.ComboBox8.Value = ""
End Sub

Et si tout ça se produit à partir du même UserForm, tu peux ne pas le préciser.

Private Sub ComboBox7_Change()
If ComboBox7.Value = "A S R" Then ComboBox8.Value = ""
End Sub

Après, tu as aussi la possibilité de jouer sur le rowsource plutôt que de jouer sur la valeur de celui-ci.
Ceci peut s'avérer très intéressant dans un cas où l'on désire obtenir une liste précise d'articles en fonction d'un choix multiple dans une autre ComboBox.

exemple : la liste du ComboBox7 = pain ou fromage ou céréale
Tu vas donc créer un liste de divers pains, une liste de divers fromage et une liste de divers céréales.
Ces listes seront donc les "rowsource" possibles pour ton combobox8.

Voici un fichier exemple. Dans celui-ci ,j'ai utilisé des listes de noms pour le "rowsource".

J'espère t'avoir suffisamment aidé.

 

[Bebere]

Re : Vider combobox selon d'un autre ComboBox

bonjour Sourcier,Illino
rmq:avec rowsource tu perds des possibilités
clear vide le contenu de l'objet,removeitem supprime une ligne
supprime la sélection combobox8 si combobox7="A S R"

Private Sub ComboBox8_Change()
If Me.ComboBox7.Value = "A S R" Then Me.ComboBox8.RemoveItem Me.ComboBox8.ListIndex
End Sub

 

[Ilino]

Re : Vider combobox selon d'un autre ComboBox

Bonjour Forum, sourcier,Bebere
merci pour les réponse.
@ Sourcier: ton code fonctionne perfaitement , grazie
@ Bebere : ça n'a pas marché , j'ai une erreur : Erreur non répertoriéé???
A+

 

[laetitia90]

Re : Vider combobox selon d'un autre ComboBox

bonjour tous 🙂🙂🙂

dans ton cas le plus simple si dans meme user ..... on peut quand meme changer apres combobox 8

Private Sub ComboBox7_Change()
  If ComboBox7 = "A S R" Then ComboBox8 = ""
End Sub
Private Sub ComboBox8_Change()
 If ComboBox7 = "A S R" Then ComboBox8 = ""
End Sub