récupérer dans la cellule liée, une valeur différente de celle de la combobox

[Fab2108]

Bonjour à tous,

Je cherche à créer une application pour faire des devis.

Je voudrais que ma combobox me renvoie dans la cellule liée le numéro de client au lieu du nom de client qui est dans la combo.

Auriez-vous une astuce ?

Merci.

 

[job75]

Re : récupérer dans la cellule liée, une valeur différente de celle de la combobox

Bonjour Fab2108,

Auriez-vous une astuce ?

Il n'y a pas d'astuce : la cellule liée définie par la propriété LinkedCell prend toujours la valeur de la ComboBox.

Donc il ne faut pas définir de cellule liée.

Par contre voir le fichier joint avec cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub ComboBox1_Change()
[E6] = Application.VLookup(ComboBox1, [A2:B5], 2, 0)
End Sub

A+

 

[job75]

Re : récupérer dans la cellule liée, une valeur différente de celle de la combobox

Re,

Pour peaufiner, si l'on ne veut jamais de #N/A en E6 (par exemple quand on efface la valeur de la ComboBox) :

Private Sub ComboBox1_Change()
Dim n As Variant
n = Application.VLookup(ComboBox1, [A2:B5], 2, 0)
[E6] = IIf(IsError(n), "", n)
End Sub

A+

 

[Fab2108]

Re : récupérer dans la cellule liée, une valeur différente de celle de la combobox

merci beaucoup !!!

 

[job75]

Re : récupérer dans la cellule liée, une valeur différente de celle de la combobox

Re,

Et puis cette solution sans macro.

E6 est la cellule liée de la ComboBox, formule en F6 :

=SI(NB.SI(A2:A5;E6);RECHERCHEV(E6;A2:B5;2;0);"")

A+