Bonjour
Je sollicite une nouvelle fois votre aide car je suis de nouveau 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
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 vous remercie d'avance de l'aide que vous pourrez apporter,
Bonne journée.
Laura