Discussion :

[alexis trotta]

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

[Philippe Tulliez]

Bonjour,
Si les données qui n'apparaissent pas, 53719, 53739, 53739, sont de type numériques, c'est normal
Essayez manuellement, sans VBA, le filtre textuel en choisissant Contient et dans la zone de texte mettez la valeur 537 et vous aurez le même résultat.

[alexis trotta]

Merci Philippe