Discussion :

[eliot.raymond]

Bonjour a tous, forum,

Je souhaiterai paufiner mon code ci joint, je dois entrer des N° de chèques
pour ca les chiffres et la longueur c'est bon

Mais ESPACE et CHAINE VIDE ca passe Greueee je préfèrerai que le curseur reste sur la cellule TANT que je n'ai pas entrer et VALIDER au moins un chiffre ou jusqu'a 7 chiffres maxi.

Si vous avez le petit code complémentaire, comment ca serai gentil

Merci a vous du chti coup de main

Bonne apres midi

Raymond

[casefayere]

Bonjour,

un exemple pour cellule vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'exemple pour a1
If Len(Range("a1")) < 1 Then
MsgBox "saisissez queleque chose"
End If
End Sub

si ça t'aide, enleve aussi les espaces :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'exemple pour a1
If Len(Range("a1")) < 1 Then
MsgBox "saisissez queleque chose"
End If
Range("a1") = Application.WorksheetFunction.Substitute(Range("a1"), " ", "")
End Sub

[eliot.raymond]

Bonjour,
je viens d'essayer ton code merci c'est sympa, mais j'ai oublier de vous dire voir le fichier joint, "désoler" les explications y sont

Donc ce n'ai pas tout a fait ca, mais merci tout de meme

Bonne apres midi

Raymond

[Krovax]

Voici un lien qui devrait t'intéresser :
http://silkyroad.developpez.com/VBA/...nesCaracteres/


sinon voici un bout de code
ligne contient la chaine de caractère
il vérifie que tout les caractères sont bien des chiffre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 1 To Len(ligne)
    If Mid(ligne, i, 1) Like "[!0-9]" Then
        msgbox("Saisie non conforme")
        exit sub
    End If
Next i

Si tu veux une condition sur la taille test len(ligne)

[casefayere]

j'ai regardé ton code et changer le numéro d'erreur par un message et comme ça ca marche pour les espaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To Len(Target)
z = Mid(.Value, i, 1)
If InStr("0123456789", z) = 0 Or .Value = " " Then MsgBox "non": Exit For
Next i

[eliot.raymond]

RE

Merci j'allais justement te demander, car je n'arrivai pas, bon je regarde avec ton nouveau code
te redit si ok

Ray

[casefayere]

si tu n'es pas trop pressé, je regarderai ce soir, à partir de 18 h mais à mon avis ça ne doit pas être un gros problème (sélectionner le bon évenement dans la feuille?)

[eliot.raymond]

Voici un lien qui devrait t'intéresser :
http://silkyroad.developpez.com/VBA/...nesCaracteres/


sinon voici un bout de code
ligne contient la chaine de caractère
il vérifie que tout les caractères sont bien des chiffre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 1 To Len(ligne)
    If Mid(ligne, i, 1) Like "[!0-9]" Then
        msgbox("Saisie non conforme")
        exit sub
    End If
Next i

Si tu veux une condition sur la taille test len(ligne)

Bonjour merci bien d'avoir regarder je m'occuppe de ca dans la foulée
@+

j'ai regardé ton code et changer le numéro d'erreur par un message et comme ça ca marche pour les espaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To Len(Target)
z = Mid(.Value, i, 1)
If InStr("0123456789", z) = 0 Or .Value = " " Then MsgBox "non": Exit For
Next i

Re salut

Ca fonctionne mais pas tout a fait comme je souhaitai, en fait si

(1) j'entre une lettre je valide ENTER ok ca passe PAS et le curseur reste dans la cellule
(2) si je rappuie sur ENTER une deuxieme fois, La ca passe malgré que la cellule soit VIDE, ne devrais pas puisque cellule egal rien ???

c'est toujours le meme fichier poster tout a l'heure
si tu veux SVP bien regarder si tu as le temps, ca serai sympa
PS: faut 'il utiliser absolument
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ou
Private Sub Worksheet_Change(ByVal Target As Range)

merci te dit a plus tard

Raymond

[eliot.raymond]

si ça t'aide, enleve aussi les espaces :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'exemple pour a1
If Len(Range("a1")) < 1 Then
MsgBox "saisissez queleque chose"
End If
Range("a1") = Application.WorksheetFunction.Substitute(Range("a1"), " ", "")
End Sub

re attends j'avais pas vu trop rapide hihihi