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