Discussion :

[dsbk7]

Bonjour, j'ai un tableau avec differentes catégories alimentaires : fromages, poissons, viandes ect... et je voudrais avoir la possibiliter d'afficher masquer les lignes de chaque "groupes" avec un bouton macro. Alors j'ai fait des essais mais ca ne fonctionne pas parfaitement.

C'est à dire le bouton que j'ai créé ne fonctionne qu'avec la fonction grouper degrouper et je suis obligé de le positionner sur la première case qui se masque donc pas pratique...

Pouvez-vous m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub PlanLig()
   Dim Sh As Shape
   Dim Action As String
 
  Set Sh = ActiveSheet.Shapes(Application.Caller)
  Action = Sh.TextFrame.Characters.Text
  If Action = "ON" Then
    Sh.Fill.ForeColor.RGB = RGB(255, 0, 0)
    Sh.TextFrame.Characters.Text = "OFF"
  Else
    Sh.Fill.ForeColor.RGB = RGB(0, 255, 0)
    Sh.TextFrame.Characters.Text = "ON"
  End If
  On Error Resume Next
  Rows(Sh.TopLeftCell.Row).ShowDetail = Not Rows(Sh.TopLeftCell.Row).ShowDetail
  If Err.Number <> 0 Then
    MsgBox "Le bouton est mal placé"
  End If
End Sub

[Igloobel]

Salut,

la fonction "sous-total" ne te suffit pas ? Parce ça regroupe, cela fait des sommes et tout... et tout ... cela fait même du multi niveaux


a bientôt

[dsbk7]

En fait le tableau est partagé avec des personnes très réticentes à l'informatique est se retrouver avec un plus pas en face de la catégories risque d'être particulièrement difficile à appréhender. Voici le fichier afin de mieux cerner mon problème.

Merci d'avance
Classeur1.xls

[Marc-L]

Bonjour, bonjour !

Tel que présenté, il n'y a rien à programmer, suffit d'utiliser les icônes créées par l'action de Grouper …

[dsbk7]

bonjour désolé pour la réponse tardive, je rentre de vacances...

alors le problème vient du fait que le petit plus pour développer un groupe ne se trouve pas en face du titre du groupe qui lui reste affiché en permanence.

Voilà pourquoi je souhaite vraiment utiliser un bouton macro.

Ca sera plus parlant comme-ca :

Alim2014 test.xlsm

J'ai pensé à une autre solution qui serait de cliquer sur chaque titre pour ouvrir le groupe.