Discussion :

[ph_anrys]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[ph_anrys]

Merci c'est ce que je cherchais