UserForm Calendrier appel

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date du jour
pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF via une
InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur doit
ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par ex) elle
sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une cellule
et ce grâce aux bons soins de MichDenis...), la date par défaut sur le
calendrier est le 15 avril ; est-il possible d'actualiser cette date pour
qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire que
je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date du
jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF via
une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par ex)
elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur le
calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

Bonjour J-Pascal,

Dans le code du formulaire (userform), tu peux utiliser la procédure suivante pour que le "Calandar" affiche la date du jour à
l'ouverture du formulaire.

'-----------------------
Private Sub UserForm_Initialize()

Me.Calendar1 = Date

End Sub
'-----------------------


Salutations!




"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news: OkNaPtrRFHA.3988@tk2msftngp13.phx.gbl...
Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire que
je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date du
jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF via
une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par ex)
elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur le
calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

AMHA: à mon humble avis. Mettre un calendrier dans une Inputbox est à priori
impossible.

UF: userform

Initialize: procédure evenementielle lors de l'ouverture d'un userform

Me.calendar1.value=now veut dire pour le controle calendrier rentre la date
du moment (Now).

A+

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire que
je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date du
jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF via
une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par ex)
elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur le
calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

Merci MichDenis,
Tu es mon sauveur ! Evidemment, ça marche !
(certains de mes msg ont disparu du groupe news !!) Je demandais comment on
pouvait appeler ce calendrier à partir d'un InputBox. Ma proc. est la
suivante : (je sollicite un nom puis après une date comme tu peux le voir) :

Application.ScreenUpdating = True

NomMécénat = InputBox("Saisissez le nom du mécénat :", "nom")
Range("B3") = NomMécénat

On Error Resume Next
DateMécénat = Application.InputBox("Date du mécénat : " & Chr(10) &
"Entrez la date sous la forme jour/mois (ex. 4/7)", Top:, Left:E0)
Range("f2") = DateMécénat
reponse4 = MsgBox("la date du mécénat est : " & DateMécénat & " ?",
vbYesNo + vbQuestion, "nom")
If reponse4 = 7 Then
DateMécénat = InputBox("re-saisissez la date du mécénat (ex. 4/7)
:", "date")
Range("f2") = DateMécénat

Else
End If

Range("B4").Select
ActiveCell.FormulaR1C1 = _
"=PROPER(TEXT(DATEVALUE(R[1]C[4]),""jjjj jj mmmm aaaa""))"

(puis-je faire la même chose en passant par ta fonction calendar ? Ce qui
serait un peu plus convivial...)

D'avance merci

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:erIU9zrRFHA.3336@TK2MSFTNGP09.phx.gbl...

Bonjour J-Pascal,

Dans le code du formulaire (userform), tu peux utiliser la procédure
suivante pour que le "Calandar" affiche la date du jour à

l'ouverture du formulaire.

'-----------------------
Private Sub UserForm_Initialize()

Me.Calendar1 = Date

End Sub
'-----------------------


Salutations!




"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
OkNaPtrRFHA.3988@tk2msftngp13.phx.gbl...

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire que
je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message

de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date du
jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF via
une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par
ex)

elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur le
calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

Bonsoir,
Merci Anonymous. MichDenis ayant répondu avant, j'ai utilisé sa méthode qui
est presque identique à la tienne et AMHA peut-être encore plus simple....
Bonne soirée et bon we,
JP
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:12F9F54D-F641-47C4-9665-A4B8C4C80DCA@microsoft.com...

AMHA: à mon humble avis. Mettre un calendrier dans une Inputbox est à
priori

impossible.

UF: userform

Initialize: procédure evenementielle lors de l'ouverture d'un userform

Me.calendar1.value=now veut dire pour le controle calendrier rentre la
date

du moment (Now).

A+

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire
que

je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message

de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date
du

jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF
via

une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par
ex)

elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur
le

calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

Bonjour J-Pascal,

Sur le formulaire, ajoute un textbox et un bouton de commande.

En utilisant un contrôle de type "Label" (étiquette) , tu places ce dernier juste au dessous du textbox et tu inscris ce que
l'usager doit inscrire dans le textbox. Et au lieu d'appeler un message box, tu ouvres ton formulaire.

Un petit exemple là : http://cjoint.com/?ewulafflW5

P.S. Attention, on n'a pas peut être pas la même version de l'objet calandar

Salutations!


"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news: easZ861RFHA.3988@tk2msftngp13.phx.gbl...
Merci MichDenis,
Tu es mon sauveur ! Evidemment, ça marche !
(certains de mes msg ont disparu du groupe news !!) Je demandais comment on
pouvait appeler ce calendrier à partir d'un InputBox. Ma proc. est la
suivante : (je sollicite un nom puis après une date comme tu peux le voir) :

Application.ScreenUpdating = True

NomMécénat = InputBox("Saisissez le nom du mécénat :", "nom")
Range("B3") = NomMécénat

