Christian3000
XLDnaute Nouveau
Bonjour à tous,
Voici un petit problème que j'aimerais vous soumettre.
J'ai créé une case à cocher ("Case1") à partir du menu formulaire et je voudrais qu'en cochant la case, une cellule prédéfinie se colore. Lorsqu'on décoche la case, j'aimerais que la cellule prédéfinie retrouve sa couleur d'origine.
J'ai essayé cela mais ça ne marche pas:
Sub test()
If ActiveSheet.Shapes("Case1").ControlFormat.Value = 1 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = xlnone
End If
End Sub
Est-ce que quelqu'un a une idée?
Salutations à tous,
Christian
Voici un petit problème que j'aimerais vous soumettre.
J'ai créé une case à cocher ("Case1") à partir du menu formulaire et je voudrais qu'en cochant la case, une cellule prédéfinie se colore. Lorsqu'on décoche la case, j'aimerais que la cellule prédéfinie retrouve sa couleur d'origine.
J'ai essayé cela mais ça ne marche pas:
Sub test()
If ActiveSheet.Shapes("Case1").ControlFormat.Value = 1 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = xlnone
End If
End Sub
Est-ce que quelqu'un a une idée?
Salutations à tous,
Christian