eliot raymond
XLDnaute Occasionnel
Bonjour a tous et toutes
J'ai adopter ce petit bout de code ci-dessous que j'ai trouver sur le site qui marche bien, mais je souhaiterais 3 petits trucs en plus si possible.
(1) Autoriser la virgule
(2) L'euro, €
(3) Tester aussi la longueur
Ce petit bout de code ne fonctionne pas correctement, me mets souvent le premier message de la MsgBox ci-dessous longueur va pas bien non plus, et si
j'entre par EX:124,48 € marche pas non plus doit pas aimer quelque chose mais je ne vois pas quoi, un oeil expert saura t'il voir ou ca coince, svp merci bien
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'-> tribute to Pierrot93
If InStr("0123456789,€", Target.Text) = 0 And Len(Target) < 8 Then
MsgBox "Ne saisir que du numerique", vbExclamation, "Saisie invalide"
Target.ClearContents
Target.Select
End If
End If
End Sub
Ps EXCEL 2007 vista
Merci beaucoup et a vous lire avec plaisir
RAYMOND bonne Après midi
J'ai adopter ce petit bout de code ci-dessous que j'ai trouver sur le site qui marche bien, mais je souhaiterais 3 petits trucs en plus si possible.
(1) Autoriser la virgule
(2) L'euro, €
(3) Tester aussi la longueur
Ce petit bout de code ne fonctionne pas correctement, me mets souvent le premier message de la MsgBox ci-dessous longueur va pas bien non plus, et si
j'entre par EX:124,48 € marche pas non plus doit pas aimer quelque chose mais je ne vois pas quoi, un oeil expert saura t'il voir ou ca coince, svp merci bien
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'-> tribute to Pierrot93
If InStr("0123456789,€", Target.Text) = 0 And Len(Target) < 8 Then
MsgBox "Ne saisir que du numerique", vbExclamation, "Saisie invalide"
Target.ClearContents
Target.Select
End If
End If
End Sub
Ps EXCEL 2007 vista
Merci beaucoup et a vous lire avec plaisir
RAYMOND bonne Après midi