Microsoft 365 Liste déroulante auto-filtrante dans une feuille protégée

PatyouExcel · 18 Juin 2021

Bonjour à Toutes et tous,
J'ai programmé en VBA, une liste déroulante auto-filtrante pour des données.
Je l'utilise dans une autre feuille pour choisir des données dans une liste.
J'ai déclaré le format de la cellule où la liste est utilisée avec une protection de cellule déverrouillée pour permettre de choisir

soit en faisant défiler la liste
Soit en auto-filtration (je tape dans la cellule un mot et il me montre uniquement les données de la liste commençant par ce mot)

Lorsque je verrouille ma feuille, je peux faire défiler ma liste et choisir une donnée. Par contre, la fonction auto-filtrante ne fonctionne plus.

Quelqu'un (e) aurait-elle (il), une astuce pour me sortir de ce piège ?

Merci d'avance de votre aide

Phil69970 · 18 Juin 2021

Bonjour @PatyouExcel, le forum

Bienvenu sur Xld
Une piste à ton problème :
Dans ThisWorkbook

VB:

Private Sub Workbook_Open()
Sheets("Nom de ta feuille").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub

Merci de ton retour

@Phil69970

soan · 18 Juin 2021

Bonjour Phil, Patyou,

moi, je connais les fours auto-filtrants et auto-nettoyants ; il me semble bien que les reins aussi ont une fonction auto-filtrante ; par contre, en cas de calculs rénaux, c'est vraiment pas top !

soan

Etoto · 18 Juin 2021

Bonjour à tous et re Patyou

soan à dit:
Bonjour Phil, Patyou,

moi, je connais les fours auto-filtrants et auto-nettoyants ; il me semble bien que les reins aussi ont une fonction auto-filtrante ; par contre, en cas de calculs rénaux, c'est vraiment pas top !

soan

Soan tu veux que je te paies un filtre ? Je connais du lave-glace pas cher, et perso les calculs, je préfère les avoirs dans une calculette

VB:

Private Sub Workbook_Open()
Sheets("Nom de ta feuille").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub

D'ailleurs Patyou, le code de Phil fonctionne ?

PatyouExcel · 18 Juin 2021

Phil69970 à dit:
Bonjour @PatyouExcel, le forum

Bienvenu sur Xld
Une piste à ton problème :
Dans ThisWorkbook

VB:

Private Sub Workbook_Open() Sheets("Nom de ta feuille").Select ActiveSheet.EnableAutoFilter = True ActiveSheet.Protect contents:=True, userInterfaceOnly:=True End Sub

Regarde la pièce jointe 1108802
Merci de ton retour

@Phil69970

Bonjour Phil69970,

J'ai essayé ta solution mais cela ne marche toujours pas.
Dans mon workbooksheet, je fais des actions sur la feuille sommaire, ensuite je reste sur la feuille sommaire (pour savoir comment utiliser le recherche) ou directement sur la feuille recherche
Je t'envoi le code tapé
Merci d'avance

Etoto · 18 Juin 2021

PatyouExcel à dit:
Bonjour Phil69970,

J'ai essayé ta solution mais cela ne marche toujours pas.
Dans mon workbooksheet, je fais des actions sur la feuille sommaire, ensuite je reste sur la feuille sommaire (pour savoir comment utiliser le recherche) ou directement sur la feuille recherche
Je t'envoi le code tapé
Merci d'avance

Re,

Dans ce cas, autant nous envoyer le classeur Excel aussi, sans données confidentielles.

PatyouExcel · 18 Juin 2021

Bonjour Phil69970,

J'ai essayé ta solution mais cela ne marche toujours pas.
Dans mon workbooksheet, je fais des actions sur la feuille sommaire, ensuite je reste sur la feuille sommaire (pour savoir comment utiliser le recherche) ou directement sur la feuille recherche
Je t'envoi le code tapé
Merci d'avance

Etoto · 18 Juin 2021

Re,

Tu viens d'envoyer un post doublon.

PatyouExcel · 18 Juin 2021

Désolé, je débute sur le forum

Etoto · 18 Juin 2021

PatyouExcel à dit:
Désolé, je débute sur le forum

Re,

Pas de problème, y'a pas mort d'homme

Phil69970 · 18 Juin 2021

Re

Désolé mais une image dans word ne me sert à rien.
Quand on parle de fichier c'est le fichier excel sans donnée confidentiel avec la problématique rencontrée pour pouvoir la reproduire et essayer de trouver une ou des solutions.

@Phil69970

Etoto · 18 Juin 2021

Phil69970 à dit:
Re

Désolé mais une image dans word ne me sert à rien.
Quand on parle de fichier c'est le fichier excel sans donnée confidentiel avec la problématique rencontrée pour pouvoir la reproduire et essayer de trouver une ou des solutions.

@Phil69970

Re,

D'ailleurs pour info, les post peuvent avoir des images en pages jointes, pas besoin de la mettre dans un document Word.

PatyouExcel · 18 Juin 2021

Phil69970

je dois résoudre mon problème de liste autofiltrante sur les listes NOM (INCI) et N° CAS pour une recherche de substances. Lorsque je protège ma feuille, le fonction auto-filtrante des listes ne fonctionne plus.
Je t'envoi mon fichier comme demandé

Etoto · 18 Juin 2021

Re,

Ton fichier est en partie protégé et je n'arrive pas à trouver la liste source à ta validation des données et je sais pas si ton fichier contient des données confidentielles.

EDIT : Elle est où la la liste source ?

soan · 18 Juin 2021

Re,

c'est peut-être une des nombreuses options à cocher lors de la protection d'une feuille de calcul ?

genre UserInterfaceOnly, ou autre... ; mais j'm'y connais pas bien là-dessus...

soan

Microsoft 365 Liste déroulante auto-filtrante dans une feuille protégée

PatyouExcel

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

PatyouExcel

XLDnaute Nouveau

Pièces jointes

Etoto

XLDnaute Barbatruc

PatyouExcel

XLDnaute Nouveau

Pièces jointes

Etoto

XLDnaute Barbatruc

PatyouExcel

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

PatyouExcel

XLDnaute Nouveau

Pièces jointes

Etoto

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Discussions similaires