Discussion :

[tibss]

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

[tibss]

Cela ne vient pas des cases à cocher ou des cases à option, mais plutôt de ma condition :

Code :

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

If Feuil_2.Cells(9, 2).Value = FAUX

et

Code :

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

If Feuil_2.Cells(9, 2).Value = VRAI

Je ne sais pas comment spécifier une équivalence avec une chaine de caractère...

[EngueEngue]

Tout d'abord:
Feuil_1.Cells(1.1).Value = "Non"

Code :

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

Feuil_1.Cells(1,1).Value = "Non"

Puis:

Code :

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

If Feuil_2.Cells(9, 2).Value = False then

[d0n32]

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
 
 
 If Feuil_2.Cells(9, 2).Value =  2 Then
 Feuil_1.Cells(1.1).Value = "Oui"
 End If

Quand tu dis que cela fonctionne, cela veut-il dire que tu as bien le texte Oui, qui apparait dans ta cellule A1 avec le code ci-dessus par exemple ? Je suis surpris, puisque comme l'a fait remonter EngueEngue, la syntaxe est erronée : attention aux points et aux virgules, ainsi qu'à la distinction string/booléen

[tibss]

Merci à tous pour votre aide, je suis passé par une étape intermédiaire en affectant un nombre à une cellule en fonction du retour "vrai" ou "faux".. Et en mettant ma condition après

Tibss