Filtre automatique et feuille protégée: suis en rade! (reprise fil du jour)
6 réponses
ManBas
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.
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
LSteph
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de protect
si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre
'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()
With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter
End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********
'lSteph
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
O8iDHu6XFHA.2664@TK2MSFTNGP15.phx.gbl...
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça marche sur Excel 2002) A+ Phil
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça marche
sur Excel 2002)
A+
Phil
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.
Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça marche sur Excel 2002) A+ Phil
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
ManBas
Merci Phil, Je réponds dans le désordre mais j'ai pris du temps avant d'avouer mon incompétence. Ton code bloque avec erreur 1004, définie par l'application ou par l'objet. ??
"Phil99999" (!sansspam!)> a écrit dans le message de news:
Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça marche sur Excel 2002) A+ Phil
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
Merci Phil,
Je réponds dans le désordre mais j'ai pris du temps avant d'avouer mon
incompétence.
Ton code bloque avec erreur 1004, définie par l'application ou par l'objet.
??
"Phil99999" <PhilDuch@wanadoo.fr.(!sansspam!)> a écrit dans le message de
news: 6DE473C0-E8DB-43C1-B39E-D1B0322E00E7@microsoft.com...
Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça
marche
sur Excel 2002)
A+
Phil
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.
Merci Phil, Je réponds dans le désordre mais j'ai pris du temps avant d'avouer mon incompétence. Ton code bloque avec erreur 1004, définie par l'application ou par l'objet. ??
"Phil99999" (!sansspam!)> a écrit dans le message de news:
Si non, désolé, j'ai Excel 2002, donc je ne peux pas t'aider ... (ça marche sur Excel 2002) A+ Phil
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
ManBas
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter sheets("feuill1"): un rien m'arrête, mais je persiste quand même). Mille merci.
"LSteph" a écrit dans le message de news:
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter
sheets("feuill1"): un rien m'arrête, mais je persiste quand même).
Mille merci.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OteVO46XFHA.3572@TK2MSFTNGP12.phx.gbl...
Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de protect
si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre
'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()
With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter
End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********
'lSteph
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
O8iDHu6XFHA.2664@TK2MSFTNGP15.phx.gbl...
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas
quand même,
- je ne parviens pas à utiliser allowfiltering=true.
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter sheets("feuill1"): un rien m'arrête, mais je persiste quand même). Mille merci.
"LSteph" a écrit dans le message de news:
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
LSteph
;o) tant mieux!
En fait ton code d'origine n'était pas loin du but!
Bonne soirée
lSteph
"ManBas" a écrit dans le message de news: %23YaMx%
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter sheets("feuill1"): un rien m'arrête, mais je persiste quand même). Mille merci.
"LSteph" a écrit dans le message de news:
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
;o) tant mieux!
En fait ton code d'origine n'était pas loin du but!
Bonne soirée
lSteph
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
%23YaMx%238XFHA.2128@TK2MSFTNGP14.phx.gbl...
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter
sheets("feuill1"): un rien m'arrête, mais je persiste quand même).
Mille merci.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OteVO46XFHA.3572@TK2MSFTNGP12.phx.gbl...
Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de
protect
si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre
'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()
With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter
End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********
'lSteph
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
O8iDHu6XFHA.2664@TK2MSFTNGP15.phx.gbl...
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne
pas quand même,
- je ne parviens pas à utiliser allowfiltering=true.
En fait ton code d'origine n'était pas loin du but!
Bonne soirée
lSteph
"ManBas" a écrit dans le message de news: %23YaMx%
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter sheets("feuill1"): un rien m'arrête, mais je persiste quand même). Mille merci.
"LSteph" a écrit dans le message de news:
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
ManBas
Bof! Sur ce coup-là j'étais trés loin. Le génie c'est de fournir des codes si simples que celui qui les lit se dit "que je suis c.."! Encore merci.
"LSteph" a écrit dans le message de news:
;o) tant mieux!
En fait ton code d'origine n'était pas loin du but!
Bonne soirée
lSteph
"ManBas" a écrit dans le message de news: %23YaMx%
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter sheets("feuill1"): un rien m'arrête, mais je persiste quand même). Mille merci.
"LSteph" a écrit dans le message de news:
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.
Merci de revenir à mon aide.
Bof! Sur ce coup-là j'étais trés loin.
Le génie c'est de fournir des codes si simples que celui qui les lit se dit
"que je suis c.."!
Encore merci.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
elqx1B9XFHA.3188@TK2MSFTNGP09.phx.gbl...
;o) tant mieux!
En fait ton code d'origine n'était pas loin du but!
Bonne soirée
lSteph
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
%23YaMx%238XFHA.2128@TK2MSFTNGP14.phx.gbl...
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter
sheets("feuill1"): un rien m'arrête, mais je persiste quand même).
Mille merci.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OteVO46XFHA.3572@TK2MSFTNGP12.phx.gbl...
Bonjour,
(Pas la peine de faire un autre fil!!!)
Comme je te le disais c'est pour les versions récentes en param de
protect
si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003)
en supposant Feuil1 et titres en rows(1)
se déclenche à l'ouverture à mettre
'************
'dans Thisworkbook
'****
Private Sub Workbook_Open()
With Feuil1
If Not .AutoFilterMode Then
.Rows(1).Select
Selection.AutoFilter
End If
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub
'*********
'lSteph
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
O8iDHu6XFHA.2664@TK2MSFTNGP15.phx.gbl...
Re-bonjour les amis,
Le fil du jour (même titre) ne m'a pas apporté la solution car:
- ma version est XL2000,
- j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne
pas quand même,
- je ne parviens pas à utiliser allowfiltering=true.
Bof! Sur ce coup-là j'étais trés loin. Le génie c'est de fournir des codes si simples que celui qui les lit se dit "que je suis c.."! Encore merci.
"LSteph" a écrit dans le message de news:
;o) tant mieux!
En fait ton code d'origine n'était pas loin du but!
Bonne soirée
lSteph
"ManBas" a écrit dans le message de news: %23YaMx%
Re-bonjour LSteph,
ça marche impeccable, le temps de tester les 2 solutions (et de rajouter sheets("feuill1"): un rien m'arrête, mais je persiste quand même). Mille merci.
"LSteph" a écrit dans le message de news:
Bonjour, (Pas la peine de faire un autre fil!!!) Comme je te le disais c'est pour les versions récentes en param de protect si tu es en 2000 cela ne va pas .
Ceci devrait fonctionner (marche avec 97 et 2003) en supposant Feuil1 et titres en rows(1) se déclenche à l'ouverture à mettre
'************ 'dans Thisworkbook '**** Private Sub Workbook_Open()
With Feuil1 If Not .AutoFilterMode Then .Rows(1).Select Selection.AutoFilter
End If .Protect Contents:=True, UserInterfaceOnly:=True .EnableAutoFilter = True End With End Sub '*********
'lSteph
"ManBas" a écrit dans le message de news:
Re-bonjour les amis, Le fil du jour (même titre) ne m'a pas apporté la solution car: - ma version est XL2000, - j'ouvre le filtre d'abord et je protège ensuite et ça ne fonctionne pas quand même, - je ne parviens pas à utiliser allowfiltering=true.