Transformer formule en VBA

[BAT]

Re bonjour à tous le forum,

J'ai une formule

=SI(ET(B22="oui";B20<>B18);"erreur";"")

qui me dis s'il y a erreur dans ma saisie.

En gros si j'ai "oui" dans ma cellule B22 et que mes saisies dans B20 et B18 ne sont pas identiques, alors la formule me précise "erreur" !

Mais je souhaite automatiser en VBA ce principe. Quand je clique sur mon bouton je souhaite que si ces mêmes conditions ("oui" en B22 et que B20 et B18 différentes) ne soit pas remplis, la macro s'arrête en affichant un message qui dit " erreur" ! sinon lla macro continue sa route !

En fait j'ai bien essayé mais ca marche pas !!

Sub Macro1()

    
If Range("B22").Value = "oui" And Range("B18").Value <> Range("B20").Value Then
MsgBox ("erreur de saisie")
    Range("B21").Select
    ActiveCell.FormulaR1C1 = "erreur"
Exit Sub
Else
    Range("B21").Select
    ActiveCell.FormulaR1C1 = "ok"
End If

End Sub

pouvez vous me dire ce qui bloque ?? merci par avance

 

[Spitnolan08]

Re : Transformer formule en VBA

Re,
Essaie :

Sub Macro1()
If UCase(Range("B22").Value) = "OUI" And Range("B18").Value <> Range("B20").Value Then
    MsgBox ("erreur de saisie")
    Range("B21").Value = "erreur"
Else
    Range("B21").Value = "ok"
End If
End Sub

Cordialement

 

[BAT]

Re : Transformer formule en VBA

Génial ! MErci beaucoup pour votre aide.

A bientôt