Activation checkbox à partir d'un chiffre

Bonjour, j'aimerais savoir si c'est possible d'activer automatiquement un checkbox à partir d'un chiffre. En fait, un chiffre de 1 à 4 chiffres pour ouvert, coché, barré, et coché barré. http://img177.imageshack.us/img177/2...oxesaw4.th.jpg

Donc ça ressemblerais à quelque chose comme ca, je ne sais juste pas dans quelle fonction mettre ce code pour qu'il modifie la checkbox automatiquement lorsqu'il y a un chiffre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sheets("Feuil2").Select '*** Ouvert ***' If Sheets("Feuil2").Cells(10, 1).Value = 1 Then Sheets("Feuil1").CheckBox5.Enabled = True Sheets("Feuil1").CheckBox5.Value = False End If '*** Coché ***' If Sheets("Feuil2").Cells(10, 1).Value = 2 Then Sheets("Feuil1").CheckBox5.Enabled = True Sheets("Feuil1").CheckBox5.Value = True End If '*** Barré ***' If Sheets("Feuil2").Cells(10, 1).Value = 3 Then Sheets("Feuil1").CheckBox5.Enabled = False Sheets("Feuil1").CheckBox5.Value = False End If '*** Coché barré ***' If Sheets("Feuil2").Cells(10, 1).Value = 4 Then Sheets("Feuil1").CheckBox5.Enable = False Sheets("Feuil1").CheckBox5.Value = True End If

---

Merci pour l'aide.

Bonjour (voir Bonne nuit),

Pour faire simple

Code:

---

1 2 3

valChk=[Feuil2!A10] CheckBox5.Enabled=cbool(valChk-1) CheckBox5.Value=cbool(valChk-3)

---

Merci pour ta réponse, mais j'ajoute ce bout de code où?

dans Private Sub CheckBox5_Click() ?

Désolé,
je n'avais copié que le principe - en fait dans ce cas précis, il faudrait utiliser le module de code de la feuille.
Le select case est indiqué dans le cas d'autre traitement similaire

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$A$10" CheckBox5.Enabled = CBool(Target.Value - 1) CheckBox5.Value = CBool(Target.Value - 3) End Select End Sub

---

J'ai créer un module et j'ai copier ce code mais d'après moi le lien ne se fait pas correctement...

Voici un plan de ce que je veux faire je sais pas si ça peut t'aider à comprendre pcq moi je suis pas sûr de ce que je fais en VBA.

merci!

Pas dans un nouveau module -
dans le module de la feuille identifiée «Feuil5(Feuil1)»

Salut,

J'ai mis ton code dans dans le module de la Feuil5(Feuil1)
mais toujours rien...

Toi ça fonctionne?

Les chiffres se trouvent sur la feuille 2 alors que les checkbox se trouve sur la feuille 1, serait-ce le lien entre les deux qui n'est pas correct?

Merci! avec ton bout de code j'ai réussi a rafistoler mon programme mais quelqu'un pourrais me dire svp quelle est la l'utilité du -3 et du -1 car selon ma légende (image en haut), les crochets et les gris ne correspondent pas au numéros.

CBool(Target.Value - 1) ?
CBool(Target.Value - 3) ?

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$A$10" Sheets("Feuil1").CheckBox5.Enabled = CBool(Target.Value - 1) Sheets("Feuil1").CheckBox5.Value = CBool(Target.Value - 3) End Select End Sub

---

merci...

Bonjour,

cbool convertit toute valeur numérique en valeur booléenne.
toute valeur nulle est ainsi convertie en False et toute valeur <> 0 est convertie en True.

Soit RE le résultat de la différence entre ta valeur et 1 et RC celui de la différence entre ta valeur et 3

Selon, donc, la valeur de ton paramètre Target, sa propriété Enabled sera True (si RE <> 0) ou False (si RE = 0) et ta checkbox sera cochée (si RC <> 0) ou non (si RC = 0)