Masquer une forme en fonction d'une cellule

Bonjour à tous,

J'ai une zone qui affiche certaines données. Cette zone est mise en avant par une forme ( rectangle par ex)..

Les cellules de la zone sont affichées en fonction de la cellule A1.

Si A1=1 les cellules sont visibles, si A1<>1 le contenu des cellules est masqué.

La MFC appliquée ne me pose pas de problème.

Mais.... comment faire en sorte que la forme soit elle aussi masquée ou affichée en fonction du contenu de la cellule A1 ?

Par avance je vous remercie pour vos précieux conseils !

Cordialement.

JFL

Bonjour

La Forme est nommée MaForme

code de Feuille1

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then
Shapes("MaForme").Visible = True
ElseIf [A1] <> 1 Then
Shapes("MaForme").Visible = False
End If
End Sub

Cordialement

103masqueforme.zip (7.18 Ko)

C'est tout simplement.......... parfait !

Grand merci à vous.

Cordialement.

JFL

Rechercher des sujets similaires à "masquer forme fonction"