Titre du sujet : Re: Cacher case d'option (Contrôles de formulaire) par JeanMarie le 15/03/2012 07:16:16
Bonjour Targa, Didier, le Fourm
Pour résoudre ton problème, colle ce code dans la feuille "Feuil1"
Private Sub Worksheet_Change(ByVal Target As Range)
'Code exécuter lors d'un changement dans la valeur d'une cellule quelconque de la feuille
'La cellule H6 fait-elle partie de la ou des cellules modifiées
'l'objet Target représente les cellules modifiées
If Not Application.Intersect(Target, Range("H6")) Is Nothing Then
'La cellule H6 est ou fait partie des cellules modifiées
'Test de la valeur de la cellule H6,
'ne pas utiliser l'objet Target, un message d'erreur est retourné si Target représente une plage de cellules
If Range("H6") = "Argus" Then
MacroVisibleOui
Else
MacroVisibleNon
End If
End If
End Sub
Et tu dois changer le code du module 1
Sub MacroVisibleOui()
ActiveSheet.Shapes("Case d'option 1").Visible = True
End Sub
Sub MacroVisibleNon()
ActiveSheet.Shapes("Case d'option 1").Visible = False
End Sub
Dans ton cas, tu ne peux pas utiliser une "toupie" Masquer/Afficher.
@+Jean-Marie
|