[E-07] Valider une saisie dans un champ

**eliot.raymond** · 16/03/2009, 14h28

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** · 16/03/2009, 14h43

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** · 16/03/2009, 14h53

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

**eliot.raymond** · 16/03/2009, 14h55

Envoyé par casefayere

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

**Krovax** · 16/03/2009, 15h02

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** · 16/03/2009, 15h11

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** · 16/03/2009, 15h22

RE

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

Ray

**eliot.raymond** · 16/03/2009, 15h25

Envoyé par 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)

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

Envoyé par 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

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

**casefayere** · 16/03/2009, 17h08

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** · 16/03/2009, 19h15

Ok mais quand je mets "selectionChange" plus rien de ne marche

Te remercie de regarder c'est sympa
bon courage et te souhaite le bonne soiree
Raymond

**casefayere** · 16/03/2009, 19h52

Je viens d'essayer quand meme ce code avec selectionchange

Code :

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

1
2
3
4
5
6
7
8
'en imaginant que la cellule au-dessus doive etre déjà remplie
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Row > 1 And Range("d" & .Row - 1) = "" Then
MsgBox "vous devez enregistrer un chèque": Range("d" & .Row - 1).Select
End If
End With
End Sub

Mais tu dois avoir raison car quelquefois, rien ne se passe

**eliot.raymond** · 16/03/2009, 20h02

Bonsoir
je viens d'essayer ton code mais ca plante

je dois selectionner D2: D27
que des chiffres
pas d'espace
ni chaine vide
len = 7 maxi

et curseur si pas ok doit rester sur cellule

voila pour le chier des charges, je te laisse et verrai ca demain
je te souhaite bon app et bonne soiree reviens demain

merci pour tout c'est sympa d'aider un debutant 3 mois VBA

Raymond

**casefayere** · 16/03/2009, 20h08

En attendant de trouver une réponse, je gère des chèques pratiquement tous les jours alors réfléchit sur => ou le chèque a maximum 7 chiffres ou il est obligatoirement de 7 chiffres (je pencherais pour la deuxième solution) tous les numéros de chèques, à ma connaissance sont de 7 chiffres

Bonne soirée, je vais encore regarder

Avant d'aller plus, je viens seulement de voir une erreur en début de procédure

Code :

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

Application.EnableEvents = True 'et pas false

ça perturbait tout

comme ça ça marche, mais tu dois pouvoir améliorer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'--- CODE DES AUTORISATIONS ENTREES AU CLAVIER ---
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
Dim z As String
With Target
If Not Intersect(Target, [D2:D20]) Is Nothing And Not (IsEmpty(Target)) Then
 
For i = 1 To Len(Target)
z = Mid(.Value, i, 1)
If InStr("0123456789", z) = 0 Or .Value = " " Or Len(.Value) <> 7 Then
MsgBox "recommencez": .Offset(0, 0).ClearContents: Exit For
End If
Next i
End If
End With
End Sub

**eliot.raymond** · 17/03/2009, 06h49

Envoyé par casefayere

En attendant de trouver une réponse, je gère des chèques pratiquement tous les jours alors réfléchit sur => ou le chèque a maximum 7 chiffres ou il est obligatoirement de 7 chiffres (je pencherais pour la deuxième solution) tous les numéros de chèques, à ma connaissance sont de 7 chiffres

Bonne soirée, je vais encore regarder

Bonjour Casefyere, bonjour forum,

Bien eu ton message effectivement 7 chiffres, en fait je suis mes depenses, c'est ma petite compta perso.

Je vais me pencher egalement sur ce souci.

Merci pour la reponse et te souhaite la bonne journée

Raymond

**casefayere** · 17/03/2009, 07h25

Bonjour Eliot.Raymond,

j'espere que tu as vu mon dernier message

Code :

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

Application.EnableEvents = True 'et pas false

soit :
'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
--- CODE DES AUTORISATIONS ENTREES AU CLAVIER ---
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
Dim z As String
With Target
If Not Intersect(Target, [D2:D20]) Is Nothing And Not (IsEmpty(Target)) Then
 
For i = 1 To Len(Target)
z = Mid(.Value, i, 1)
If InStr("0123456789", z) = 0 Or .Value = " " Or Len(.Value) <> 7 Then
MsgBox "recommencez": .Offset(0, 0).ClearContents: Exit For
End If
Next i
End If
End With
End Sub

bonne journée

**eliot.raymond** · 17/03/2009, 08h08

Bonjour

Merci pour le code rectifier effectivement ca marche bien

regarde le code il manque DIM i As Byte je l'ai rajouter et c'est bon
donnait erreur de compilation

Une question SVP On ne pourrai pas obliger le curseur a rester dans la cellule
tant que celle ci n'ai pas renseignée correctement et seulement
si Ok alors la on passe a la suite

Ex: la si j'entre un espace et que je valide message "recommencez" et le curseur passe a droite

EX: si j'entre des lettres je valide pourtant c'est pas bon message "recommencer" et le curseur va a droite

Donc dans le cas ou ce n'ai pas bon, il faudrai que le curseur reste dans la cellule.

Journée qui débute bien pour moi, alors je te souhaite egalement une excellente journée

A te lire avec plaisir

Raymond

**casefayere** · 17/03/2009, 09h00

re bonjour,

Je ne connais pas la méthode pour activer le curseur dans la cellule (y en a t'il une ?) mais si tu precises de rester dans la cellule en cas d'erreur

Code :

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

.activate

par exemple, tu dois pouvoir resaisir ton numero de cheque sans avoir à recliquer dans la celule; D'autre part, perso dans mes options excels, j'empeche le déplacement après saisie, résultat si j'appuie sur enter, la même cellule reste sélectionnée,
En attendant d'avoir d'autres infos....

Bonne journée

**eliot.raymond** · 17/03/2009, 09h18

salut

merci de ta reponse, ce que tu me propose comme solution pour le curseur
est fort seduisant, si tu avais un exemple a me proposer que je puisse aussi eventuellement adapter a ma compta ca serai gentil et bien sympa.

SVP et si tu as le temps cela va de soit

Merci et bonne journée a toi

un peu de courses et je retourne a ma compta

A plus tard Raymond

**casefayere** · 17/03/2009, 09h29

re,

Comme je ne sais plus ou tu en es avec la construction du code, ça serait sympa de le renvoyer en pièce jointe, pour le reste :

perso dans mes options excels, j'empeche le déplacement après saisie, résultat si j'appuie sur enter, la même cellule reste sélectionnée,

il suffit d'ouvrir les options excel, comme je crois que tu as excel 2007 tu cliques sur options excel => options avancées et décoche "déplacer la sélection après validation", par macro j'ai vu :

Code :

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

Application.MoveAfterReturn = False

**eliot.raymond** · 17/03/2009, 10h58

Salut
fini les courses ouf

je te renvoie le fichier comme tu me demande, ca ne marche pas comme il faudrai, c'est pas franc comme fonctionnement, j'essais pourtant

voila ou on en ai, bonne continuation, j'y retourne

a plus tard oups j'ai failli oublier merci , non je blague

A + tard

Ray

[E-07] Valider une saisie dans un champ

Macros et VBA Excel

Discussions similaires

Partager

Partager