On Error Resume Next
DateMécénat = Application.InputBox("Date du mécénat : " & Chr(10) &
"Entrez la date sous la forme jour/mois (ex. 4/7)", Top:, Left:E0)
Range("f2") = DateMécénat
reponse4 = MsgBox("la date du mécénat est : " & DateMécénat & " ?",
vbYesNo + vbQuestion, "nom")
If reponse4 = 7 Then
DateMécénat = InputBox("re-saisissez la date du mécénat (ex. 4/7)
:", "date")
Range("f2") = DateMécénat

Else
End If

Range("B4").Select
ActiveCell.FormulaR1C1 = _
"=PROPER(TEXT(DATEVALUE(R[1]C[4]),""jjjj jj mmmm aaaa""))"

(puis-je faire la même chose en passant par ta fonction calendar ? Ce qui
serait un peu plus convivial...)

D'avance merci

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:erIU9zrRFHA.3336@TK2MSFTNGP09.phx.gbl...

Bonjour J-Pascal,

Dans le code du formulaire (userform), tu peux utiliser la procédure
suivante pour que le "Calandar" affiche la date du jour à

l'ouverture du formulaire.

'-----------------------
Private Sub UserForm_Initialize()

Me.Calendar1 = Date

End Sub
'-----------------------


Salutations!




"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
OkNaPtrRFHA.3988@tk2msftngp13.phx.gbl...

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire que
je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message

de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date du
jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF via
une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par
ex)

elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur le
calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

je ne vois pas ce qu'il y a de + simple mais bon !!!

Bonsoir,
Merci Anonymous. MichDenis ayant répondu avant, j'ai utilisé sa méthode qui
est presque identique à la tienne et AMHA peut-être encore plus simple....
Bonne soirée et bon we,
JP
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:12F9F54D-F641-47C4-9665-A4B8C4C80DCA@microsoft.com...

AMHA: à mon humble avis. Mettre un calendrier dans une Inputbox est à

priori

impossible.

UF: userform

Initialize: procédure evenementielle lors de l'ouverture d'un userform

Me.calendar1.value=now veut dire pour le controle calendrier rentre la

date

du moment (Now).

A+

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire

que

je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le

message

de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date

du

jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF

via

une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur

doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par

ex)

elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une

cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur

le

calendrier est le 15 avril ; est-il possible d'actualiser cette date

pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

Merci Mich,
J'ai récupéré ton ficher .xls. Il ne se passe rien ! J'ai regardé le code,
mais pas l'ombre d'un calendrier... J'ai dû râter une étape ! Peux-tu me
mettre un peu sur la voie, stp ?
A+ (PS: existe-t-il plusieurs types de calendriers dans les UF ?)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23xiRLb2RFHA.244@TK2MSFTNGP12.phx.gbl...

Bonjour J-Pascal,

Sur le formulaire, ajoute un textbox et un bouton de commande.

En utilisant un contrôle de type "Label" (étiquette) , tu places ce
dernier juste au dessous du textbox et tu inscris ce que

l'usager doit inscrire dans le textbox. Et au lieu d'appeler un message
box, tu ouvres ton formulaire.

Un petit exemple là : http://cjoint.com/?ewulafflW5

P.S. Attention, on n'a pas peut être pas la même version de l'objet
calandar

Salutations!


"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
easZ861RFHA.3988@tk2msftngp13.phx.gbl...

Merci MichDenis,
Tu es mon sauveur ! Evidemment, ça marche !
(certains de mes msg ont disparu du groupe news !!) Je demandais comment
on

pouvait appeler ce calendrier à partir d'un InputBox. Ma proc. est la
suivante : (je sollicite un nom puis après une date comme tu peux le voir)
:

Application.ScreenUpdating = True

NomMécénat = InputBox("Saisissez le nom du mécénat :", "nom")
Range("B3") = NomMécénat

On Error Resume Next
DateMécénat = Application.InputBox("Date du mécénat : " & Chr(10) &
"Entrez la date sous la forme jour/mois (ex. 4/7)", Top:, Left:E0)
Range("f2") = DateMécénat
reponse4 = MsgBox("la date du mécénat est : " & DateMécénat & "
?",

vbYesNo + vbQuestion, "nom")
If reponse4 = 7 Then
DateMécénat = InputBox("re-saisissez la date du mécénat (ex. 4/7)
:", "date")
Range("f2") = DateMécénat

Else
End If

Range("B4").Select
ActiveCell.FormulaR1C1 = _
"=PROPER(TEXT(DATEVALUE(R[1]C[4]),""jjjj jj mmmm aaaa""))"

(puis-je faire la même chose en passant par ta fonction calendar ? Ce qui
serait un peu plus convivial...)

D'avance merci

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:erIU9zrRFHA.3336@TK2MSFTNGP09.phx.gbl...

Bonjour J-Pascal,

Dans le code du formulaire (userform), tu peux utiliser la procédure
suivante pour que le "Calandar" affiche la date du jour à

l'ouverture du formulaire.

'-----------------------
Private Sub UserForm_Initialize()

Me.Calendar1 = Date

End Sub
'-----------------------


Salutations!




"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
OkNaPtrRFHA.3988@tk2msftngp13.phx.gbl...

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire
que

je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message

de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date
du

jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF
via

une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par
ex)

elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur
le

calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.

Bonjour J-Pascal,

Tu alt + f11 pour ouvrir VBE (visual basic editor)

Tu ouvres l'arborescence de ton projetVBA pour faire apparaître les objets qui le compose

Après avoir sélectionné le formulaire à l'écran, tu dois ajouter dans la boîte d'outils l'accompagnant le contrôle "Calandar" par un
clic droit sur la boîte d'outils / contrôles supplémentaires / Tu coches dans la liste "Contrôle Calandar".

Au besoin, tu dessines le contrôle "Calandar" dans le formulaire.


Voilà !


Salutations!




"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news: %23w0mHO%23RFHA.508@TK2MSFTNGP12.phx.gbl...
Merci Mich,
J'ai récupéré ton ficher .xls. Il ne se passe rien ! J'ai regardé le code,
mais pas l'ombre d'un calendrier... J'ai dû râter une étape ! Peux-tu me
mettre un peu sur la voie, stp ?
A+ (PS: existe-t-il plusieurs types de calendriers dans les UF ?)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23xiRLb2RFHA.244@TK2MSFTNGP12.phx.gbl...

Bonjour J-Pascal,

Sur le formulaire, ajoute un textbox et un bouton de commande.

En utilisant un contrôle de type "Label" (étiquette) , tu places ce
dernier juste au dessous du textbox et tu inscris ce que

l'usager doit inscrire dans le textbox. Et au lieu d'appeler un message
box, tu ouvres ton formulaire.

Un petit exemple là : http://cjoint.com/?ewulafflW5

P.S. Attention, on n'a pas peut être pas la même version de l'objet
calandar

Salutations!


"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
easZ861RFHA.3988@tk2msftngp13.phx.gbl...

Merci MichDenis,
Tu es mon sauveur ! Evidemment, ça marche !
(certains de mes msg ont disparu du groupe news !!) Je demandais comment
on

pouvait appeler ce calendrier à partir d'un InputBox. Ma proc. est la
suivante : (je sollicite un nom puis après une date comme tu peux le voir)
:

Application.ScreenUpdating = True

NomMécénat = InputBox("Saisissez le nom du mécénat :", "nom")
Range("B3") = NomMécénat

On Error Resume Next
DateMécénat = Application.InputBox("Date du mécénat : " & Chr(10) &
"Entrez la date sous la forme jour/mois (ex. 4/7)", Top:, Left:E0)
Range("f2") = DateMécénat
reponse4 = MsgBox("la date du mécénat est : " & DateMécénat & "
?",

vbYesNo + vbQuestion, "nom")
If reponse4 = 7 Then
DateMécénat = InputBox("re-saisissez la date du mécénat (ex. 4/7)
:", "date")
Range("f2") = DateMécénat

Else
End If

Range("B4").Select
ActiveCell.FormulaR1C1 = _
"=PROPER(TEXT(DATEVALUE(R[1]C[4]),""jjjj jj mmmm aaaa""))"

(puis-je faire la même chose en passant par ta fonction calendar ? Ce qui
serait un peu plus convivial...)

D'avance merci

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:erIU9zrRFHA.3336@TK2MSFTNGP09.phx.gbl...

Bonjour J-Pascal,

Dans le code du formulaire (userform), tu peux utiliser la procédure
suivante pour que le "Calandar" affiche la date du jour à

l'ouverture du formulaire.

'-----------------------
Private Sub UserForm_Initialize()

Me.Calendar1 = Date

End Sub
'-----------------------


Salutations!




"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
OkNaPtrRFHA.3988@tk2msftngp13.phx.gbl...

Merci,
Je t'avoue que je n'ai pas tout compris (ce qui n'est pas loin de dire
que

je n'ai rien compris du tout... enfin presque !).
AMHA ?? et la suite...
Désolé,
Bonne nuit,
Je reviens demain,
J-Pascal
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message

de news:45BA020C-1B67-4BD0-A075-6622680C364B@microsoft.com...

bonjour,

pour l'inputbox AMHA ca me parait compromis. Pour le UF avec la date
du

jour

pour le calendrier

me.calendar1.value=now dans le Initialize du UF devrait coller

A+

Bonjour à tous,

Lors de l'exécution d'une procédure, comme puis-je appeler une UF
via

une

InPutBox ?
J'utilise déjà une InputBox pour récupérer des Noms et l'utilisateur
doit

ensuite saisir une date via la UF calendrier ; cette date doit être
récupérer, dans une variable et s'inscrire dans une cellule (A1 par
ex)

elle

sera ensuite utilisée dans la feuille de calcul...
PS : lorsque je lance ma UF (actuellement lorsque je passe sur une
cellule

et ce grâce aux bons soins de MichDenis...), la date par défaut sur
le

calendrier est le 15 avril ; est-il possible d'actualiser cette date
pour

qu'à l'ouverture du calendrier on ait la date du jour par défaut ?

Un grand merci d'avance.