Masquer Colonnes si cellule contient un mot/ d'après formule

Je crois que tu est un peu perdu avec Target...

Dans l'événement

WorkSheet_Change

, que tu as choisi, Target est la cellule dont tu changes la valeur par saisie. Autrement dit, avec une formule en A1 : =Si(A2=VRAI;"oui";"non"), la cellule susceptible de changer de valeur par saisie est la cellule A2.
A partir de là, ta procédure fonctionne avec le code que je t'ai donné :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2")) Is Nothing Then '<====ICI A2 au lieu de A1
    Columns("B:D").Hidden = IIf(Target.Offset(-1, 0) = "oui", True, False) '<== ICI ajout de l'Offset pour "cibler" A1
  End If
End Sub

Dans l'événement

Worksheet_SelectionChange

, Target correspond à la cellule que tu quittes, soit en validant par Entrée, soit par Tab, soit... Elle se déclenche à chaque fois que tu sélectionnes une autre cellule. Et Target est la cellule quittée.
Ok?
Donc pour ton cas, supposons que la cellule "quittée" est A2, cela donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2")) Is Nothing Then '<====ICI A2 au lieu de A1
    Columns("B:D").Hidden = IIf(Target.Offset(-1, 0) = "oui", True, False) '<== ICI ajout de l'Offset pour "cibler" A1
  End If
End Sub

Note : les codes sont identiques car Target est la même. Mais on pourrait également supposer que la Target du second exemple soit B26. Auquel cas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B26")) Is Nothing Then '<====ICI B26 au lieu de A1
    Columns("B:D").Hidden = IIf(Target.Offset(-25, -1) = "oui", True, False) '<== ICI ajout de l'Offset pour "cibler" A1
  End If
End Sub

Tu n'aurais pas pu le dire plus tôt.................


Il suffit d'affecter une macro à ta case à cocher (clic droit sur la case et Affecter une macro)
dont voici le code :

Sub Caseàcocher1_Cliquer()
Columns("B:D").Hidden = IIf([A1] = "oui", True, False)
End Sub

Pas testé...
Ceci fonctionne :

Sub Caseàcocher1_Cliquer()
Columns("B:D").Hidden = IIf([A2] = True, True, False)
End Sub

Ou plus simple encore :

Sub Caseàcocher1_Cliquer()
Columns("B:D").Hidden = [A2]
End Sub

Bonjour,

Cette question est ici Hors Sujet.
Il convient de la reformuler, soit en cherchant si elle n'a pas déjà été posée auparavant, soit en créant un nouveau sujet.