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 Filtre auto activé (sur feuille protégée)

Filtre auto activé (sur feuille protégée)

8 réponses
Avatar
ManBas
Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s) qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant de
fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++
Signaler un problème avec ce contenu

8 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
Red Rick
Bonjour Manbas

Est ce que cela
Workbooks("BOOK1.XLS").Close SaveChanges:=True
réponds à tes besoins ?
Crdlmt

RedRick

"ManBas" a écrit dans le message de news:
O2ie2$
Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s) qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant
de fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++



Avatar
papou
Bonjour
Pour annuler les filtres, voici une suggestion (à adapter) :
Sub t()
Dim LaF As Worksheet
Set LaF = Worksheets("Feuil1")
With LaF.AutoFilter.Filters
For f = 1 To .Count
If .Item(f).On = True Then
Selection.AutoFilter field:=f
End If
Next f
End With
End Sub

PS : testé sur Excel 2003

Cordialement
Pascal


"ManBas" a écrit dans le message de news:
O2ie2$
Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s) qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant
de fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++



Avatar
ManBas
Bonjour Papou.
C'est tout bon!! (excel2000)
Merci beaucoup.
A bientôt.

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Pour annuler les filtres, voici une suggestion (à adapter) :
Sub t()
Dim LaF As Worksheet
Set LaF = Worksheets("Feuil1")
With LaF.AutoFilter.Filters
For f = 1 To .Count
If .Item(f).On = True Then
Selection.AutoFilter field:=f
End If
Next f
End With
End Sub

PS : testé sur Excel 2003

Cordialement
Pascal


"ManBas" a écrit dans le message de news:
O2ie2$
Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s) qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant
de fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++







Avatar
ManBas
Merci de ton aide Red Rick.
La solution de Papou réponds mieux à mes attentes.
A bientôt.

"Red Rick" a écrit dans le message de news:

Bonjour Manbas

Est ce que cela
Workbooks("BOOK1.XLS").Close SaveChanges:=True
réponds à tes besoins ?
Crdlmt

RedRick

"ManBas" a écrit dans le message de news:
O2ie2$
Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s) qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant
de fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++







Avatar
isabelle
bonjour ManBas,

une autre approche serait d'enlever le filtre et le remettre,

isabelle

Bonjour Papou.
C'est tout bon!! (excel2000)
Merci beaucoup.
A bientôt.

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:


Bonjour
Pour annuler les filtres, voici une suggestion (à adapter) :
Sub t()
Dim LaF As Worksheet
Set LaF = Worksheets("Feuil1")
With LaF.AutoFilter.Filters
For f = 1 To .Count
If .Item(f).On = True Then
Selection.AutoFilter field:=f
End If
Next f
End With
End Sub

PS : testé sur Excel 2003

Cordialement
Pascal


"ManBas" a écrit dans le message de news:
O2ie2$

Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s) qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant
de fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++












Avatar
anonymousA
bonjour,

la méthode showalldata de l'objet worksheet devrait le faire sans
difficulté et sutout en 1 seule ligne de code.

A+


Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s) qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant de
fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++




Avatar
anonymousA
ah mes excuses , j'avais pas vu la feuille protégée . Donc simplement
rajouter 2 lignes de code

with activesheet
.unprotect "mdp"
.showalldata
.protect "mdp"
end with

A+

bonjour,

la méthode showalldata de l'objet worksheet devrait le faire sans
difficulté et sutout en 1 seule ligne de code.

A+



Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec
enregistrement automatique sans le message vbYesNoCancel d'XL), je
souhaiterai que l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de
sortie d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s)
qui comporte(nt) une fleche bleue, et montrez TOUS les enregistrements
avant de fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++





Avatar
papou
Bonjour
Tant mieux si ça marche !
Mais au lieu de chercher midi à quatorze heure (ce que j'ai fait !), regarde
donc la suggestion d'anonymousA, je crois qu'elle bat tout le monde ;-)

Cordialement
Pascal

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

Bonjour Papou.
C'est tout bon!! (excel2000)
Merci beaucoup.
A bientôt.

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Pour annuler les filtres, voici une suggestion (à adapter) :
Sub t()
Dim LaF As Worksheet
Set LaF = Worksheets("Feuil1")
With LaF.AutoFilter.Filters
For f = 1 To .Count
If .Item(f).On = True Then
Selection.AutoFilter field:=f
End If
Next f
End With
End Sub

PS : testé sur Excel 2003

Cordialement
Pascal


"ManBas" a écrit dans le message de news:
O2ie2$
Bonjour les amis du web,
Avant de permettre la sortie d'une base de données (avec enregistrement
automatique sans le message vbYesNoCancel d'XL), je souhaiterai que
l'utilisateur montre tous les enregistrements.
J'ai écrit ce code mais je ne parviens pas à éviter le message de sortie
d'excel qui survient aprés le mien.
Dans this workbook beforeclose:

If Worksheets("feuill1").AutoFilterMode Then
MsgBox "Le filtre automatique est activé. Repérez la/les colonne(s)
qui
comporte(nt) une fleche bleue, et montrez TOUS les enregistrements avant
de fermer la base.", vbInformation, "Fermeture différée"
Exit Sub
Else:
Application.DisplayAlerts = False
ActiveWorkbook.Save
End If
End Sub

Qu'est-ce qui cloche?
Ou alors comment montrer (sans le concours de l'utilisateur) tous les
enregistrements sans retirer le filtre auto (feuille protégée)?

Merci de votre aide +++