Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Formule d'extraction VBA

Formule d'extraction VBA

2 réponses
Avatar
Charly
Bonsoir tout le monde,
Qui aurait la gentillesse de bien vouloir me corriger ce=20
bout de formule.

Je n'arrive pas a faire reconnaitre les cellule A1 et B1=20
dans les crit=E8res de recherche.

...
Sheets("data").Select
toto =3D Range("a1")
toutou =3D Range("b1")
Selection.AutoFilter Field:=3D9, Criteria1:=3D">=3D(toto)",=20
Operator:=3DxlAnd, _
Criteria2:=3D"<=3D(toutou)"
...

Merci =E0 toutes et =E0 tous pour votre aide.
Charly
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour,

Selection.AutoFilter Field:=9, Criteria1:=">=" & toto,
Operator:=xlAnd, _
Criteria2:="<=" & toutou

Camille

-----Message d'origine-----
Bonsoir tout le monde,
Qui aurait la gentillesse de bien vouloir me corriger ce
bout de formule.

Je n'arrive pas a faire reconnaitre les cellule A1 et B1
dans les critères de recherche.

....
Sheets("data").Select
toto = Range("a1")
toutou = Range("b1")
Selection.AutoFilter Field:=9, Criteria1:=">=(toto)",
Operator:=xlAnd, _
Criteria2:="<=(toutou)"
....

Merci à toutes et à tous pour votre aide.
Charly
.



Avatar
Pierre CFI [mvp]
bonjour
une variable ne se met pas entre "
Selection.AutoFilter Field:=9, Criteria1:=">=" & toto , .......

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Charly" a écrit dans le message de news: 000201c3dea6$3cfac270$
Bonsoir tout le monde,
Qui aurait la gentillesse de bien vouloir me corriger ce
bout de formule.

Je n'arrive pas a faire reconnaitre les cellule A1 et B1
dans les critères de recherche.

...
Sheets("data").Select
toto = Range("a1")
toutou = Range("b1")
Selection.AutoFilter Field:=9, Criteria1:=">=(toto)",
Operator:=xlAnd, _
Criteria2:="<=(toutou)"
...

Merci à toutes et à tous pour votre aide.
Charly