Bonjour,

J'ai un formulaire de création du devis qui me permet de créer une nouvelle feuille excel automatiquement avec le nom du client et la date du jour.
J'aimerais ajouter à ce formulaire une combobox qui liste tous les devis de ce client. Donc un code qui ferait une recherche du nom du client dans le nom des feuilles et ajouterai tous les résultats à la combobox.

Voici le code où j'en suis, je crée une liste de toutes mes feuilles dans ma feuille "tableaux" colonne "R" et je fais une recherche du nom du client.
Jusque-là tout va bien mais je n'arrive pas à ajouter tous les résultats de la recherche à la combobox.

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
 
Private Sub cboClientDevis_Change()
 
Dim ws As Worksheet
Dim x As Integer
 
x = 1
 
Sheets("Tableaux").Range("R:R").Clear
 
For Each ws In Worksheets
     Sheets("Tableaux").Cells(x, 18) = ws.Name
     x = x + 1
Next ws
 
Set D = Sheets("Tableaux").Range("R:R").Find(cboClientDevis.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not D Is Nothing Then
cboNomDevis.AddItem D
 
Else
 End If
End Sub
Avec ce code je n'ai que le 1er résultat de la recherche. Je dois surement ajouter un "next" quelquepart mais je sèche...

Merci d'avance pour votre aide.

Cordialement