OVH Cloud OVH Cloud

Obligation de saisir en B1

15 réponses
Avatar
Caroline L.
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se place
en B1 automatiquement. En B1, l'usager doit inscrire une date au format de
saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98. Voici
ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la date
en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début de
semaine" si l'usager tente de quitter la cellule (vide) et un loop tant que
B1 est vide.

Merci beaucoup

Caroline

10 réponses

1 2
Avatar
anonymousA
re,

qu'est ce que tu appelles "tente d'aller ailleurs" ? S'agit-il d'une
autre cellule, d'uen autre feuille, d'u autre classeur ?
Pour ce qui est de la cellule, le + simple est peut être de ne lui
permettre que d'aller sur B1 en utilisant la propriété de feuille
Enableselection=xlunlockedcells une fois que la feuille est protégée et
que la cellule B1 a bien sur été dévérouillée, toutes choses que
désormais, je suis sur que tu sais faire.

A+

Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se place
en B1 automatiquement. En B1, l'usager doit inscrire une date au format de
saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98. Voici
ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la date
en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début de
semaine" si l'usager tente de quitter la cellule (vide) et un loop tant que
B1 est vide.

Merci beaucoup

Caroline





Avatar
Philippe.R
Bonsoir Caroline,
Ceci, peut être, dans le module de la feuille :

Private Sub Worksheet_Activate()
If Not IsDate([b1]) Then [b1] = ""
If [b1] = "" Then MsgBox "Veuillez maintenant saisir la date de début de semaine", , "MPFE"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([b1]) Then [b1] = ""
If [b1] = "" Then [b1].Select
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se place
en B1 automatiquement. En B1, l'usager doit inscrire une date au format de
saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98. Voici
ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la date
en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début de
semaine" si l'usager tente de quitter la cellule (vide) et un loop tant que
B1 est vide.

Merci beaucoup

Caroline





Avatar
LSteph
ReBonsoir,
Sauf plus de liberté sur le format de saisie du moment qu'il est date
avant la création de la feuille mets un inputbox:

Sub tvd()
Dim mval as string
Do While Not IsDate(mval)
mval = InputBox("entrer une date format jj-mm-aaaa")
Loop
Worksheets.Add
[b1] = Format(mval, "dd-mmm-yy")
End Sub

'lSteph

"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se
place
en B1 automatiquement. En B1, l'usager doit inscrire une date au format de
saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98.
Voici
ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la
date
en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début de
semaine" si l'usager tente de quitter la cellule (vide) et un loop tant
que
B1 est vide.

Merci beaucoup

Caroline





Avatar
Caroline L.
Désolée, j'ai posté 2 fois par erreur.
Je n'ai pas de réponse ? l'exposé de mon problème est peut-être trop
compliqué, pas clair ? Je peux simplifier.
J'ai une macro qui place le curseur automatiquement en B1. Ensuite, j'ai
besoin de votre aide.
- je souhaite qu'il soit impossible de se déplacer dans la feuille (ou
ailleurs dans le classeur) tant que l'usager n'a pas entré de données en B1.
Donc s'il tente de faire "Enter" ou de se déplacer avec les flèches, un
message l'informe "Vous devez saisir maintenant vos données. Il est
impossible que cette case soit vide" et tant que B1 est vide un loop amène
le même message box.

merci de m'aider

Caroline


"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se
place

en B1 automatiquement. En B1, l'usager doit inscrire une date au format de
saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98.
Voici

ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la
date

en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début de
semaine" si l'usager tente de quitter la cellule (vide) et un loop tant
que

B1 est vide.

Merci beaucoup

Caroline





Avatar
jps
allo caroline
m'est avis que ce que tu veux faire peut être réglé par Données Validation
Autoriser et les messages d'alerte avec qui vont bien, du genre "tu vas la
mettre cette date, N..de D.... où je t'écrase la tête"
jps

"Caroline L." a écrit dans le message de
news:H5Z4e.160562$
Désolée, j'ai posté 2 fois par erreur.
Je n'ai pas de réponse ? l'exposé de mon problème est peut-être trop
compliqué, pas clair ? Je peux simplifier.
J'ai une macro qui place le curseur automatiquement en B1. Ensuite, j'ai
besoin de votre aide.
- je souhaite qu'il soit impossible de se déplacer dans la feuille (ou
ailleurs dans le classeur) tant que l'usager n'a pas entré de données en
B1.

Donc s'il tente de faire "Enter" ou de se déplacer avec les flèches, un
message l'informe "Vous devez saisir maintenant vos données. Il est
impossible que cette case soit vide" et tant que B1 est vide un loop amène
le même message box.

merci de m'aider

Caroline


"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se
place

en B1 automatiquement. En B1, l'usager doit inscrire une date au format
de


saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98.
Voici

ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la
date

en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début de
semaine" si l'usager tente de quitter la cellule (vide) et un loop tant
que

B1 est vide.

Merci beaucoup

Caroline









Avatar
jps
hum...je me réponds à moi-même : ça ne règle peut-être pas aussi bien que je
le crois ton problème...
alors, en choeur avec moi, caroline :
DENIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
IIIIIIIIIIIIIIIIIIIIIS, t'es là?
"jps"

