XL 2019 Propriété d'un combobox

[Gysmo5500]

Bonjour, j'ai un combobox dans une feuille qui contient une liste de client. Quand je sélectionne le nom dans le combobox , toute les infos du client s'affiche....je cherche un moyen de valider le choix du combobox sans être obliger de cliquer dans une cellule, est-ce qu'il y a une option dans les propriétés d'un combobox qui fait celà ?

Merci et bonne année à tous

 

[sylvanu]

Bonjour Gysmo,
Tout dépend comment est appelée votre Combobox, si c'est pas clic sur cellule c'est simple puisqu'on connait l'origine. Si c'est par un bouton alors il faut faire du code pour la trouver.
Il nous faudrait un fichier test pour apporter une réponse plus circonstanciée.

 

[Gysmo5500]

Merci pour votre intérêt de m'aider, voici le code que j'ai placé dans la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wb2 As Workbook
Dim wb1 As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set wb1 = Workbooks("test.xlsm")
Set wb2 = Workbooks("donnee.xlsm") 'Classeur de données
Set ws1 = wb1.Sheets("booking")
Set ws2 = wb2.Sheets("clients") ' feuille de donnée


client = Sheets("booking").ComboBox1.Value
If client <> "" Then


wd1.Activate
For n = 5 To ws2.Range("A65536").End(xlUp).Row
If ws2.Range("a" & n) = client Then
Sheets("booking").ComboBox1.Value = ws2.Range("a" & n)
ws1.Range("e8") = ws2.Range("l" & n)
ws1.Range("e9") = ws2.Range("j" & n)
ws1.Range("e10") = ws2.Range("g" & n)
ws1.Range("e11") = ws2.Range("h" & n)
ws1.Range("e12") = ws2.Range("c" & n)
ws1.Range("l12") = ws2.Range("f" & n)
ws1.Range("q10") = ws2.Range("i" & n)
ws1.Range("q11") = ws2.Range("d" & n)
ws1.Range("q12") = ws2.Range("e" & n)
ws1.Range("s6") = ws2.Range("b" & n)
ws1.Range("s8") = ws2.Range("t" & n)

End If
Next n
End Sub

 

[sylvanu]

Il nous faudrait un fichier test pour apporter une réponse plus circonstanciée.

Un fichier permet de comprendre les tenants et aboutissants d'une macro. C'est plus simple.

 

[Staple1600]

Bonjour le fil, Gysmo, sylvanu

=>Gysmo
Je plussoie à la suggestion de sylvanu (un fichier exemple)
Parce en ne lisant que le message#1, je propose ceci

Private Sub ComboBox1_DropButtonClick()
[A1] = ComboBox1.Value
ComboBox1.TopLeftCell.Select
End Sub

Ca marche chez moi.
Mais cela marche tel que j'ai compris la question

A te relire donc, avec ton fichier exemple.