Lier les checkbox avec des simple formule

Bonjour les experts,

Je suis en train de faire un fichier qui permet de faire des calculs en fonction des choix fait dans la boite à dialogue au départ.

Je m'explique. Si je choisis l'option 1 (dans mon fichier correspond à "EU")alors ça sera calcul A qui va apparaitre dans la cellule E15 et formule X dans la cellule G15, si je choisis l'option 2a (dans mon fichier correspond à "CODEX _ Heat-treated....") ça sera calcul B dans cellule E15 et formule Y dans G15, etc.

En pièce jointe le fichier pour une meilleur compréhension.

Si jamais ce n'est pas très claire. N'hésitez pas à me le dire.

Merci de votre aide.

Bonjour,

Tu mets un si() dans chaque cellule.

=Si(test; valeur_si_vrai; valeur_si_faux)

valeur peut être une formule.

eric

Bonjour,

voici un exemple pour le CheckBox1

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
 CheckBox2.Value = False
 CheckBox5.Value = False
End If

With Sheets("Feuil1")
 If IsNumeric(.Range("F4")) And .Range("F4") <> 0 Then
   .Range("E15") = Application.Sum(.Range("E4:E7")) * .Range("F4")
   If .Range("E15") > 5000 Then .Range("G15") = "oui" Else .Range("G15") = "non"

   If CheckBox1.Value = True Then .Range("g12") = "REGULATION (EC) No 1333/2008: 08.3.1 Non-heat-treated meat products & 08.3.2 Heat-treated meat products"
   If CheckBox1.Value = True Then .Range("e12") = "P2O5 (mg/Kg) in FP"
   If CheckBox1.Value = False Then .Range("g12") = ""
   If CheckBox1.Value = False Then .Range("e12") = ""
 End If
End With
End Sub

Ah, je n'avais pas ouvert son fichier

Bonjour Lilette, Isabelle, eriiic,

je te retourne ton fichier modifié :

fais tous les tests nécessaires.

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Merci beaucoup Dhany!!!

Tout est clair et je viens de l'adapter à mon fichier

Merci à vous aussi: Isabelle, eriiic

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne continuation !

dhany