Si le dernier chiffre à droite = 1 alors...

[David590]

Bonjour à tous,

J'ai besoin de votre aide pour modifier le code suivant:

If Len(Target) <> 24 Then MsgBox "Erreur, nombres de caractères invalides!": Target.ClearContents: ActiveCell.Offset(-1, 0).Select: Exit Sub

Celui ci me m’empêche d’écrire dans la cellule si la saisie ne contient pas 24 caractères

Et moi, j'aimerai en plus empecher d'ecrire si le dernier chiffre est 1
genre: If "dernier chiffre à droite" = 1 then MsgBox "Erreur, le dernier chiffre est 1!":....

Merci d'avance 😉

 

[flyonets44]

Re : Si le dernier chiffre à droite = 1 alors...

Bonjour
if right (target) like 1 then msgbox "erreur, le dernier chiffre est 1"
Cordialement
Flyonets

 

[David590]

Re : Si le dernier chiffre à droite = 1 alors...

Perfecto!!

Grand merci 😀

 

[David590]

Re : Si le dernier chiffre à droite = 1 alors...

Ah oui, j'avais oublié, j'ai juste du modifier un peu comme il y avait un bug

if right (target, 1) like 1 then msgbox "erreur, le dernier chiffre est 1"

voila,
@+ 😀