condition sur des champs de userform

bonjour

j'aimerai bien un coup de pouce de vorte part svp, j'ai cette interface

https://i.imgur.com/kS0VF5K.png

comme vous le voyez, il y a des champs de texte, et j'aimerai bien imposer certains conditions, par exemple le nom de la sté doit être en caractère, c-a-d si quelqu'un écrit dans le nom de la société 123456 il doit lui afficher une erreur et ne pas ajouter 123456 à la base,concernant l’affichage de l'avertissement j'ai bien réussi grâce a ce code là

Code:

---

1 2 3

If Me.TextBox1.Value = "" Or IsNumeric(Me.TextBox1.Value) Then MsgBox "entrer un nom de fournisseur valide", vbCritical End If

---

mais malheureusement si j'écris un numéro, il affiche l'avertissement et il l'ajoute le numéro saisi dans la base, alors que ca doit pas être le cas.

même chose pour le champ email, je veux bien savoir s'il y a une possibilité d'imposer qu'il faut écrire le caractère @ et aussi .com ou .fr etc...

comment faire svp

merci d'avance

Bonjour,

Votre macro montre bien un msgbox pour signaler l erreur, mais continue après acceptation de celui-ci.

Le plus simple selon moi, sans connaître l ensemble de votre code serait dans le non respect de la condition serait de passer un variable booléenne à false.

Et de faire un contrôle de cette variable avant l enregistrement, si True on enregistre si False on enregistre pas.

Cette variable pourrait être utilisée pour l ensemble de vos vérification, vu que si une texte box n est pas correctement remplie l enregistrement ne doit pas ce faire.

Bav