Est-ce Possible?

Bonjour le forum

Dans la macro ci-dessous (Double clic cellule A2) est-ce possible de faire masquer automatiquement une ligne ou des lignes lorsqu'une cellule ou des cellules est (sont) occupée (exemple cellule E12) donc ligne E12?

12:16 18:24 etc.. correspondent à des domaines

Merci à vous

Cordialement

Sub AfficherMasquerLignes()
ActiveSheet.Unprotect
Range("12:16,18:24,25:31,38:38,42:46,48:54,55:61,68:68,72:76,78:84,85:91,98:98,102:106,108:114,115:121").EntireRow.Hidden = Not Range("15:15").EntireRow.Hidden
'Mettre la 1ère ligne 15 masquée ou à masquer dans Not Range("15:15").EntireRow.Hidden
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
    Scenarios:=True
End Sub

Macro Double Clic dans feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
      If Not Target.Comment Is Nothing Then
        If Not Intersect(Target, [A2:A8]) Is Nothing Then
            Call AfficherMasquerLignes
        ElseIf Not Intersect(Target, [F2:F8]) Is Nothing Then
            Call LignesRegularisationColonnesExplications
          End If
        End If
        Cancel = True
End Sub

Bonjour,

je pense qu'il faudrait que tu mettes un titre plus spécifique à ta question.

Bonjour Steelson

Voici le fichier "dégraissé"

Si je mets 100 dans cellule E12 (exemple) est-il possible en faisant Double clic (Cellule A2) de fermer tous les domaines (Paiements ou Régularisations en + ou -) sauf la ligne 12 (pour cet exemple ou plus)?

Merci à vous

Bonjour Al87,

Voici ton code modifié

Sub AfficherMasquerLignes()
  Dim lRng As Range
  ActiveSheet.Unprotect
  ' Pour chaque ligne
  For Each lRng In Range("12:16,18:24,25:31,38:38,42:46,48:54,55:61,68:68,72:76,78:84,85:91,98:98,102:106,108:114,115:121").Rows
    If Range("E" & lRng.Row) <> "" Then
      Rows(lRng.Row).EntireRow.Hidden = Not Rows(lRng.Row).EntireRow.Hidden
    End If
  Next lRng
  'Mettre la 1ère ligne 15 masquée ou à masquer dans Not Range("15:15").EntireRow.Hidden
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

A+

Bonjour BrunoM45

Je pense, que je me suis mal exprimé (vous avez l'habitude maintenant!!!)

Ce que je veux c'est que si je double clic sur cellule A2 reste visible que les lignes qui ont quelque chose dans colonne E

Merci à toi

Cordialement

Et bien tu change le test

al87 a écrit :

Bonjour Steelson

Voici le fichier "dégraissé"

Car cela dessert tout le monde y compris toi indirectement car en cas de recherche ce topic ne sera jamais pris en compte.

Ok mais on fait comment pour modifier le titre?

Re,

al87 a écrit :

Ok mais on fait comment pour modifier le titre?

Tu édites ton 1er poste et tu peux le changer

Ma réponse ne te convient pas

BrunoM45 a écrit :

Ma réponse ne te convient pas

Ma ligne 12 est masquée et non visible et toutes les autres sont visibles

Re,

Tu sais lire le français ou pas ?

Ma réponse suivante est : tu changes le test

Bonjour BrunoM45

Merci pour ta réponse

Bonne journée

Cordialement