Filtre non exhaustif avec une variable
Bonjour à tous,
dans le code ci-dessous, toutes les chaines de caractères qui comportent la valeur (537) saisie dans la variable ne remontent pas.
Pour exemple lorsque que j'exécute la macro, j'obtiens la liste suivante; Il manque 3 lignes dont les valeurs dans les cellules sont 53719, 53739, 53739
90Y53705/2
90Y53705/2
90Y53743/1
90Y53743/1
90Y53705/5
90Y53761/1
90Y53761/1
90Y53761/1
90Y53705/4
90Y53705/4
53717/0
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Private Sub CommandButton21_Click()
Dim Cmde As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
Cmde = InputBox("Saisir une partie du numéro de la commande")
ActiveSheet.Range("$A$6:$AP$5000").AutoFilter Field:=11, Criteria1:= _
"*" & Cmde & "*", Operator:=xlAnd, Criteria2:="*"
Application.ScreenUpdating = True
CommandButton19.Height = 19.8 'Largeur
CommandButton19.Width = 52.8 'Longueur
CommandButton19.Top = 48.6 'Hauteur
CommandButton19.Left = 267 'Position en partant de la gauche
End Sub |
