Combiner la fonction LOOKUP avec un COMBOBOX.

Bonjour.
Je cherche à automatiser la facturation d'un auto-entrepreneur.
Je me heurte au problème suivant.

Je voudrai relier deux tables entres-elles:
- la table clients ou les noms des clients se trouvent dans une colonne nommée "NomClient" et la colonne de leur identifiant nommé "TCC";
- une table chantier où il faudrait introduire l'identifiant du client qui donne le chantier à réaliser;
ceci pour matérialiser la relation mère-fille : un client donne 0 ou N chantier à l'auto-entrepreneur; un chantier est donné par un et un seul client.

Dans UserForm "Nouveau Chantier" j'ai utilisé un combobox1 pour sélectionner le nom du client qui donne le nouveau chantier.

Code:

---

ComboBox1.List = Range("NomClient").Value

---

Puis avec la fonction LOOKUP, j'introduirai l'identifiant correspondant au nom du client, dans la cellule appropriée.

- code donné par l'enregistreur

Code:

---

Range("B" & k).FormulaR1C1 = "=LOOKUP(ComboBox1,NomClient,TCC)"

---

-code BVA trouvé sur le forum

Code:

---

Range("B" & k)= Application.WorksheetFunction.Lookup(ComboBox1, NomClient, TCC)

---

Aucun des 2 lignes de code ne fonctionne. Il semble que la fonction LOOKUP ne sache pas extraire le nom du client que contient le Combobox1.

Je vous remercie de venir à mon secours.

Cordialement et bonne journée à tous.

jf Zuinghedau

Bonjour,

Tu peux essayer avec :

Code:

---

Range("B" & k).Formula = "=LOOKUP(""" & ComboBox1.Value & """," & [NomClient].Address & "," & [TCC].Address & ")"

---

ou

Code:

---

Range("B" & k) = Application.WorksheetFunction.Lookup(ComboBox1.Value, [NomClient], [TCC])

---

Cordialement.

Bonjour gFZT82

Je te remercie pour ta réponse que je viens de lire maintenant. J'ai retenu le ligne code suivante

Code:

---

Range("B" & k) = Application.WorksheetFunction.Lookup(ComboBox1.Value, [NomClient], [TCC])

---

J'ai obtenu ce message d'erreur qui m'a mis sur la piste :
" Erreur d'exécution 1004. L'élément qui porte ce nom est introuvable."
J'ai interprété le message ainsi : Lookup comprend le contenu de la Combobox1 mais pas celui de [NomClient].

Alors j'ai tenté le code avec le mot Range

Code:

---

Range("B" & k) = Application.WorksheetFunction.Lookup(ComboBox1.Value, Range("NomClient"), Range("TCC"))

---

et j'obtiens la bonne réponse. Pourtant je croyais que la fonction Lookup n'admettait pas le Range devant les noms des cellules !

Je ne comprends plus rien. Je trouve que Excel à un comportement bizarre avec Yosemite. Ainsi il ne reprend plus l'année des dates avec BVA.

Merci pour ton aide.
Cordialement

JF Zuinghedau