XL 2016 filtrer 2 colonnes a l'aide TextBox

[reve24]

Bonjour

Private Sub TextBox_Change()
If TextBox1_Text <> "" Then
[A1].AutoFilter field:=1, Criteria1:=Me.TextBox1 & "*"

ElseIf TextBox2_Text <> "" Then
[A1].AutoFilter field:=2, Criteria1:=Me.TextBox2 & "*"

End If

End Sub

Cela ne fonctionne pas

Merci

 

[Robert]

Bonjour Reve, bonjour le forum

Deux grosses erreurs dans ton code. La première est d'utiliser la procédure Change qui agit chaque fois que tu écris/effaces un caractère. La seconde est que tu n'as pas précisé ou oublié de dire de quelle textbox is s'agissait : Private Sub TextBox?_Change()

Je verrai plutôt : Private Sub TextBox1_AfterUpdate() ou Private Sub TextBox2_AfterUpdate() selon que tu veuilles agir sur la TextBox1 ou la TextBox2.

 

[reve24]

Robert

J ai ecris cette formule et cela fonctionne très bien

Mais je souhaiterais la "concatener"

Si textBox1 alors filtre colonne 1 si textBox2 colonne 2 sinon afficher tout


Private Sub TextBox1_change()

[A1].AutoFilter field:=1, Criteria1:=Me.TextBox1 & "*"
End Sub

Private Sub TextBox2_change()

[A1].AutoFilter field:=2, Criteria1:=Me.TextBox2 & "*"
End Sub

 

[Robert]

Re,

Bon, déjà entre ton premier et ton second post tu as corrigé la seconde erreur... Et pour moi, je persiste et signe, ce n'est pas sur l'événement Change que devrait se trouver le code.