Masquer des lignes avec un double-clic

Bonsoir à tous,

je viens solliciter votre aide pour la conception d'un petit code.

Je vous explique, j'aimerai, en cliquant sur une case avec un nom, masquer les 5 lignes en dessous et en redouble cliquant sur la même case, qu'elles s'affichent à nouveau.

Une liste de noms serait en feuille 2, on pourrait en ajouter ou modifier ceux déjà existant...

Je vous envoi un exemple, en espérant que vous puissiez m'aider, bien cordialement,

Bonne fin de soirée,

Jj93

23test.xlsx (9.83 Ko)

Bonjour

A tester

Olala c'est super et avec une réactivité c'est magnifique lol

C'est exactement cela, merci beaucoup Banzai!!

Je voulais savoir également, n'y a t-il as un moyen de faire fonctionner la deuxième feuille avec la première?

Je m'explique, par exemple lorsque je rajoute un nom en dessous du dernier rentré en feuille 2, la première cellule de la dernière ligne vide de sur la feuille 1 inscrive le même nom et fusionne les cellules directement? ce qui automatiserai le tableur...

Qu'en penses-tu?

Merci de ta réponse...

Bonjour

A tester

Merci beaucoup Banzai c'est exactement cela !!!!

Merci, merci, merci !

J'avais une petit question, j'ai bien vu que pour la première feuille, le code marche pour 4 cellules fusionnées, celui-ci est donc modifiable

  If Target.Count = 4 And Target.MergeCells = True Then

Cependant si je veux changer et mettre 10, je comprend que pour le premier code j'ai juste à changer 4 pour 10 mais pour le second code de mise en forme automatique, je ne vois pas où cela doit être modifié??

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LgDep As Long

  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Columns("A"), Target) Is Nothing Then
    If Target.Row > 1 Then
      If Target.Offset(-1, 0) = "" Then
        MsgBox "Pas de ligne vide"
        Application.EnableEvents = False
        Target = ""
        Application.EnableEvents = True
        Exit Sub
      End If
    End If
      With Sheets("Test")
        LgDep = Target.Row * 6
        If Target = "" Then
          .Rows(LgDep & ":" & LgDep + 5).Delete
          Application.EnableEvents = False
          Target.Delete shift:=xlShiftUp
          Application.EnableEvents = True
        Else
          If .Range("A" & LgDep).MergeCells = True Then
            .Range("A" & LgDep) = Target
          Else
            .Rows(LgDep & ":" & LgDep + 5).Insert
            With .Range("A" & LgDep & ":D" & LgDep)
              .Merge
              .BorderAround Weight:=xlMedium
              .HorizontalAlignment = xlCenter
              .VerticalAlignment = xlCenter
              .Font.Bold = True
              .Font.Italic = True
            End With
            .Range("A" & LgDep) = Target
          End If
        End If
      End With
    End If

End Sub

C'est une petite question en plus, peut être ridicule, je ne sais pas... merci encore pour ton aide !!!

Bien cordialement !

Bonjour

C'est dans cette ligne colonne départ et colonne fin

 With .Range("A" & LgDep & ":[surligner=#FFFF80]D" & LgDep)

Merci beaucoup Banzai !!!

Très cordialement !

Rechercher des sujets similaires à "masquer lignes double clic"