Re bonjour à tous le forum,
J'ai une formule
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 !!
pouvez vous me dire ce qui bloque ?? merci par avance
J'ai une formule
Code:
=SI(ET(B22="oui";B20<>B18);"erreur";"")
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 !!
Code:
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