Saisie petit code marche pas bien

[eliot raymond]

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

 

[vbacrumble]

Re : Saisie petit code marche pas bien

Bonjour

Effectivement après retest, il y a des bugs.

Désolé 🙁

Je vais de ce pas y remédier.

A+

 

[eliot raymond]

Re : Saisie petit code marche pas bien

Salut vbacrumble,

Tout d'abord merci d'avoir regarder le petit programme, mais sur XL 2007 il ne fonctionne pas bien, je l'ai egalement essayer sur un autre PC (fiston) idem comme soucis. Voila Voila

XL2007 et vista

Enfin conseil moi si tu veux bien, j'apprends VBA une autre direction pour meme résultat ???

MERCI beaucoup a te relire
Raymond

 

[vbacrumble]

Re : Saisie petit code marche pas bien

Re


En attendant mieux:


Essayes cette macro

A mettre dans un module standard.

Sub Macro1()
    With Range("A1:A10").Validation
        .Delete
        .Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop, Operator _
        :=xlGreater, Formula1:="0"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Avertissement"
        .ErrorTitle = "ERREUR"
        .InputMessage = _
        "Caractères autorisées:" & Chr(10) & "Chiffres " & Chr(10) & "Virgule" & Chr(10) & "Symoble >Euro : €"
        .ErrorMessage = "Saisie invalide"
        .ShowInput = True
        .ShowError = True
    End With
End Sub

A+

 

[eliot raymond]

Re : Saisie petit code marche pas bien

RE-Vbacrumble,

Le code proposer ne fonctionne pas non plus, c'est gentil tout de meme il affiche "saisie invalide", et l'info bulle ne lache plus le curseur reste afficher en permanence. Merci pour le code. Le PREMIER code m'allait bien et plus facile pour moi, juste qu'il faut trouver ce pourquoi il cloche, je vais chercher de coté si je peux trouver, te tient informer si je tient le bon bout.

en cas merci beaucoup a plus tard
Raymond

 

[Pierrot93]

Re : Saisie petit code marche pas bien

Bonsoir Raymond, vbacrumble

si tu veux controler que la valeur saisie soit du numérique, valide également pour du motétaire, essaye le code ci dessous :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
If b = True Then Exit Sub
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    If Not IsNumeric(Target.Value) Or Len(Target) < 8 Then
        MsgBox "Ne saisir que du numerique", vbExclamation, "Saisie invalide"
        b = True
        Target.ClearContents
        b = False
    End If
End If
End Sub

bonne soirée
@+

 

[eliot raymond]

Re : Saisie petit code marche pas bien

RE-Vbacrumble,

Suivi le conseil je connais bien FORMAT pour les cellules j'ai essayer plein de truc mais toujours meme probleme suis a court et larger.
Vais voir ce que je peux faire avec les 2 codes et poursuivre la chasse a l'erreur je vais encore abuser d'excel tant pis.

Merci de m'aider c'est sympa, j'apprécie
a plus Ray

 

[Pierrot93]

Re : Saisie petit code marche pas bien

Re

Raymond, as tu vu mon post de 18h06, pas sur... fonctionne chez moi sous 2003.

bonne soirée
@+

 

[eliot raymond]

Re : Saisie petit code marche pas bien

Bonsoir Pierrot93,

j'ai bien vu et essayer le code sur XL2007 ca merdouille comme je l'explique dans mes reponses precedentes toujours pas trouver quelque chose qui fonctionne correctement avec les chiffres 0-9 la virgule, la longueur et l'euro.

vais reprendre ca des demain car le soir pas trop mon truc

en tout cas merci du coup de main c'est sympa merci bien et bonne soirée

RAYMOND

 

[vbacrumble]

Re : Saisie petit code marche pas bien

Re, bonsoir Pierrot93

Pierrot93
Peux-tu m'expliquer pourquoi cela fonctionne mal ?

If InStr("0123456789,€", Target.Text) = 0 And Len(Target) < 8 Then

Merci.


EDITION : ajout d'un fichier exemple

 

[Pierrot93]

Re : Saisie petit code marche pas bien

Bonjour Raymon, vbacrumble

If InStr("0123456789,€", Target.Text) = 0

ce code compare la totalité de la chaîne de caractères contenue dans "target", à la chaîne "0123456789,€".

Cela ne peut renvoyer une position que si dans la cellule tu as un seul caractère et que celui ci est contenu dans la chîne "0123456789,€" ou bien dans ta cellule, une suite comme "345" que l'on retrouve dedans...

Généralement, ce type de code est utilisé pour controler la saisie caractère par caractère, à l'interieur d'un "textbox".

en espérant avoir été clair.

bonne journée
@+

 

[eliot raymond]

Re : Saisie petit code marche pas bien

bonjour vbacrumble et pierrot93

voila j'ai tester je viens de poster voyer le fichier commenter et dites moi

je vais chercher de mon coté, vous tient au courant
Merci et bonne journée avec du soleil

Raymond

 

[eliot raymond]

Re : Saisie petit code marche pas bien

Bonjour Pierrot93

je vient de poster regarde voir et dit moi svp

merci a toi et bonne journee
Raymond

 

[Pierrot93]

Re : Saisie petit code marche pas bien

Re

tu viens de poster quoi ? où ?

 

[Pierrot93]

Re : Saisie petit code marche pas bien

Re

oui, vu .... tu aurais du rester sur le même fil.... plus facile à suivre

https://www.excel-downloads.com/threads/saisie-petit-code-marche-pas-bien-v2.114947/