Réinitialisation données filtrés suite à sélection dans textbox

[dokaz]

bonjour,

j'ai un userform avec des textbox et en fonction des valeurs saisies j'ai des filtre sur un tableau.
mon problème est que je ne sais pas comment rajouter un code qui lorsque je rappelle mon useform les données de mon tableau se réinitialise (aucun filtres).

le code en textbox est ainsi :

Private Sub TextBox1_Change()
If TextBox1 = "" Then Sheets("avoirs").Range("$A$59:$P$50000").CurrentRegion.AutoFilter Field:=8
Else Sheets("avoirs").Range("$A$59:$P$50000").CurrentRegion.AutoFilter Field:=8, Criteria1:="<" & TextBox1.Value, Operator:=xlAnd

et j'ai testé ce code au clic de mon commandbutton du userform :
Private Sub CommandButton3_Click()
If TextBox1 = "" & TextBox3 = "" Then
Sheets("avoirs").Range("$A$59:$P$59").Selection.AutoFilter
Sheets("avoirs").Range("$A$59:$P$59").Selection.AutoFilter

mais ça ne fonctionne pas, avez vous une idée ?

merci d'avance,

 

[Dranreb]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Bonjour.
Comme ça :

If Worksheets("avoirs").FilterMode Then Worksheets("avoirs").ShowAllData

À +

 

[dokaz]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Merci Dranreb, ça me facilite effectivement la vie mais j'ai du créer un autre command button pour que ça fonctionne, bizarre quand même. En revanche le code ne marche pas si le filtre ne contient pas de "data" du coup j'ai modifié le code pour un feuille avec 2x "CurrentRegion.Autofilter", à moins qu'il y ait une fonction complémentaire au showallData ?

cordialement,

 

[Dranreb]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Je ne comprend rien à votre problème.
Joignez un fichier le reproduisant, que je voie ce qui ne marche pas et d'où ça vient.
À +

 

[dokaz]

Re : Réinitialisation données filtrés suite à sélection dans textbox

oui effectivement un ficier sera plus parlant, mon problème est le filtre sur une feuille ne contenant pas de données

cordialement,

 

[Dranreb]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Je ne comprend toujours pas. Que voudriez vous que ça fasse sur une feuille complètement vide ?

 

[dokaz]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Je ne veux pas de résultat vu qu'il n'y a pas de donnes à l'instant T mais demain dans cette feuille j'aurai peut être des données et j'ai besoin d'avoir un code qui fonctionne.

cordialement,

 

[Dranreb]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Pourquoi ne fonctionnerait-il pas à partir du moment il y en aura ?

 

[dokaz]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Re,

Ca fonctionnera mais à l'heure actuelle, ça me lance le déboggeur car l'absence de data fait planté le code.

cordialement

 

[Dranreb]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Mettez: On Error Resume Next devant l'instruction qui plante,
derrière elle: If Err Then Exit Sub Else On Error Goto 0

 

[dokaz]

Re : Réinitialisation données filtrés suite à sélection dans textbox

Merci Dranreb, c'est nickel et je vais pouvoir rajouter ça ailleurs également

a+