Grouper Dissocier dans une feuille protégée

Bonjour,

Pour être plus précis sur ma demande : le fichier va être partagé avec un certain nombres d'utilisateurs et j'ai besoin de protéger beaucoup de formules.
Le fichier contenant énormément de lignes il faut que je puisse grouper dissocier pour éviter de défiler à la souris sur des centaines de lignes.

La manipulation que j'ai lu était la suivante. J'ai essayé mais ça ne marche pas sur mon fichier.

Avec VBA

Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub

Je suis donc bloqué...

Bonjour,

Le code que tu donnes ne peut en aucune manière te permettre tes groupages. Tu peux le modifier ainsi :

Private Sub Workbook_Open()
With Worksheets("Feuil1")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect "1234", , True, , True
End With
End Sub

Je te propose ces 2 macros à mettre dans un module standard et que tu peux associer à des raccourcis (ctrl+g / ctrl+d par exemple) : pour grouper, tu sélectionnes tes lignes et ctrl+g et idem pour dissocier

Public Sub grouper()
    ActiveSheet.Unprotect "1234"
    Selection.Rows.Group
    ActiveSheet.EnableOutlining = True
    ActiveSheet.Protect "1234", , True, , True
End Sub

Public Sub degrouper()
    ActiveSheet.Unprotect "1234"
    Selection.Rows.Ungroup
    ActiveSheet.EnableOutlining = True
    ActiveSheet.Protect "1234", , True, , True
End Sub

Tu remplaces 1234 par ton mot de passe bien sûr.