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

dokaz · 3 Février 2012

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 · 3 Février 2012

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

Bonjour.
Comme ça :

VB:

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

À +

dokaz · 3 Février 2012

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 · 3 Février 2012

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 · 3 Février 2012

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 · 3 Février 2012

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 · 3 Février 2012

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 · 3 Février 2012

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 · 3 Février 2012

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 · 3 Février 2012

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 · 6 Février 2012

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+

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

dokaz

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

dokaz

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

dokaz

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

dokaz

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

dokaz

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

dokaz

XLDnaute Nouveau

Discussions similaires