Mer ci beaucoup, c'est vraiment super cela fonctionne parfaitement. Mais comment faire pour rendre le textbox vide au lancement du userform ? Denis Michon m'a donné une solution que je n'arrive pas à faire fonctionner. Alpha
"Jean-François Aubert" <à a écrit dans le message de news: 3fbfb544$
Salut Alpha,
Sub yy() Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite écrire cela en VBA, mais je "cale" sur le critére.
Mer ci beaucoup, c'est vraiment super cela fonctionne parfaitement.
Mais comment faire pour rendre le textbox vide au lancement du userform ?
Denis Michon m'a donné une solution que je n'arrive pas à faire fonctionner.
Alpha
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news: 3fbfb544$1_3@news.bluewin.ch...
Salut Alpha,
Sub yy()
Dim x As Double
x = Sheets("feuil1").TextBox1
Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:ufUd1oSsDHA.1788@tk2msftngp13.phx.gbl...
Bonjour
Je souhaite écrire cela en VBA, mais je "cale" sur le critére.
Mer ci beaucoup, c'est vraiment super cela fonctionne parfaitement. Mais comment faire pour rendre le textbox vide au lancement du userform ? Denis Michon m'a donné une solution que je n'arrive pas à faire fonctionner. Alpha
"Jean-François Aubert" <à a écrit dans le message de news: 3fbfb544$
Salut Alpha,
Sub yy() Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite écrire cela en VBA, mais je "cale" sur le critére.
C'est bon j'ai trouvé mea culpa, Denis Michon était clair sur le sujet, c'est moi qui était dans les vap... Alpha
"Alpha" a écrit dans le message de news:
Mer ci beaucoup, c'est vraiment super cela fonctionne parfaitement. Mais comment faire pour rendre le textbox vide au lancement du userform ? Denis Michon m'a donné une solution que je n'arrive pas à faire fonctionner.
Alpha
"Jean-François Aubert" <à a écrit dans le message de
news: 3fbfb544$
Salut Alpha,
Sub yy() Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite écrire cela en VBA, mais je "cale" sur le critére.
C'est bon j'ai trouvé mea culpa, Denis Michon était clair sur le sujet,
c'est moi qui était dans les vap...
Alpha
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:
uoN2o9SsDHA.2260@TK2MSFTNGP09.phx.gbl...
Mer ci beaucoup, c'est vraiment super cela fonctionne parfaitement.
Mais comment faire pour rendre le textbox vide au lancement du userform ?
Denis Michon m'a donné une solution que je n'arrive pas à faire
fonctionner.
Alpha
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message
de
news: 3fbfb544$1_3@news.bluewin.ch...
Salut Alpha,
Sub yy()
Dim x As Double
x = Sheets("feuil1").TextBox1
Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:ufUd1oSsDHA.1788@tk2msftngp13.phx.gbl...
Bonjour
Je souhaite écrire cela en VBA, mais je "cale" sur le critére.
C'est bon j'ai trouvé mea culpa, Denis Michon était clair sur le sujet, c'est moi qui était dans les vap... Alpha
"Alpha" a écrit dans le message de news:
Mer ci beaucoup, c'est vraiment super cela fonctionne parfaitement. Mais comment faire pour rendre le textbox vide au lancement du userform ? Denis Michon m'a donné une solution que je n'arrive pas à faire fonctionner.
Alpha
"Jean-François Aubert" <à a écrit dans le message de
news: 3fbfb544$
Salut Alpha,
Sub yy() Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Alpha" a écrit dans le message de news:
Bonjour Je souhaite écrire cela en VBA, mais je "cale" sur le critére.
