Discussion :

[Iloyd]

Bonjour,

Je vous sollicite aujourd'hui puisque j'ai un problème lié à un de mes filtres. En effet, dans le screen que je vous ai mis, j'arrive à filtrer en fonction du numéro de la rame mais pas en fonction du code défaut. Quand je commence à taper le code dans la textbox associée, ça ne m'affiche rien. Si je commence à effacer, il m'affiche le seul enregistrement possédant un code défaut en chaîne de caractère.

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
18
Private Sub CommandButton1_Click()
On Error Resume Next
  Me.TextBox1 = ""
  Me.TextBox2 = ""
  ShowAllData
End Sub
 
Private Sub TextBox1_Change()
clé = "*" & Replace(Me.TextBox1, " ", "*") & "*"
 ActiveSheet.Range("$a$5:$n$20000").AutoFilter Field:=3, Criteria1:=clé
 
End Sub
 
Private Sub TextBox2_Change()
clé = "*" & Replace(Me.TextBox2, " ", "*") & "*"
 ActiveSheet.Range("$a$5:$n$20000").AutoFilter Field:=6, Criteria1:=clé
 
End Sub

Merci d'avance pour votre aide!

[MarcelG]

Bonjour Iloyd,

Par prudence, attacher la méthode ShowAlldata.

Code :

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

1
2
3
With Worksheets("lawks")
  If .Filtermode = True Then .ShowAlldata
End With

A mon sens, tu devrais contrôler la valeur de clé.
Tu pourrais également, en fonction de cette valeur, effectuer un filtre manuel en utilisant l'enregistreur de macro, qu'il te devra ensuite débarrasser des méthodes inutiles.

Sur le processus.
Personnellement, j'utiliserais un formulaire dont l'initialisation effacerait les éventuels filtres comme monté ci-dessus.

[EricDgn]

Bonjour,

Une suggestion: sélectionner la colonne C et puis clic droit "Format de cellule" et sélectionner "Texte" ... et voir ce que le filtrage donne.

Cordialement.

[gFZT82]

Bonjour,

Une autre suggestion : sélectionner la colonne C et puis Outils de données > Convertir ... et choisir le format Texte.

Cordialement.