case à cocher formulaire

[Christian3000]

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

 

[pierrejean]

Re : case à cocher formulaire

bonjour Christian

Si ta case a cocher se nomme bien Case 1 , ta macro devrait fonctionner
Entre parenthese que signifie "ça ne marche pas" ?

 

[Christian3000]

Re : case à cocher formulaire

Bonjour,

En fait je reçois le message d'erreur suivant:

Erreur d'exécution 5:
Argument ou appel de procédure incorrect

Une idée?!

 

[pierrejean]

Re : case à cocher formulaire

Re

toujours la même: controler le nom de la case a cocher
voir fichier joint

 

[Christian3000]

Re : case à cocher formulaire

Merci pour ton exemple, ça marche effectivement très bien. Je pense que mon problème vient effectivement du fait de pas avoir nommer correctement la checkbox.

Peux-tu m'expliquer comment faire? (J'ai fait avec insertion/nom)

Merci!

 

[pierrejean]

Re : case à cocher formulaire

Re
Une possibilité:
Outils>macro>nouvelle macro
selectionner la case a cocher (click droit)
Outils>macro>arreter l'enregistrement
Aller voir la macro créée dans laquelle l'enregistreur a mentionné le nom de la case a cocher

 

[Christian3000]

Re : case à cocher formulaire

D'accord, je vais faire ça.
Grand merci pour ton aide et très bonne continuation!
Christian