Discussion :

[jp222]

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é.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[DarkVader]

Bonjour (voir Bonne nuit),

Pour faire simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jp222]

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

dans Private Sub CheckBox5_Click() ?

[DarkVader]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jp222]

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!

[DarkVader]

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

[jp222]

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?

[jp222]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[ucfoutu]

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)