Combo box

[meldja]

Bonjour,
Je suis désolé car je suis sûr que le sujet a déjà été traité, mais je n'arrive pas à trouver en utilisant l'outil de recherche. Si quelqu'un a un lien a me filer ça serait sympa.
Voila ce que j'aimerais savoir :
J'ai une liste déroulante (combo box) contenant 4 noms :
Ali
Momo
Farid
Jamel
Je voudrais savoir comment renvoyer en cellule A1 un résultat en fonction du nom choisi. Exemple : si je choisis Ali, ça me renvoie BABA, si je choisis Farid ça le renvoie BABOU etc..
Voici le code que j'ai trouvé (mais qui n'est valable que pour un seul choix)

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Ali" Then
Range("a1").Value = "Baba"
Else
Range("a1").Value = ""

End If
End Sub

Merci d'avance

 

[meldja]

Re : Combo box

Bonjour,
Plus la peine de répondre, je pense avoir trouvé en enlevant le "Else" et en le remplaçant par "If ...Then" :

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Ali" Then
Range("a1").Value = "Baba"
End If
If ComboBox1.Value = "Momo" Then
Range("a1").Value = "Lamoroso"
End If
If ComboBox1.Value = "Farid" Then
Range("a1").Value = "Difran"
End If
If ComboBox1.Value = "Jamel" Then
Range("a1").Value = "Babou"
End If
End Sub

En fait, j'essaie de découvrir le VBA en faisant des petits tests. Vu que je n'y connais absolument rien, ce n'est pas évident.

 

[fanfan38]

Re : Combo box

Bonjour
Y a plus simple:
Select case ComboBox1.Value
case="ALI"
Range("a1").Value = "Baba"
case = "Momo"
Range("a1").Value = "Lamoroso"
case = "Farid"
Range("a1").Value = "Difran"
case = "Jamel"
Range("a1").Value = "Babou"
End case

A+ François

 

[meldja]

Re : Combo box

Salut et merci pour ta réponse.
Comme je l'ai dit, je n'y connais absolument rien.
J'ai voulu tester ta proposition en recopiant le code et j'ai un message d'erreur de compilation.
Apparemment, c'est le "End case" qui pose problème.
Voici le code que j'ai :
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Is = "ALI"
Range("a1").Value = "Baba"
Case Is = "Momo"
Range("a1").Value = "Lamoroso"
Case Is = "Farid"
Range("a1").Value = "Difran"
Case Is = "Jamel"
Range("a1").Value = "Babou"
End case
End Sub

Merci d'avance si tu as une explication

 

[fanfan38]

Re : Combo box

Excuse moi c'est end select...

A+ François

 

[meldja]

Re : Combo box

Ok, c'est mieux, là ça marche.
Merci, bonne journée