AffichageOuiNon multiples

Bonjour,

J'arrive à faire AffichageOuiNon à partir d'une cellule !

Mon souci c'est que j'aimerais avoir 3 cellules voire plus pour avoir des variantes et là... je cale.

Le tableur joint explicite cela.

Cordialement

Bonjour

Ton fichier en retour

Code Feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("B2,B3,B4"), Target) Is Nothing Then
    Call Afficher_Tout

    If Target = Range("B2") Then Range("E:I").EntireColumn.Hidden = True And Range("J:L").EntireColumn.Hidden = False
    If Target = Range("B3") Then Range("J:L").EntireColumn.Hidden = True And Range("E:I").EntireColumn.Hidden = False
    If Target = Range("B4") Then Range("E:L").EntireColumn.Hidden = True

  End If
End Sub

Code Module

Sub Afficher_Tout()
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub

Cordialement

Bonjour,

Ci-joint ton fichier test ...

RE,

Les 2 propositions sont superbes, je vais pouvoir continuer et le cas échéant en créer d'autres (je pense avoir compris les codes)

Le détail auquel je n'ai pas pensé, serait d'avoir un affichage de TOUT.....

J'ai tenté en mettant "" pour les colonnes à masquer mais cela ne marche pas !

Le bon code est ?

Cordialement

Bonjour

Le code du Module 1 fait cela très bien

ou

avec une ligne de plus dans le Private (et rajout de B5 dans le Target)

Cordialement

Ré,

Pour l'affichage de tout ... Tu as une macro prête ... Mais sans bouton ... Alt F8. AfficherTout ....

Bonsoir,

Que dire ? Sinon & puisque les 2 propositions sont bonnes

et

Je clos ce post.... en attendant le prochain.

Excellente soirée

Tonthon

Bonjour,

Merci pour tes remerciements ...