Afficher / Masquer par double clic

Bonsoir le forum

Je voudrais afficher masquer par double clic cellule A3 les lignes A12:A13 A25:A26

Putain j'ai plus qu'un gros trou d'air

Merci pour vos éventuels retours

Cordialement

Bonsoir al87, le forum,

Peut-être ainsi:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
  Cancel = True
   Rows("12:13").Hidden = IIf(Rows("12:13").Hidden = True, False, True)
   Rows("25:26").Hidden = IIf(Rows("25:26").Hidden = True, False, True)
 End If
End Sub

Cordialement,

Bonsoir xorsankukai

Mais quel C$N je l'avais mis dans ThisWorkbook alors que j'ai qu'une feuille

Nickel ça fonctionne

Merci à toi et bonne fin de soirée

Cordialement

Salut,

Je ne connais pas la configuration de ton fichier, mais une telle commande devrait être au niveau des menus non?

Bonsoir …

Hé oui, une évènementielle s’écrit dans la fenêtre des codes de la feuille !

Pour l’exemple, une autre proposition avec l'utilisation du Not :

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
   If R.Address <> "$A$3" Then Exit Sub
   Cancel = Not Cancel
   Rows("12:13").Hidden = Not Rows("12:13").Hidden
   Rows("25:26").Hidden = Not Rows("25:26").Hidden
End Sub

Bonjour Ordonc

Super aussi. Je prends note

Merci à toi

Bonne journée

Cordialement