Masquer Colonne avec condition par formulaire

Bonjour

J'ai essayé ca mais ca ne fonctionne pas

C'est à dire ? Il faudrait votre fichier...

Puis votre macro est déclenchée par quelle action ?

Voici le fichier,

La macro est déclenché

par les optionsbouton

Modifiez votre code comme ceci

Sub Mode_Compta_1()
With Sheets("RdV")
    If .ComboBox1.Value = "OUI" Then
        .Range("B:CS").EntireColumn.Hidden = False
      '  Si Lundi = Oui
        .Range("J:Q,Z:AG,AP:AW,BF:BM,BV:CC,CL:CS").EntireColumn.Hidden = True
        .Rows("2:3").Hidden = False
        .Rows("3:3").Hidden = True
    '  Si Lundi = Non
    Else
        .Range("B:CS").EntireColumn.Hidden = False
        .Range("B:Q,Z:AG,AP:AW,BF:BM,BV:CC,CL:CS").EntireColumn.Hidden = True
        .Rows("2:3").Hidden = False
        .Rows("3:3").Hidden = True
    End If
End With
End Sub

Merci,

Par contre que je mette Oui ou Non dans la textbox il cache toujours le Lundi

EDIT:

j'ai remplacé OUI par Oui et c'est Ok!

Merci!

Vous pouvez modifier comme ceci dans le code -->

Ucase(.ComboBox1.Value) = "OUI"