VBA : masquer/cacher résultat d'une seule cellule en fonction d'une autre cellule ?

[Ikeagirl]

Bonjour à tous,

Je souhaiterais savoir s'il est possible de masquer / cacher le résultat d'une cellule en fonction de la valeur qu'on entre dans une autre cellule.

J'ai déjà une macro "If - then - else" dans une autre feuille qui fonctionne très bien, mais uniquement pour masquer des lignes ou des colonnes. Cette fois-ci, j'en aurais besoin pour masquer une seule cellule... Est-ce au moins possible de le faire ?

Pour exemple, voici la macro que j'utilise pour masquer les lignes, mais que je n'arrive pas à adapter au masquage d'une seule cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("N16")) Is Nothing Then
If Range("N16") = "NON" Then
Rows("31:34").EntireRow.Hidden = True
Else
Rows("31:34").EntireRow.Hidden = False
End If
End If
End Sub

Merci beaucoup pour votre aide,

Ikeagirl

 

[Gael]

Re : VBA : masquer/cacher résultat d'une seule cellule en fonction d'une autre cellul

Bonjour Ikeagirl,

Il n'y a pas de fonction pour masquer le contenu d'une cellule, mais tu peux utiliser la couleur de police en mettant la même couleur que le fond.

Si ta cellule a un fond de couleur blanche, le code couleur est 2 et tu peux modifier ta procédure en mettant:

If Range("N16") = "NON" Then
    Target.Font.ColorIndex = 2
    Else
    Target.Font.ColorIndex = xlAutomatic
    End If

Si ta cellule a un fond de couleur différente, tu remplaces 2 par le code couleur correspondant. Tu peux trouver les codes couleur simplement en utilisant l'enregistreur de macros.

@+

Gael