Formule VBA avec conditions

Bonjour le forum

Pourriez-vous m'aider à écrire un code qui interpréterait la formule

Je vous joins un petit fichier pour une meilleure compréhension

Merci

Salut Jassim,

code à coller dans le module VBA de 'BD'

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, [G3]) Is Nothing Then Worksheets("RECAP").[A1] = IIf(Abs(CInt(Target)) = 1, 10, 0)
'
End Sub

A+

Bonjour le forum

bonjour curulis57

Merci pour ta réponse rapide mais je crois que je me suis trop précipité, je me suis malformulé

Je te renvoie le fichier

Merci à toi

Salut Jassim,

je ne travaille qu'avec des contrôles ActiveX : j'ai donc changé ton contrôle par son équivalent ActiveX.

Private Sub ComboBox1_Change()
'
[A1] = Worksheets("BD").Columns(7).Find(what:=Me.ComboBox1.Text, lookat:=xlWhole, LookIn:=xlValues).Offset(0, 2)
'
End Sub

A+