FItre en VBA Oui ou Non

j

19/11/2003 à 20:54

MsgBox ActiveSheet.FilterMode
ou pour filtre auto
MsgBox ActiveSheet.AutoFilterMode

--

http://jacxl.free.fr/

"Crel" a écrit dans le message de news:

Bonsoir à toutes et tous
J'ai un tableau sur lequel j'ai un filtre, je souhaite créer une proc qui
me

prévienne si le filtre est actif ou non.
Si le filtre est en place msgbox"fitre sur le tableau" ou bien "filtre non
actif"
Merci beaucoup
Patrick

Crel

19/11/2003 à 20:58

Bonjour jacques
En fait, je voudrai créer une condition attachée à un bouton macro "quitter"
du style "avant de quitter ce tableau vous devez enlever le filtre".
Patrick

"" a écrit dans le message de news:
#

MsgBox ActiveSheet.FilterMode
ou pour filtre auto
MsgBox ActiveSheet.AutoFilterMode

--

http://jacxl.free.fr/

"Crel" a écrit dans le message de
news:

Bonsoir à toutes et tous
J'ai un tableau sur lequel j'ai un filtre, je souhaite créer une proc
qui

me
prévienne si le filtre est actif ou non.
Si le filtre est en place msgbox"fitre sur le tableau" ou bien "filtre
non

actif"
Merci beaucoup
Patrick

ru-th

19/11/2003 à 21:13

Salut

plutôt (pas le chien) que d'ôter le filtre (de mla cigarette), afficher tout
dans le module Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ON ERROR RESUME NEXT
Sheets("Feuil1").ShowAllData
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de news:
#

Bonjour jacques
En fait, je voudrai créer une condition attachée à un bouton macro
"quitter"

du style "avant de quitter ce tableau vous devez enlever le filtre".
Patrick

"" a écrit dans le message de news:
#
MsgBox ActiveSheet.FilterMode
ou pour filtre auto
MsgBox ActiveSheet.AutoFilterMode

--

http://jacxl.free.fr/

"Crel" a écrit dans le message de
news:

Bonsoir à toutes et tous
J'ai un tableau sur lequel j'ai un filtre, je souhaite créer une proc
qui

me
prévienne si le filtre est actif ou non.
Si le filtre est en place msgbox"fitre sur le tableau" ou bien "filtre
non

actif"
Merci beaucoup
Patrick

Crel

19/11/2003 à 21:14

Désolé Jacques, j'ai réussi à adapter.
Merci beaucoup
Patrick

"Crel" a écrit dans le message de news:
#

Bonjour jacques
En fait, je voudrai créer une condition attachée à un bouton macro
"quitter"

du style "avant de quitter ce tableau vous devez enlever le filtre".
Patrick

"" a écrit dans le message de news:
#
MsgBox ActiveSheet.FilterMode
ou pour filtre auto
MsgBox ActiveSheet.AutoFilterMode

--

http://jacxl.free.fr/

"Crel" a écrit dans le message de
news:

Bonsoir à toutes et tous
J'ai un tableau sur lequel j'ai un filtre, je souhaite créer une proc
qui

me
prévienne si le filtre est actif ou non.
Si le filtre est en place msgbox"fitre sur le tableau" ou bien "filtre
non

actif"
Merci beaucoup
Patrick

j

19/11/2003 à 21:18

ben oui, dans ta macro tu ajoutes
if ActiveSheet.FilterMode then msgbox("avant de quitter ce tableau vous
devez enlever le filtre")

remarque bien qu'une fois que tu en es là, tu pourrais quand même demander
en plus à ta macro d'enlever le filtre (à défaut d'enlever le bas)

"Crel" a écrit dans le message de news:
#

Bonjour jacques
En fait, je voudrai créer une condition attachée à un bouton macro
"quitter"

du style "avant de quitter ce tableau vous devez enlever le filtre".
Patrick

"" a écrit dans le message de news:
#
MsgBox ActiveSheet.FilterMode
ou pour filtre auto
MsgBox ActiveSheet.AutoFilterMode

--

http://jacxl.free.fr/

"Crel" a écrit dans le message de
news:

Bonsoir à toutes et tous
J'ai un tableau sur lequel j'ai un filtre, je souhaite créer une proc
qui

me
prévienne si le filtre est actif ou non.
Si le filtre est en place msgbox"fitre sur le tableau" ou bien "filtre
non

actif"
Merci beaucoup
Patrick

Crel

19/11/2003 à 21:20

Merci beaucoup Thierry, "effectivement" c'est très sympa de ta part.
Patrick

"ru-th" a écrit dans le message de news:

Salut

plutôt (pas le chien) que d'ôter le filtre (de mla cigarette), afficher
tout

dans le module Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ON ERROR RESUME NEXT
Sheets("Feuil1").ShowAllData
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

#
Bonjour jacques
En fait, je voudrai créer une condition attachée à un bouton macro
"quitter"

du style "avant de quitter ce tableau vous devez enlever le filtre".
Patrick

"" a écrit dans le message de news:
#
MsgBox ActiveSheet.FilterMode
ou pour filtre auto
MsgBox ActiveSheet.AutoFilterMode

--

http://jacxl.free.fr/

"Crel" a écrit dans le message de
news:

Bonsoir à toutes et tous
J'ai un tableau sur lequel j'ai un filtre, je souhaite créer une
proc

qui
me
prévienne si le filtre est actif ou non.
Si le filtre est en place msgbox"fitre sur le tableau" ou bien
"filtre

non
actif"
Merci beaucoup
Patrick

Crel

19/11/2003 à 21:21

Merci beaoup Jac, c'est très sympa de ta part, j'ai trouvé exactement la
même chose.
Encore merci
Patrick

"" a écrit dans le message de news:

ben oui, dans ta macro tu ajoutes
if ActiveSheet.FilterMode then msgbox("avant de quitter ce tableau vous
devez enlever le filtre")

remarque bien qu'une fois que tu en es là, tu pourrais quand même demander
en plus à ta macro d'enlever le filtre (à défaut d'enlever le bas)

"Crel" a écrit dans le message de
news:

#
Bonjour jacques
En fait, je voudrai créer une condition attachée à un bouton macro
"quitter"

du style "avant de quitter ce tableau vous devez enlever le filtre".
Patrick

"" a écrit dans le message de news:
#
MsgBox ActiveSheet.FilterMode
ou pour filtre auto
MsgBox ActiveSheet.AutoFilterMode

--

http://jacxl.free.fr/

"Crel" a écrit dans le message de
news:

Bonsoir à toutes et tous
J'ai un tableau sur lequel j'ai un filtre, je souhaite créer une
proc

qui
me
prévienne si le filtre est actif ou non.
Si le filtre est en place msgbox"fitre sur le tableau" ou bien
"filtre

non
actif"
Merci beaucoup
Patrick

FItre en VBA Oui ou Non

7 réponses

Veuillez sélectionner un problème