Gouper et dégrouper en fonction d'une couleur

bonjour

dans le fichier joint suivant

les lignes sont groupées dégroupées en fonction d'un double clic sur cellule

ex double clic sur F9 pour déployer les lignes 10 à 63

peut on suite à un double clic sur F9 couleur orange de déployer les lignes jusquà la prochaine cellules oranges F64

et aisni dans un fichier avec un grand nombre de ligne d'avoir à saisir toutes les lignes groupées

merci à ceux que ce problème intéresse de leur aide

Bonjour

A vérifier

Remplace la macro actuelle par celle-ci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  On Error Resume Next
  If Rows(Target.Row + 1).Hidden = True Then
    ActiveSheet.Rows(Target.Row).ShowDetail = True
  Else
    ActiveSheet.Rows(Target.Row).ShowDetail = False
  End If
  On Error GoTo 0
End Sub

merci beaucoup Banzai 64

cela marche dans le fait de déployer dans l'ordre les différentes lignes

tout en sachant qu'il faut un double clique en ligne 64 pour ouvrir les lignes supérieurs 9 à 64

(l'idéal serait de cliquer sur la première ligne pour déployer l'ensemble des lignes)

quand je double clic sur la ligne service 02 service 01 s'ouvre,service 03 service 02 s'ouvre, ...

et ainsi de suite

par contre si je double clic dans le désordre

par exemple dans service 04 service 03 s'ouvre et service 03 pour que service 02 s'ouvre cela ne marche pas

et le dernier point comment grouper à nouveau les lignes dégrouper

est ce que le double clic dans colonne F pourrait permettre de déployer et double clic dans colonne G peut permettre le regroupement .

encore merci de l'aide que tu peux m'apporter (fichier joint mis à jour)

Bonjour

Je ne sais pas ce qui s'est passé

Essaye avec cette macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  On Error Resume Next
  If Rows(Target.Row + 1).Hidden = True Then
    ActiveSheet.Rows(Target.Row+ 1).ShowDetail = True
  Else
    ActiveSheet.Rows(Target.Row+ 1).ShowDetail = False
  End If
  On Error GoTo 0
End Sub

BANZAI 64

merci beaucoup pour ce coup de main,je suis très reconnaissant

merci de faire vivre ce forum

pour le forum

contrairement au titre ,peut importe la couleur des cellules

la macro de banzai 64 permet de "lire" si les cellules sont groupées et en cas de clic sur une des cellules du groupe, la macro ouvre ou ferme le groupe en fonction de l'état précédent.donc il faut grouper les lignes désirées

si la feuille est protégée par le mot de passe "test" , et que le double clic ne doit avoir lieu que dans la colonne F j'ai trouvé cette solution merci à Banzai 64 de me corriger s'il y a plus simple

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ActiveSheet.Unprotect "test"
  If Not Application.Intersect(Target, Range("F9:F300")) Is Nothing Then
  Cancel = True
  On Error Resume Next
  If Rows(Target.Row + 1).Hidden = True Then
    ActiveSheet.Rows(Target.Row + 1).ShowDetail = True
  Else
    ActiveSheet.Rows(Target.Row + 1).ShowDetail = False
  End If
  End If
  On Error GoTo 0
  ActiveSheet.Protect "test", True, True, True
End Sub