Discussion :

[cagodue]

Bonjour, j'ai un menu déroulant et je veux aller lire des données d'une colonne et activer un checkbox.

Si le texte est "OUI" je veux que la valeur de mon checkbox soit True, sinon, peu importe le texte autre, la valeur à Non.

Voici mon code

Code :

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

1
2
3
4
5
6
   Me.Controls("CheckBox2") = Ws.Cells(Ligne, 3)
  If Me.Controls("CheckBox2").Value = "OUI" Then
   Me.Controls("CheckBox2").Value = True
   Else
   Me.Controls("CheckBox2").Value = False
   End If

J'essaye de faire des recherches mais sans succès. Avez-vous une idée ?

[unparia]

Bonjour
La valeur d'une checkbox ne peut être "OUI" et cette condition :

Code :

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

If  If Me.Controls("CheckBox2").Value = "OUI" Then = "OUI" Then

ne rissque bien évidemment pas d'être vérifiée.

Ce devrait être du genre :

Code :

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

1
2
3
4
5
If toto = "OUI" then
  Me.Controls("CheckBox2").Value = true 
else
   Me.Controls("CheckBox2").Value = false
end if

qui pourrait plus simplement s'exprimer sous cette forme :

Code :

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

Me.Controls("CheckBox2").Value = toto = "OUI"

[eriiic]

Bonjour,

Code :

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

Me.Controls("CheckBox2").Value = Ws.Cells(Ligne, 3).Value = "OUI"

eric
Edit : Ah, je suis en retard.

[cagodue]

Merci, ça fonctionne bien !