Discussion :

[apt]

Bonsoir à tous,

Pour créer des critères d'un filtre élaboré, l'utilisateur doit renseigner un USF qui contient les déférents critères.

Seulement dans la procédure Btn_ValiderCriteres_Click(), j'ai des erreurs dans la sélection du nom de la machine à partir de la ListBox1 :

Code :

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

1
2
3
4
5
6
7
'-- Machine
        For iCtr = 0 To Me.ListBox1.ListCount - 1
            If Me.ListBox1.Selected(iCtr) = True Then
                TextBox1.Value = Me.ListBox1.List(iCtr)
                .[I3] = Me.TextBox1.Value
            End If
        Next iCtr

Ensuite le même problème pour sélectionner un élément depuis la ComboBox3 :

Code :

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

1
2
3
4
5
6
7
'-- On interprete le texte de la ComboBox3 en signes
        For iCtr = 0 To Me.ComboBox3.ListCount - 1
            If Me.ComboBox3.ListIndex(iCtr) = True Then
                '-- L'élément 0 correspond à la troisième ligne dans la colonne U
                .[N9] = .Range("U" & iCtr + 3)
            End If
        Next iCtr

En PJ l'exemple

Merci d'avance.