a écrit dans le message de
news:O31T%
allo caroline
m'est avis que ce que tu veux faire peut être réglé par Données Validation
Autoriser et les messages d'alerte avec qui vont bien, du genre "tu vas la
mettre cette date, N..de D.... où je t'écrase la tête"
jps

"Caroline L." a écrit dans le message de
news:H5Z4e.160562$
Désolée, j'ai posté 2 fois par erreur.
Je n'ai pas de réponse ? l'exposé de mon problème est peut-être trop
compliqué, pas clair ? Je peux simplifier.
J'ai une macro qui place le curseur automatiquement en B1. Ensuite, j'ai
besoin de votre aide.
- je souhaite qu'il soit impossible de se déplacer dans la feuille (ou
ailleurs dans le classeur) tant que l'usager n'a pas entré de données en
B1.

Donc s'il tente de faire "Enter" ou de se déplacer avec les flèches, un
message l'informe "Vous devez saisir maintenant vos données. Il est
impossible que cette case soit vide" et tant que B1 est vide un loop
amène


le même message box.

merci de m'aider

Caroline


"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se
place

en B1 automatiquement. En B1, l'usager doit inscrire une date au
format



de
saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98.
Voici

ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la
date

en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début
de



semaine" si l'usager tente de quitter la cellule (vide) et un loop
tant



que
B1 est vide.

Merci beaucoup

Caroline












Avatar
MichDenis
Bien sûr JPS, que je suis là ! Tu as un problème ? ;-)

Bonne fin de soirée ou début de nuit ! je vois ce que je peux faire pour Caroline !


Salutations!


"jps" a écrit dans le message de news:
hum...je me réponds à moi-même : ça ne règle peut-être pas aussi bien que je
le crois ton problème...
alors, en choeur avec moi, caroline :
DENIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
IIIIIIIIIIIIIIIIIIIIIS, t'es là?
"jps"

a écrit dans le message de
news:O31T%
allo caroline
m'est avis que ce que tu veux faire peut être réglé par Données Validation
Autoriser et les messages d'alerte avec qui vont bien, du genre "tu vas la
mettre cette date, N..de D.... où je t'écrase la tête"
jps

"Caroline L." a écrit dans le message de
news:H5Z4e.160562$
Désolée, j'ai posté 2 fois par erreur.
Je n'ai pas de réponse ? l'exposé de mon problème est peut-être trop
compliqué, pas clair ? Je peux simplifier.
J'ai une macro qui place le curseur automatiquement en B1. Ensuite, j'ai
besoin de votre aide.
- je souhaite qu'il soit impossible de se déplacer dans la feuille (ou
ailleurs dans le classeur) tant que l'usager n'a pas entré de données en
B1.

Donc s'il tente de faire "Enter" ou de se déplacer avec les flèches, un
message l'informe "Vous devez saisir maintenant vos données. Il est
impossible que cette case soit vide" et tant que B1 est vide un loop
amène


le même message box.

merci de m'aider

Caroline


"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se
place

en B1 automatiquement. En B1, l'usager doit inscrire une date au
format



de
saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98.
Voici

ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la
date

en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début
de



semaine" si l'usager tente de quitter la cellule (vide) et un loop
tant



que
B1 est vide.

Merci beaucoup

Caroline












Avatar
Caroline L.
allo jps,

Bonjour jps,
merci de toujours me faire rire... ça me détend surtout quand j'ai plein de
bug informatique.
Ben oui, je me parle à moi-même... délire informatique ! ! !

Le message qui suit ne s'affiche pas sur mon ordi (dans le forum):
allo caroline
m'est avis que ce que tu veux faire peut être réglé par Données
Validation


Autoriser et les messages d'alerte avec qui vont bien, du genre "tu vas
la


mettre cette date, N..de D.... où je t'écrase la tête"
jps



Alors Oui j'y ai pensé que la validation serait bien mais j'en ai déjà une
dans la cellule. Pas grave. Je pourrais détourner. Donc avec la validation,
je dois être fatiguée mais je n'y arrive pas.

Merci

Caroline



"jps" a écrit dans le message de news:

hum...je me réponds à moi-même : ça ne règle peut-être pas aussi bien que
je

le crois ton problème...
alors, en choeur avec moi, caroline :

DENIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

IIIIIIIIIIIIIIIIIIIIIS, t'es là?
"jps"

a écrit dans le message de
news:O31T%
allo caroline
m'est avis que ce que tu veux faire peut être réglé par Données
Validation


Autoriser et les messages d'alerte avec qui vont bien, du genre "tu vas
la


mettre cette date, N..de D.... où je t'écrase la tête"
jps

"Caroline L." a écrit dans le message de
news:H5Z4e.160562$
Désolée, j'ai posté 2 fois par erreur.
Je n'ai pas de réponse ? l'exposé de mon problème est peut-être trop
compliqué, pas clair ? Je peux simplifier.
J'ai une macro qui place le curseur automatiquement en B1. Ensuite,
j'ai



besoin de votre aide.
- je souhaite qu'il soit impossible de se déplacer dans la feuille
(ou



ailleurs dans le classeur) tant que l'usager n'a pas entré de données
en



B1.
Donc s'il tente de faire "Enter" ou de se déplacer avec les flèches,
un



message l'informe "Vous devez saisir maintenant vos données. Il est
impossible que cette case soit vide" et tant que B1 est vide un loop
amène


le même message box.

merci de m'aider

Caroline


"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur
se




place
en B1 automatiquement. En B1, l'usager doit inscrire une date au
format



de
saisie jj-mm-aaaa mais le format visuel dans la cellule est
14-mar-98.




Voici
ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi
la




date
en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début
de



semaine" si l'usager tente de quitter la cellule (vide) et un loop
tant



que
B1 est vide.

Merci beaucoup

Caroline















Avatar
MichDenis
Bonjour Caroline,

Va voir là, tu peux récupérer un fichier exemple.

Il te reste à l'adapter à tes besoins.

http://cjoint.com/?ehbzlj5ICQ


Salutations!



"Caroline L." a écrit dans le message de news: _4_4e.161158$
allo jps,

Bonjour jps,
merci de toujours me faire rire... ça me détend surtout quand j'ai plein de
bug informatique.
Ben oui, je me parle à moi-même... délire informatique ! ! !

Le message qui suit ne s'affiche pas sur mon ordi (dans le forum):
allo caroline
m'est avis que ce que tu veux faire peut être réglé par Données
Validation


Autoriser et les messages d'alerte avec qui vont bien, du genre "tu vas
la


mettre cette date, N..de D.... où je t'écrase la tête"
jps



Alors Oui j'y ai pensé que la validation serait bien mais j'en ai déjà une
dans la cellule. Pas grave. Je pourrais détourner. Donc avec la validation,
je dois être fatiguée mais je n'y arrive pas.

Merci

Caroline



"jps" a écrit dans le message de news:

hum...je me réponds à moi-même : ça ne règle peut-être pas aussi bien que
je

le crois ton problème...
alors, en choeur avec moi, caroline :

DENIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

IIIIIIIIIIIIIIIIIIIIIS, t'es là?
"jps"

a écrit dans le message de
news:O31T%
allo caroline
m'est avis que ce que tu veux faire peut être réglé par Données
Validation


Autoriser et les messages d'alerte avec qui vont bien, du genre "tu vas
la


mettre cette date, N..de D.... où je t'écrase la tête"
jps

"Caroline L." a écrit dans le message de
news:H5Z4e.160562$
Désolée, j'ai posté 2 fois par erreur.
Je n'ai pas de réponse ? l'exposé de mon problème est peut-être trop
compliqué, pas clair ? Je peux simplifier.
J'ai une macro qui place le curseur automatiquement en B1. Ensuite,
j'ai



besoin de votre aide.
- je souhaite qu'il soit impossible de se déplacer dans la feuille
(ou



ailleurs dans le classeur) tant que l'usager n'a pas entré de données
en



B1.
Donc s'il tente de faire "Enter" ou de se déplacer avec les flèches,
un



message l'informe "Vous devez saisir maintenant vos données. Il est
impossible que cette case soit vide" et tant que B1 est vide un loop
amène


le même message box.

merci de m'aider

Caroline


"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur
se




place
en B1 automatiquement. En B1, l'usager doit inscrire une date au
format



de
saisie jj-mm-aaaa mais le format visuel dans la cellule est
14-mar-98.




Voici
ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi
la




date
en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début
de



semaine" si l'usager tente de quitter la cellule (vide) et un loop
tant



que
B1 est vide.

Merci beaucoup

Caroline















Avatar
Caroline L.
Bonsoir Philippe,

j'ai fait le test et merci c'est pas mal ce que je désire comme résultat. Le
seul truc qui cloche c'est que le messagebox n'apparaît pas à chaque fois
que la case B1 est vide et que l'usager fait ENTER, tu comprends ?

Caroline



"Philippe.R" a écrit dans le message de news:

Bonsoir Caroline,
Ceci, peut être, dans le module de la feuille :

Private Sub Worksheet_Activate()
If Not IsDate([b1]) Then [b1] = ""
If [b1] = "" Then MsgBox "Veuillez maintenant saisir la date de début de
semaine", , "MPFE"

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([b1]) Then [b1] = ""
If [b1] = "" Then [b1].Select
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Caroline L." a écrit dans le message de news:
IdX4e.158558$
Bonjour à tous,

À l'aide d'une macro, une nouvelle feuille est créée et le curseur se
place


en B1 automatiquement. En B1, l'usager doit inscrire une date au format
de


saisie jj-mm-aaaa mais le format visuel dans la cellule est 14-mar-98.
Voici


ma question : Je veux obliger l'usager à saisir sa date, ne pas lui
permettre d'aller ailleurs dans la feuille tant qu'il n'a pas saisi la
date


en B1.
Donc, un message disant "Veuillez maintenant saisir la date de début de
semaine" si l'usager tente de quitter la cellule (vide) et un loop tant
que


B1 est vide.

Merci beaucoup

Caroline








1 2