J'ai besoin d'aide.  Je veux protéger une feuille tout en me servant du grouper.  Je sais qu'on peut le faire avec Visual Basic mais la procédure que j'avais n'était pas clair.  Est-ce qu'il y a quelqu'un qui peut m'aider avec une procédure plus facile à comprendre.

Merci de votre précieuse aide.

Volcano

Qu'est-ce que tu entends par feuille et Visual Basic ?
J'imagine que tu travailles sous Excel et VBA ? c'est ça ?

Quelle est cette procédure pas claire dont tu parles ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Bonjour et merci de prendre le temps de me répondre.

Dans Excel
Protégé des données
Grouper

Je veux pouvoir fermer et ouvrir le groupement même si les données sont protégés.

Il y avait une communication à ce sujet qui donnait la possibilité de le faire c'est en ouvrant Visual Basic et en changeant les paramètres. 

Est-ce que tu connais la réponse?

 Merci à l'avance

Volcano

Voici la procédure que je parlais qui n'était pas tellement clair, que j'ai vu dans les échanges sur la protection et le groupage dans Excel


ActiveSheet.EnableOutlining = True  'permet de garder la fonctionnalité PLANS
    ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowDeletingRows:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=True, _
        AllowFiltering:=True, AllowUsingPivotTables:=True

Le but c'est de protéger ton document avec ce code à chaque fois que tu l'ouvres, et tu ne devrais plus avoir de pb.

 Merci
Volcano

L'as-tu essayé cette procédure ?

Je viens d'essayer ceci que j'utilise pour laisser les filtres actifs même en mode protégé et ça fonctionne bien

À mettre dans ThisWorkbook... au cas où...

Private Sub Workbook_Open()
   
    ActiveSheet.Protect DrawingObjects:=True, _
        Contents:=True, Scenarios:=True, _
        userinterfaceonly:=True
    ActiveSheet.EnableOutlining = True      'pour les groupes
    ActiveSheet..EnableAutoFilter = True   'pour les filtres
End Sub

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Ce n'est pas le filtre avec la protection mais plutôt faire la fonction "Grouper" avec la fonction de "protection.

Je vais essayer ce que tu me propose!

Merci

Volcano