Bonjour à tous,

J'ai affecté une macro à une case à cocher.
Le problème est le suivant : lorsque je coche la cellule, il ne se passe rien, la valeur que je souhaite affecter à cells(1,1) ne s'affiche pas, et lorsque je décoche, la valeur de ma cellule cells(1,1) se met sur vrai.. (alors que la cellule liée est à vrai lorsque la "case à cocher" est cochée)

Voici mon code (nb : Feuil_2.Cells(9, 2).Value est ma cellule liée, Feuil_1.Cells(1, 1).Value est la cellule dans laquelle j'affiche ma donnée)

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
 
Sub test()
 Dim Feuil_1 As Worksheet
 Dim Feuil_2 As Worksheet
 
 Set Feuil_1 = ThisWorkbook.Sheets("Feuil1")
 Set Feuil_2 = ThisWorkbook.Sheets("Feuil2")
 
 If Feuil_2.Cells(9, 2).Value = FAUX Then
 Feuil_1.Cells(1.1).Value = "Faux"
 End If
 
 If Feuil_2.Cells(9, 2).Value = VRAI Then
 Feuil_1.Cells(1.1).Value = "Vrai"
 End If
 
End Sub
Pourtant, cela fonctionne avec les cases à option... Quelqu'un à une idée ?
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
 
Sub test()
 Dim Feuil_1 As Worksheet
 Dim Feuil_2 As Worksheet
 
 Set Feuil_1 = ThisWorkbook.Sheets("Feuil1")
 Set Feuil_2 = ThisWorkbook.Sheets("Feuil2")
 
 If Feuil_2.Cells(9, 2).Value =  2 Then
 Feuil_1.Cells(1.1).Value = "Oui"
 End If
 
 If Feuil_2.Cells(9, 2).Value = 1 Then
 Feuil_1.Cells(1.1).Value = "Non"
 End If
 
End Sub