Bonjour,

Pourriez vous m'aider. J'ai besoin de créer un code qui vérifie des données du type si une valeur est égale à oui alors les valeurs x, y et z sont égales à oui si non afficher un message.

Pourriez m'indiquer ce qui vient ci-dessous est conforme.....si non pouvez vous corriger ou me donner les bons opérateurs.

Merci par avance.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub TOTO_AfterUpdate()
If (bonbon.Value="oui" And gateau.Value="oui") Then
caramel.Value="oui"
chocolat_noisette.Value="OUI"
Else
vRéponse = MsgBox("Certaines zones ne sont pas remplies", vbExclamation + vbOKOnly, "INFORMATION !")
End if 
End Sub