Bonjour

Je sollicite votre aide car je suis bloquée... (J'ai cherché sur le forum et d'autres site mais je ne comprend toujours pas...)


je voudrai qu'à partir de mon userform qui apparaît au début je puisse filtrer ma feuille de commande en fonction de la référence choisie, tout cela en appuyant sur le bouton valider.

Voici le code jusqu'à présent :

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
34
35
36
37
38
39
40
Option Explicit
 
Private myTab()
Private ind As Long
 
 
 
'Private Sub Workbook_Open()
'UserForm1.Show
'End Sub
 
Private Sub UserForm_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
    initCombo
End Sub
 
Private Sub initCombo()
Dim ws As Worksheet
Dim derlig As Long
Dim lig As Long
Dim i As Long
 
    Set ws = ThisWorkbook.Worksheets("CRNET-CDE")
    derlig = ws.Range("A" & Rows.Count).End(xlUp).Row
    ReDim Preserve myTab(ind)
    For lig = 2 To derlig
        If ModTools.DoesExistRef(ws.Range("A" & lig).Value, myTab()) = False And ws.Range("F" & lig).Value <> "" Then
            ReDim Preserve myTab(ind)
            myTab(ind) = ws.Range("A" & lig).Value
            ind = ind + 1
        End If
    Next lig
 
    For i = LBound(myTab()) To UBound(myTab())
        Me.ComboBox1.AddItem myTab(i)
    Next i
End Sub

Je ne sais pas si j'ai été très claire;

Je vous remercie d'avance de l'aide que vous pourrez apporter,
Bonne journée.

Laura