Bonjour,
j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N°
de semaine.
jusque là tout va bien,
mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52)
et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur
"annuler".
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
Philippe.R
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses
Bonsoir,
Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem()
On Error Resume Next
deb:
masem = InputBox("Numéro de semaine")
If CDbl(masem) < 1 Or CDbl(masem) > 52 Then
MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !"
GoTo deb
End If
If masem <> "" Then MsgBox masem
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" <benoit.trivero@orange.fr> a écrit dans le message de
news:%23eHI7RWgIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour,
j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un
N° de semaine.
jusque là tout va bien,
mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52)
et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur
"annuler".
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses
Benoit
re-bonsoir et merci pour ta solution
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses
re-bonsoir
et merci pour ta solution
par contre, je n'aarive pas à trouver l'instruction pour fermer
définitivement Imputbox
quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
OTbpudWgIHA.484@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem()
On Error Resume Next
deb:
masem = InputBox("Numéro de semaine")
If CDbl(masem) < 1 Or CDbl(masem) > 52 Then
MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !"
GoTo deb
End If
If masem <> "" Then MsgBox masem
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" <benoit.trivero@orange.fr> a écrit dans le message de
news:%23eHI7RWgIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour,
j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un
N° de semaine.
jusque là tout va bien,
mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à
52)
et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur
"annuler".
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses
Philippe.R
Bonjour Benoit, avant l'instruction :
If masem <> "" Then MsgBox masem
tu peux ajouter :
if masemúlse then rep=msgbox "Voulez vous abandonner ?",vbquestion,"MPFE" if rep = vbno then goto deb if rep = vbyes then exit sub endif -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
re-bonsoir et merci pour ta solution
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses
Bonjour Benoit,
avant l'instruction :
If masem <> "" Then MsgBox masem
tu peux ajouter :
if masemúlse then
rep=msgbox "Voulez vous abandonner ?",vbquestion,"MPFE"
if rep = vbno then goto deb
if rep = vbyes then exit sub
endif
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" <benoit.trivero@orange.fr> a écrit dans le message de
news:%231EZFVXgIHA.4712@TK2MSFTNGP04.phx.gbl...
re-bonsoir
et merci pour ta solution
par contre, je n'aarive pas à trouver l'instruction pour fermer
définitivement Imputbox
quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
OTbpudWgIHA.484@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem()
On Error Resume Next
deb:
masem = InputBox("Numéro de semaine")
If CDbl(masem) < 1 Or CDbl(masem) > 52 Then
MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !"
GoTo deb
End If
If masem <> "" Then MsgBox masem
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" <benoit.trivero@orange.fr> a écrit dans le message de
news:%23eHI7RWgIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour,
j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse
un N° de semaine.
jusque là tout va bien,
mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à
52)
et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur
"annuler".
if masemúlse then rep=msgbox "Voulez vous abandonner ?",vbquestion,"MPFE" if rep = vbno then goto deb if rep = vbyes then exit sub endif -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
re-bonsoir et merci pour ta solution
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses
JB
Bonjour,
Si on clique sur Annuler, on récupère un chaîne vide:
masem = InputBox("Numéro de semaine") If masem = "" Then Exit Sub
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de new s:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Bonjour,
Si on clique sur Annuler, on récupère un chaîne vide:
masem = InputBox("Numéro de semaine")
If masem = "" Then Exit Sub
On 9 mar, 00:36, "Benoit" <benoit.triv...@orange.fr> wrote:
re-bonsoir
et merci pour ta solution
par contre, je n'aarive pas à trouver l'instruction pour fermer
définitivement Imputbox
quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de new s:
OTbpudWgIHA....@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem()
On Error Resume Next
deb:
masem = InputBox("Numéro de semaine")
If CDbl(masem) < 1 Or CDbl(masem) > 52 Then
MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !"
GoTo deb
End If
If masem <> "" Then MsgBox masem
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" <benoit.triv...@orange.fr> a écrit dans le message de
news:%23eHI7RWgIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour,
j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un
N° de semaine.
jusque là tout va bien,
mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à
52)
et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur
"annuler".
merci pour vos doubles réponses- Masquer le texte des messages préc édents -
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de new s:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Benoit
Merci pour vos 2 réponses rapides. je retiens la réponse de JB qui correspond mieux à ce que je recherchai et que j'ai inséré dans la 1ere soluce que m a donné Philippe. un grand merci à vous 2. bon dimanche
"JB" a écrit dans le message de news:
Bonjour,
Si on clique sur Annuler, on récupère un chaîne vide:
masem = InputBox("Numéro de semaine") If masem = "" Then Exit Sub
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour vos 2 réponses rapides.
je retiens la réponse de JB qui correspond mieux à ce que je recherchai
et que j'ai inséré dans la 1ere soluce que m a donné Philippe.
un grand merci à vous 2.
bon dimanche
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
34c450d2-59f5-481e-b8d2-d565a1585438@47g2000hsb.googlegroups.com...
Bonjour,
Si on clique sur Annuler, on récupère un chaîne vide:
masem = InputBox("Numéro de semaine")
If masem = "" Then Exit Sub
On 9 mar, 00:36, "Benoit" <benoit.triv...@orange.fr> wrote:
re-bonsoir
et merci pour ta solution
par contre, je n'aarive pas à trouver l'instruction pour fermer
définitivement Imputbox
quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
OTbpudWgIHA....@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem()
On Error Resume Next
deb:
masem = InputBox("Numéro de semaine")
If CDbl(masem) < 1 Or CDbl(masem) > 52 Then
MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !"
GoTo deb
End If
If masem <> "" Then MsgBox masem
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" <benoit.triv...@orange.fr> a écrit dans le message de
news:%23eHI7RWgIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour,
j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse
un
N° de semaine.
jusque là tout va bien,
mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à
52)
et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur
"annuler".
merci pour vos doubles réponses- Masquer le texte des messages
précédents -
Merci pour vos 2 réponses rapides. je retiens la réponse de JB qui correspond mieux à ce que je recherchai et que j'ai inséré dans la 1ere soluce que m a donné Philippe. un grand merci à vous 2. bon dimanche
"JB" a écrit dans le message de news:
Bonjour,
Si on clique sur Annuler, on récupère un chaîne vide:
masem = InputBox("Numéro de semaine") If masem = "" Then Exit Sub
par contre, je n'aarive pas à trouver l'instruction pour fermer définitivement Imputbox quand on clique sur "annuler"
??
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir, Tu peux faire un test sur la valeur saisie du genre :
Sub Csinumsem() On Error Resume Next deb: masem = InputBox("Numéro de semaine") If CDbl(masem) < 1 Or CDbl(masem) > 52 Then MsgBox "J'ai dit un numéro de semaine !", , "Ane bâté !" GoTo deb End If If masem <> "" Then MsgBox masem End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Benoit" a écrit dans le message de news:%
Bonjour, j'ai une ImputBox dans laquelle je demande que l'utilisateur saisisse un N° de semaine.
jusque là tout va bien, mais je voudrais verrouillé le systeme en limitant les entrées (de 1 à 52) et aussi, je voudrais supprimer le bugg que j'ai quand je clique sur "annuler".
merci pour vos doubles réponses- Masquer le texte des messages précédents -