XL 2016 filtrer 2 colonnes a l'aide TextBox

reve24 · 18 Octobre 2018

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 · 18 Octobre 2018

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 · 18 Octobre 2018

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 · 18 Octobre 2018

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.

XL 2016 filtrer 2 colonnes a l'aide TextBox

reve24

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

reve24

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Discussions similaires

XL 2016 filtrer 2 colonnes a l'aide TextBox

reve24

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

reve24

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency