OVH Cloud OVH Cloud

Peut on récupérer des information données par un utilisateurs?

7 réponses
Avatar
Angelo
Bonjour à tous,
je souhaiterais faire une petite application qui construisse un tableau avec
les dates en enlevant les week end
J'ai eu donc comme idée de demander à l'utlisateur le 1er du mois tombe quel
jour (lundi, mardi...) puis en fonction de la réponse enlevé les bonne date
Le seul problème c'est que je sais vraiment pas comment faire pour :
- demander l'information à l'utilisateur
- récupérer cette info

quelqu'un pourrai m'aider ?

7 réponses

Avatar
Michel Gaboly
Bonjour,

Tu n'as pas besoin de l'utilisateur pour cela : tu peux utiliser la fonct ion de feuille de calcul JOURSEM() ou en VBA,
Weekday.

Bonjour à tous,
je souhaiterais faire une petite application qui construisse un tableau avec
les dates en enlevant les week end
J'ai eu donc comme idée de demander à l'utlisateur le 1er du mois tombe quel
jour (lundi, mardi...) puis en fonction de la réponse enlevé les bonne date
Le seul problème c'est que je sais vraiment pas comment faire pour :
- demander l'information à l'utilisateur
- récupérer cette info

quelqu'un pourrai m'aider ?



--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Daniel
Bonjour.
Tu n'as pas besoin de demander pour connaître le jour de la semaine :
Jour = WorksheetFunction.Weekday("01/01/2005")
Sinon, tu peux utiliser "inputbox" :
Jour = InputBox("Entre le jour de la semaine du premier du mois.")
Ensuite, tu devras vérifier que la réponse est correcte.
Cordialement.
Daniel
"Angelo" a écrit dans le message de news:

Bonjour à tous,
je souhaiterais faire une petite application qui construisse un tableau
avec
les dates en enlevant les week end
J'ai eu donc comme idée de demander à l'utlisateur le 1er du mois tombe
quel
jour (lundi, mardi...) puis en fonction de la réponse enlevé les bonne
date
Le seul problème c'est que je sais vraiment pas comment faire pour :
- demander l'information à l'utilisateur
- récupérer cette info

quelqu'un pourrai m'aider ?


Avatar
Michel Gaboly
Bonjour Daniel,

Pas besoin d'utiliser WorksheetFunction

Il exite une fonction native en VBA, Weekday également.

Par ailleurs, personnellement, je déconseille l'emploi d'InputBox, je p réconise d'employer systématiquement un UserForm,
beaucoup + souple d'emploi.

Bonjour.
Tu n'as pas besoin de demander pour connaître le jour de la semaine :
Jour = WorksheetFunction.Weekday("01/01/2005")
Sinon, tu peux utiliser "inputbox" :
Jour = InputBox("Entre le jour de la semaine du premier du mois.")
Ensuite, tu devras vérifier que la réponse est correcte.
Cordialement.
Daniel
"Angelo" a écrit dans le message d e news:


Bonjour à tous,
je souhaiterais faire une petite application qui construisse un tableau
avec
les dates en enlevant les week end
J'ai eu donc comme idée de demander à l'utlisateur le 1er du mois t ombe
quel
jour (lundi, mardi...) puis en fonction de la réponse enlevé les bo nne
date
Le seul problème c'est que je sais vraiment pas comment faire pour :
- demander l'information à l'utilisateur
- récupérer cette info

quelqu'un pourrai m'aider ?







--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
Daniel
Par ailleurs, personnellement, je déconseille l'emploi d'InputBox, je
préconise d'employer systématiquement un UserForm,
beaucoup + souple d'emploi.


Euh, si tu veux, néanmoins, notre ami ne sachant pas dialoguer avec son
utilisateur, on peut supposer qu'il n'est pas trop familier avec les
userforms.
De plus, personnellement, dans ce cas précis, je trouve que un inputbox est
bien adapté à la simplicité de la question.

Daniel

Avatar
Angelo
ok j'ai fait ce que vous m'avez dis mais ma fonction weekday ne compile pas
voici ce que j'ai fais:

Dim Jour, Nb_jour, Mois, Année, Message$, Message2$, Message3$, Titre$
Message = "Entrer le mois en chiffre (janvier= 01, décembre "
Message3 = "Entrer l'année"
Titre = "création du tableau"
Message2 = "Entrer le nombre de jour compris dans le mois"
Mois = InputBox(Message, Titre)
Année = InputBox(Message3$, Titre)
Nb_jour = InputBox(Message2, Titre)
Jour = WeekDay("1/Mois/Année")


Bonjour.
Tu n'as pas besoin de demander pour connaître le jour de la semaine :
Jour = WorksheetFunction.Weekday("01/01/2005")
Sinon, tu peux utiliser "inputbox" :
Jour = InputBox("Entre le jour de la semaine du premier du mois.")
Ensuite, tu devras vérifier que la réponse est correcte.
Cordialement.
Daniel
"Angelo" a écrit dans le message de news:

Bonjour à tous,
je souhaiterais faire une petite application qui construisse un tableau
avec
les dates en enlevant les week end
J'ai eu donc comme idée de demander à l'utlisateur le 1er du mois tombe
quel
jour (lundi, mardi...) puis en fonction de la réponse enlevé les bonne
date
Le seul problème c'est que je sais vraiment pas comment faire pour :
- demander l'information à l'utilisateur
- récupérer cette info

quelqu'un pourrai m'aider ?







Avatar
Daniel
Remplace :
Jour = WeekDay("1/Mois/Année")
par
Jour = Weekday(DateSerial(Année, Mois, 1))
Daniel

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

ok j'ai fait ce que vous m'avez dis mais ma fonction weekday ne compile
pas
voici ce que j'ai fais:

Dim Jour, Nb_jour, Mois, Année, Message$, Message2$, Message3$, Titre$
Message = "Entrer le mois en chiffre (janvier= 01, décembre "
Message3 = "Entrer l'année"
Titre = "création du tableau"
Message2 = "Entrer le nombre de jour compris dans le mois"
Mois = InputBox(Message, Titre)
Année = InputBox(Message3$, Titre)
Nb_jour = InputBox(Message2, Titre)
Jour = WeekDay("1/Mois/Année")


Bonjour.
Tu n'as pas besoin de demander pour connaître le jour de la semaine :
Jour = WorksheetFunction.Weekday("01/01/2005")
Sinon, tu peux utiliser "inputbox" :
Jour = InputBox("Entre le jour de la semaine du premier du mois.")
Ensuite, tu devras vérifier que la réponse est correcte.
Cordialement.
Daniel
"Angelo" a écrit dans le message de
news:

Bonjour à tous,
je souhaiterais faire une petite application qui construisse un tableau
avec
les dates en enlevant les week end
J'ai eu donc comme idée de demander à l'utlisateur le 1er du mois tombe
quel
jour (lundi, mardi...) puis en fonction de la réponse enlevé les bonne
date
Le seul problème c'est que je sais vraiment pas comment faire pour :
- demander l'information à l'utilisateur
- récupérer cette info

quelqu'un pourrai m'aider ?









Avatar
Daniel
Ou :
Jour = WorksheetFunction.Weekday("1/" & Mois & "/" & Année)
Si tu mets tes variables entre quotes, le nom des variables est considéré
comme du texte.
Daniel
"Angelo" a écrit dans le message de news:

ok j'ai fait ce que vous m'avez dis mais ma fonction weekday ne compile
pas
voici ce que j'ai fais:

Dim Jour, Nb_jour, Mois, Année, Message$, Message2$, Message3$, Titre$
Message = "Entrer le mois en chiffre (janvier= 01, décembre "
Message3 = "Entrer l'année"
Titre = "création du tableau"
Message2 = "Entrer le nombre de jour compris dans le mois"
Mois = InputBox(Message, Titre)
Année = InputBox(Message3$, Titre)
Nb_jour = InputBox(Message2, Titre)
Jour = WeekDay("1/Mois/Année")


Bonjour.
Tu n'as pas besoin de demander pour connaître le jour de la semaine :
Jour = WorksheetFunction.Weekday("01/01/2005")
Sinon, tu peux utiliser "inputbox" :
Jour = InputBox("Entre le jour de la semaine du premier du mois.")
Ensuite, tu devras vérifier que la réponse est correcte.
Cordialement.
Daniel
"Angelo" a écrit dans le message de
news:

Bonjour à tous,
je souhaiterais faire une petite application qui construisse un tableau
avec
les dates en enlevant les week end
J'ai eu donc comme idée de demander à l'utlisateur le 1er du mois tombe
quel
jour (lundi, mardi...) puis en fonction de la réponse enlevé les bonne
date
Le seul problème c'est que je sais vraiment pas comment faire pour :
- demander l'information à l'utilisateur
- récupérer cette info

quelqu'un pourrai m'aider ?