Discussion :

[NujWex]

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

[ARTURO83]

Bonjour,

A tester

Code :

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

1
2
3
4
5
6
7
8
9
10
    With Sheets("Tableaux").Columns("R:R")
        Set D = .Find(cboClientDevis.Value, LookIn:=xlValues, Lookat:=xlPart)
        If Not D Is Nothing Then
                Dep_D = D.Address
            Do
                cboNomDevis.AddItem D
                Set D = .FindNext(D)
            Loop While Not D Is Nothing And D.Address <> Dep_D
        End If
    End With

Cdlt

[BENNASR]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
ComboBox1.Clear
dim ws as Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "ACCEUIL" And ws.Name <> "Vente" And ws.Name <> "COMPAR" Then
            ComboBox1.AddItem ws.Name        
        End If
    Next ws
End Sub

[NujWex]

Merci bcp "ARTURO83" ça fonctionne parfaitement comme je voulais.

Bonne journée.