Bonjour à toutes et à tous,

Débutant en VBA, ce forum m'a jusqu'à maintenant très bien renseigné. J'en suis à la dernière étape de mon projet mais là je butte sur ce bout de code que j'ai récupéré mais n'arrive pas à adapter.


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
Private Sub ComboBox1_Click()
Dim i As Long
 
With ComboBox1
    For i = 1 To 9
        Controls("textbox" & i) = Cells(.List(.ListIndex, 1), i)
    Next i
End With
End Sub
 
Private Sub AfficherLaListeButton_Click()
Sheets("Base de Données").Select
Dim i As Long
With ComboBox1
    .Clear
    For i = 2 To Range("a65536").End(xlUp).Row
        .AddItem Cells(i, 4)
        .List(.ListCount - 1, 1) = i
    Next i
End With
ComboBox1.Visible = True
End Sub
 
Private Sub Userform_Initialize()
Dim i As Long
 
With ComboBox1
    .ColumnCount = 1
    .ColumnWidths = "10;0"
End With
End Sub
Ce code affiche entre autre une liste de clients dans la ComboBox et un numéro de devis dans Textbox1 -> jusque là tout va bien

Or après plusieurs essais je m'aperçois que si un client demande 2 devis par exemple, le premier devis uniquement est renvoyé -> j'aimerais donc pouvoir remplacer la Textbox1 par une ListBox pour pouvoir filtrer.

J'ai un autre soucis par rapport à ce code : les informations renvoyées dans les Textbox sont celles des colonnes A,B,C etc. dans l'ordre. Or j'aimerais pouvoir choisir de n'afficher que certaines informations (A, C,D) par exemple.

Voilà plusieurs heures que je cherche une solution à ces problèmes mais sans succès. Quelqu'un aurait il une idée s'il vous plaît ? J'imagine que cela n'a rien de compliqué mais là j'avoue être dépassé.

Merci d'avance