Insertion dans cellules

bonjour,

Voilà j'ai créé dans mon classeur une form , dans cette form il y a une combobox avec le nom des clients, et un bouton lorsque je clique sur le bouton , cela insére le client choisi dans la combobox dans une cellule. voici le code :

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Range("F5").Value = ListBoxInsertClient.Value End Sub

---

Cela marche très bien, mais ce que je veux faire en plus c'est insérer dans les cellules adjacentes, les autres données par rapport au client choisi dans la combobox (adresse, tel, ...).

la liste des clients employés dans la combobox se trouve sur une autre feuille du classeur.

Pouvez vous m'aider

Merci

Bonsoir,

En l'attente de plus de précisions, regarde du coté de Find() :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub Chercher()   Dim Plage As Range Dim Cel As Range   'la plage où se trouvent les noms est est en colonne A de "Feuil1", à adapter With Worksheets("Feuil1")   Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))   End With   'effectue la recherche Set Cel = Plage.Find(ListBoxInsertClient.Value, , xlValues, xlWhole)   'pas de contrôle puisque le nom choisi vient de la colonne donc il est forcément présent 'à moins que le possibilité soit fait d'entrer directement un nom dans le champ de la combo   'en F5 le nom Range("F5").Value = ListBoxInsertClient.Value   'en G5 le prénom Range("G5").Value = Cel.Offset(, 1).Value   'etc.. Range("H5").Value = Cel.Offset(, 2).Value   Range("I5").Value = Cel.Offset(, 3).Value   Range("J5").Value = Cel.Offset(, 4).Value   End Sub

---

Hervé.

Merci c'est ce que je cherchais