Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Souci de procédure

Souci de procédure

6 réponses
Avatar
Ayrton [ASC]
Bonjour à tous,

J'ai fait une petite fonction qui renvoie le numéro de département de
naissance en fonction du numéro de sécurité sociale qui marche bien ;
dans ma proc"dure qui appelle cette fonction, tout va bien sauf quand je
veux gérer l'erreur ou plutôt gérer la situation si un utilisateur
clique sur Annuler ; et là, ça ne va plus du tout ;-(
voici ma procédure :
Sub Test()
Dim Z As String
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de
l'agent", " Boite de Saisie ") & vbCrLf
If vbCancel Or Len(Z) <> 13 Then
Exit Sub
Else
MsgBox (" Le Département de naissance de l'agent est le ") & Ndep(Z)
End If
End Sub

Même si lenuméro contient bien 13 chiffres et si je click sur Yes, je
sors direct ! Je n'attive pas à faire la différence entere clique sur
Yes ou sur Annuler.
Je n'arrive pas à voir où est ce que je me trompe.....

Un grand merci d'avance pour votre aide et bonne fêtes de fin d'année à
vous tous.....

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
1. Enlève &vbCrLf au bout de la ligne InputBox qui ajoute deux caractères au
total.
2. Si l'utilisateur appuie sur "Annul", Z=""
aussi teste seulement :
If Z = Len(Z) <> 13 Then
Cordialement.
Daniel
"Ayrton [ASC]" a écrit dans le message de news:

Bonjour à tous,

J'ai fait une petite fonction qui renvoie le numéro de département de
naissance en fonction du numéro de sécurité sociale qui marche bien ; dans
ma proc"dure qui appelle cette fonction, tout va bien sauf quand je veux
gérer l'erreur ou plutôt gérer la situation si un utilisateur clique sur
Annuler ; et là, ça ne va plus du tout ;-(
voici ma procédure :
Sub Test()
Dim Z As String
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de
l'agent", " Boite de Saisie ") & vbCrLf
If vbCancel Or Len(Z) <> 13 Then
Exit Sub
Else
MsgBox (" Le Département de naissance de l'agent est le ") & Ndep(Z)
End If
End Sub

Même si lenuméro contient bien 13 chiffres et si je click sur Yes, je sors
direct ! Je n'attive pas à faire la différence entere clique sur Yes ou
sur Annuler.
Je n'arrive pas à voir où est ce que je me trompe.....

Un grand merci d'avance pour votre aide et bonne fêtes de fin d'année à
vous tous.....

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/



Avatar
Pounet95
Bonsoir,
A quoi sert le &vbcrlf en fin de ligbne qui sert à rajouter 2 caractères à Z
????
Enlève le et ce devrait mieux aller à moins que le numéro de SS contienne 11
chiifres .....ou 11 caractères ?

Pounet95


PS Bonne fin d'année 2006 à toutes et tous

"Ayrton [ASC]" a écrit dans le message de news:

Bonjour à tous,

J'ai fait une petite fonction qui renvoie le numéro de département de
naissance en fonction du numéro de sécurité sociale qui marche bien ; dans
ma proc"dure qui appelle cette fonction, tout va bien sauf quand je veux
gérer l'erreur ou plutôt gérer la situation si un utilisateur clique sur
Annuler ; et là, ça ne va plus du tout ;-(
voici ma procédure :
Sub Test()
Dim Z As String
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de
l'agent", " Boite de Saisie ") & vbCrLf
If vbCancel Or Len(Z) <> 13 Then
Exit Sub
Else
MsgBox (" Le Département de naissance de l'agent est le ") & Ndep(Z)
End If
End Sub

Même si lenuméro contient bien 13 chiffres et si je click sur Yes, je sors
direct ! Je n'attive pas à faire la différence entere clique sur Yes ou
sur Annuler.
Je n'arrive pas à voir où est ce que je me trompe.....

Un grand merci d'avance pour votre aide et bonne fêtes de fin d'année à
vous tous.....

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/



Avatar
Ayrton [ASC]
Bonjour *Daniel*,
Dans ton message de news:uOO%,
Tu nous annonçais ce qui suit :-(*)
Bonjour.


Bonjour,

1. Enlève &vbCrLf au bout de la ligne InputBox qui ajoute deux
caractères au total.
2. Si l'utilisateur appuie sur "Annul", Z=""
aussi teste seulement :
If Z = Len(Z) <> 13 Then


Ok merci beaucoup ça fonctionne ; par contre, je me suis mal exprimé ; à
vrai dire, j'aurais voulu qu'il y ait un message si l'utilisateur tape
un mauvais choffre ( par exemple 12 ou 14 chiffres au lieu des 13) et
par contre, qu'il sorte directement s'il click sur Annuler ; mais ça, je
ne sais pas faire...;-(
Merci

Cordialement

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/









"Ayrton [ASC]" a écrit dans le message de news:

Bonjour à tous,

J'ai fait une petite fonction qui renvoie le numéro de département de
naissance en fonction du numéro de sécurité sociale qui marche bien
; dans ma proc"dure qui appelle cette fonction, tout va bien sauf
quand je veux gérer l'erreur ou plutôt gérer la situation si un
utilisateur clique sur Annuler ; et là, ça ne va plus du tout ;-(
voici ma procédure :
Sub Test()
Dim Z As String
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de
l'agent", " Boite de Saisie ") & vbCrLf
If vbCancel Or Len(Z) <> 13 Then
Exit Sub
Else
MsgBox (" Le Département de naissance de l'agent est le ") & Ndep(Z)
End If
End Sub

Même si lenuméro contient bien 13 chiffres et si je click sur Yes,
je sors direct ! Je n'attive pas à faire la différence entere clique
sur Yes ou sur Annuler.
Je n'arrive pas à voir où est ce que je me trompe.....

Un grand merci d'avance pour votre aide et bonne fêtes de fin
d'année à vous tous.....

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/




Avatar
Daniel
Je ne pense pas que tu puisses monitorer la touche Annul :

Sub Test()
Dim Z As String
Do While Len(Z) <> 13
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de l
'agent", " Boite de Saisie ")
Var = vbCancel
If Z = "" Then Exit Sub '*** touche annul ?
If Len(Z) <> 13 Or Not IsNumeric(Z) Then
MsgBox "Erreur de saisie, recommence en saisissant 13 chiffres"
Else
MsgBox (" Le Département de naissance de l'agent est le ")
End If
Loop
End Sub

Daniel
"Ayrton [ASC]" a écrit dans le message de news:

Bonjour *Daniel*,
Dans ton message de news:uOO%,
Tu nous annonçais ce qui suit :-(*)
Bonjour.


Bonjour,

1. Enlève &vbCrLf au bout de la ligne InputBox qui ajoute deux
caractères au total.
2. Si l'utilisateur appuie sur "Annul", Z=""
aussi teste seulement :
If Z = Len(Z) <> 13 Then


Ok merci beaucoup ça fonctionne ; par contre, je me suis mal exprimé ; à
vrai dire, j'aurais voulu qu'il y ait un message si l'utilisateur tape un
mauvais choffre ( par exemple 12 ou 14 chiffres au lieu des 13) et par
contre, qu'il sorte directement s'il click sur Annuler ; mais ça, je ne
sais pas faire...;-(
Merci

Cordialement

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/









"Ayrton [ASC]" a écrit dans le message de news:

Bonjour à tous,

J'ai fait une petite fonction qui renvoie le numéro de département de
naissance en fonction du numéro de sécurité sociale qui marche bien
; dans ma proc"dure qui appelle cette fonction, tout va bien sauf
quand je veux gérer l'erreur ou plutôt gérer la situation si un
utilisateur clique sur Annuler ; et là, ça ne va plus du tout ;-(
voici ma procédure :
Sub Test()
Dim Z As String
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de
l'agent", " Boite de Saisie ") & vbCrLf
If vbCancel Or Len(Z) <> 13 Then
Exit Sub
Else
MsgBox (" Le Département de naissance de l'agent est le ") & Ndep(Z)
End If
End Sub

Même si lenuméro contient bien 13 chiffres et si je click sur Yes,
je sors direct ! Je n'attive pas à faire la différence entere clique
sur Yes ou sur Annuler.
Je n'arrive pas à voir où est ce que je me trompe.....

Un grand merci d'avance pour votre aide et bonne fêtes de fin
d'année à vous tous.....

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/







Avatar
Ayrton [ASC]
Bonjour *Pounet95*,
Dans ton message de news:45929fe6$0$27374$,
Tu nous annonçais ce qui suit :-(*)
Bonsoir,
A quoi sert le &vbcrlf en fin de ligbne qui sert à rajouter 2
caractères à Z ????
Enlève le et ce devrait mieux aller à moins que le numéro de SS
contienne 11 chiifres .....ou 11 caractères ?


A vrai dire je me suis emmêlé ; je cherchais à faire sortir
l'utilisateur s'il cliquait sur Annuler ; et ça, j'arrive pas à le faire


PS Bonne fin d'année 2006 à toutes et tous


Merci, bonnes fêtes à toi aussi

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/








"Ayrton [ASC]" a écrit dans le message de news:

Bonjour à tous,

J'ai fait une petite fonction qui renvoie le numéro de département de
naissance en fonction du numéro de sécurité sociale qui marche bien
; dans ma proc"dure qui appelle cette fonction, tout va bien sauf
quand je veux gérer l'erreur ou plutôt gérer la situation si un
utilisateur clique sur Annuler ; et là, ça ne va plus du tout ;-(
voici ma procédure :
Sub Test()
Dim Z As String
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de
l'agent", " Boite de Saisie ") & vbCrLf
If vbCancel Or Len(Z) <> 13 Then
Exit Sub
Else
MsgBox (" Le Département de naissance de l'agent est le ") & Ndep(Z)
End If
End Sub

Même si lenuméro contient bien 13 chiffres et si je click sur Yes,
je sors direct ! Je n'attive pas à faire la différence entere clique
sur Yes ou sur Annuler.
Je n'arrive pas à voir où est ce que je me trompe.....

Un grand merci d'avance pour votre aide et bonne fêtes de fin
d'année à vous tous.....

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/




Avatar
Ayrton [ASC]
Bonjour *Daniel*,
Dans ton message de news:,
Tu nous annonçais ce qui suit :-(*)
Je ne pense pas que tu puisses monitorer la touche Annul :

Sub Test()
Dim Z As String
Do While Len(Z) <> 13
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de l
'agent", " Boite de Saisie ")
Var = vbCancel
If Z = "" Then Exit Sub '*** touche annul ?
If Len(Z) <> 13 Or Not IsNumeric(Z) Then
MsgBox "Erreur de saisie, recommence en saisissant 13 chiffres"
Else
MsgBox (" Le Département de naissance de l'agent est le ")
End If
Loop
End Sub


Super ! ! C'est exactement ce que je cherchais à faire ; je ne pensais
pas à la création d'une autre variable ;-(
Merci beaucoup Daniel

Cordialement

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/










"Ayrton [ASC]" a écrit dans le message de news:

Bonjour *Daniel*,
Dans ton message de news:uOO%,
Tu nous annonçais ce qui suit :-(*)
Bonjour.


Bonjour,

1. Enlève &vbCrLf au bout de la ligne InputBox qui ajoute deux
caractères au total.
2. Si l'utilisateur appuie sur "Annul", Z=""
aussi teste seulement :
If Z = Len(Z) <> 13 Then


Ok merci beaucoup ça fonctionne ; par contre, je me suis mal exprimé
; à vrai dire, j'aurais voulu qu'il y ait un message si
l'utilisateur tape un mauvais choffre ( par exemple 12 ou 14
chiffres au lieu des 13) et par contre, qu'il sorte directement s'il
click sur Annuler ; mais ça, je ne sais pas faire...;-(
Merci

Cordialement

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/









"Ayrton [ASC]" a écrit dans le message de
news:
Bonjour à tous,

J'ai fait une petite fonction qui renvoie le numéro de département
de naissance en fonction du numéro de sécurité sociale qui marche
bien ; dans ma proc"dure qui appelle cette fonction, tout va bien
sauf quand je veux gérer l'erreur ou plutôt gérer la situation si
un utilisateur clique sur Annuler ; et là, ça ne va plus du tout
;-( voici ma procédure :
Sub Test()
Dim Z As String
Z = InputBox(" Veuillez entree le numéro de sécurité sociale de
l'agent", " Boite de Saisie ") & vbCrLf
If vbCancel Or Len(Z) <> 13 Then
Exit Sub
Else
MsgBox (" Le Département de naissance de l'agent est le ") &
Ndep(Z) End If
End Sub

Même si lenuméro contient bien 13 chiffres et si je click sur Yes,
je sors direct ! Je n'attive pas à faire la différence entere
clique sur Yes ou sur Annuler.
Je n'arrive pas à voir où est ce que je me trompe.....

Un grand merci d'avance pour votre aide et bonne fêtes de fin
d'année à vous tous.....

--
Christophe
--------------------------------------------------------------
--------------------------------------------------------------
http://cerbe rmail.com/?cUkbZNnG8H (Enlever l'espace)
ou
http://viadresse.com?25031980
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Forum Office :
http://forums.offices.free.fr/