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 : 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
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