CheckBox - cocher selon valeur en automatique

Bonjour la communauté !

Dans le cadre de la création d'un fichier type, je fais appel à vous concernant le module CheckBox.

J'aimerai qu'en dessous d'un certain seuil, ma checkbox s'active.

Mon exemple est le suivant :

Private Sub CheckBox1_Click()

If Range("B26").Value < 6 Then

CheckBox1.Value = True

Else

CheckBox1.Value = False

End If

End Sub

Jusque la ça marche si j'appuie sur le bouton associé à ma macro, mais j'aimerai que ça se lance sans appuyer sur le bouton (en automatique).

La fonction worksheet_change(byval target as range) à l'air de faire des merveilles pour faire cela mais je n'arrive pas à associer cela à ma checklist

Avez-vous une idée pour faire marcher cela ?

Merci d'avance

Bonjour le forum

Bonjour HugoSo

C'est la même chose :

[code

]Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B26").Value < 6 Then

CheckBox1.Value = True

Else

CheckBox1.Value = False

End If

End Sub

[/code]

Bonjour,

Effectivement, cela marche avec votre fichier mais quand j'essaye de la lancer (F5), excel me demande le nom de la macro. J'ai l'impression qu'elle n'est pas enregistré en tant que macro..

Faut-il uniquement la rentrée dans Feuil1 et sortir sans lancer?

Merci

Bonjour le forum

Bonjour HugoSo

Ce n'est plus une macro mais un code attaché à ta feuille qui se déclenche lors de la saisie d'une valeur en B26.

Re le fil,

Pour modifier, par exemple la valeur de la cellule B26, tu vas sous VBE (Alt+F11), double click sur Feuil1 et tu auras ton code à droite.

@+