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)»