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 UserForm Calendrier appel

UserForm Calendrier appel

18 réponses
Avatar
j-pascal
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.
Signaler un problème avec ce contenu

8 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
1 2
Avatar
j-pascal
Bonsoir Mich,
C'est bon, ça marche ! Qu'est-ce que tu conseilles : hide ou unload ? (sur
l'écran ça donne la même chose mais j'imagine que "unload" consomme moins de
ressources, n'est-ce pas ?).
Encore merci !
JP
"MichDenis" a écrit dans le message de
news:%
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" a écrit dans le message de news:
%23w0mHO%

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" a écrit dans le message de
news:%
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" a écrit dans le message de news:


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" a écrit dans le message de
news:
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" a écrit dans le message de news:


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" a écrit dans le
message

de news:
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.






















Avatar
MichDenis
Bonjur

Comme ton formulaire est très léger et si tu n'as pas à conserver les valeurs inscrites dans ton formulaire, je ne vois pas pourquoi
tu devrais le conserver en mémoire vive ... sauf si ton application y a recours fréquemment.


Salutations!



"j-pascal" a écrit dans le message de news:
Bonsoir Mich,
C'est bon, ça marche ! Qu'est-ce que tu conseilles : hide ou unload ? (sur
l'écran ça donne la même chose mais j'imagine que "unload" consomme moins de
ressources, n'est-ce pas ?).
Encore merci !
JP
"MichDenis" a écrit dans le message de
news:%
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" a écrit dans le message de news:
%23w0mHO%

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" a écrit dans le message de
news:%
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" a écrit dans le message de news:


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" a écrit dans le message de
news:
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" a écrit dans le message de news:


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" a écrit dans le
message

de news:
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.






















Avatar
j-pascal
Merci Mich, c'est un peu ce que je pensais. Pour finir sur ce sujet, a-t-on
accès à plusieurs types de calendriers ? Ou est-il possible de les
"customizer" ?
Bonne journée.
JP
"MichDenis" a écrit dans le message de
news:
Bonjur

Comme ton formulaire est très léger et si tu n'as pas à conserver les
valeurs inscrites dans ton formulaire, je ne vois pas pourquoi

tu devrais le conserver en mémoire vive ... sauf si ton application y a
recours fréquemment.



Salutations!



"j-pascal" a écrit dans le message de news:


Bonsoir Mich,
C'est bon, ça marche ! Qu'est-ce que tu conseilles : hide ou unload ? (sur
l'écran ça donne la même chose mais j'imagine que "unload" consomme moins
de

ressources, n'est-ce pas ?).
Encore merci !
JP
"MichDenis" a écrit dans le message de
news:%
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" a écrit dans le message de news:
%23w0mHO%

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" a écrit dans le message de
news:%
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" a écrit dans le message de news:


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" a écrit dans le message de
news:
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" a écrit dans le message de
news:





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" a écrit dans le
message

de news:
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.



























Avatar
MichDenis
Bonjour J-Pascal,

Selon les versions d'excel, il y a plus d'un fichier source... mais il n'y a qu'un calandar par application. Et ce dernier est
disponible seulement si tu as intallé l'application "Access". Cependant, il est existe aussi un contrôle supplémentaire "DTPicker"
que tu peux utiliser en remplacement du contrôle "calandar". Pour la personnalisation des contrôles, tu dois regarder les propriétés
accompagnant chaque contrôle.


Salutations!


"j-pascal" a écrit dans le message de news:
Merci Mich, c'est un peu ce que je pensais. Pour finir sur ce sujet, a-t-on
accès à plusieurs types de calendriers ? Ou est-il possible de les
"customizer" ?
Bonne journée.
JP
"MichDenis" a écrit dans le message de
news:
Bonjur

Comme ton formulaire est très léger et si tu n'as pas à conserver les
valeurs inscrites dans ton formulaire, je ne vois pas pourquoi

tu devrais le conserver en mémoire vive ... sauf si ton application y a
recours fréquemment.



Salutations!



"j-pascal" a écrit dans le message de news:


Bonsoir Mich,
C'est bon, ça marche ! Qu'est-ce que tu conseilles : hide ou unload ? (sur
l'écran ça donne la même chose mais j'imagine que "unload" consomme moins
de

ressources, n'est-ce pas ?).
Encore merci !
JP
"MichDenis" a écrit dans le message de
news:%
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" a écrit dans le message de news:
%23w0mHO%

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" a écrit dans le message de
news:%
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" a écrit dans le message de news:


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" a écrit dans le message de
news:
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" a écrit dans le message de
news:





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" a écrit dans le
message

de news:
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.



























Avatar
jps
ce calandar me pèse sur l'estomac autant qu'un carembar mais pas qu'un
camambert...
jps

"MichDenis" a écrit dans le message de
news:%
Bonjour J-Pascal,

Selon les versions d'excel, il y a plus d'un fichier source... mais il n'y
a qu'un calandar par application. Et ce dernier est

disponible seulement si tu as intallé l'application "Access". Cependant,
il est existe aussi un contrôle supplémentaire "DTPicker"

que tu peux utiliser en remplacement du contrôle "calandar". Pour la
personnalisation des contrôles, tu dois regarder les propriétés

accompagnant chaque contrôle.


Salutations!


"j-pascal" a écrit dans le message de news:


Merci Mich, c'est un peu ce que je pensais. Pour finir sur ce sujet,
a-t-on

accès à plusieurs types de calendriers ? Ou est-il possible de les
"customizer" ?
Bonne journée.
JP
"MichDenis" a écrit dans le message de
news:
Bonjur

Comme ton formulaire est très léger et si tu n'as pas à conserver les
valeurs inscrites dans ton formulaire, je ne vois pas pourquoi

tu devrais le conserver en mémoire vive ... sauf si ton application y a
recours fréquemment.



Salutations!



"j-pascal" a écrit dans le message de news:


Bonsoir Mich,
C'est bon, ça marche ! Qu'est-ce que tu conseilles : hide ou unload ?
(sur


l'écran ça donne la même chose mais j'imagine que "unload" consomme
moins


de
ressources, n'est-ce pas ?).
Encore merci !
JP
"MichDenis" a écrit dans le message de
news:%
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" a écrit dans le message de news:
%23w0mHO%

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" a écrit dans le message de
news:%
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" a écrit dans le message de
news:





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" a écrit dans le message de
news:
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" a écrit dans le message de
news:





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" a écrit dans
le





message
de news:
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.
































Avatar
MichDenis
C'est donc toi JPS qui m'a incité à écrire calandar de cette manière ... je savais que j'avais lu ça quelque part ! ;-)


Salutations!



"jps" a écrit dans le message de news:
ce calandar me pèse sur l'estomac autant qu'un carembar mais pas qu'un
camambert...
jps

"MichDenis" a écrit dans le message de
news:%
Bonjour J-Pascal,

Selon les versions d'excel, il y a plus d'un fichier source... mais il n'y
a qu'un calandar par application. Et ce dernier est

disponible seulement si tu as intallé l'application "Access". Cependant,
il est existe aussi un contrôle supplémentaire "DTPicker"

que tu peux utiliser en remplacement du contrôle "calandar". Pour la
personnalisation des contrôles, tu dois regarder les propriétés

accompagnant chaque contrôle.


Salutations!


"j-pascal" a écrit dans le message de news:


Merci Mich, c'est un peu ce que je pensais. Pour finir sur ce sujet,
a-t-on

accès à plusieurs types de calendriers ? Ou est-il possible de les
"customizer" ?
Bonne journée.
JP
"MichDenis" a écrit dans le message de
news:
Bonjur

Comme ton formulaire est très léger et si tu n'as pas à conserver les
valeurs inscrites dans ton formulaire, je ne vois pas pourquoi

tu devrais le conserver en mémoire vive ... sauf si ton application y a
recours fréquemment.



Salutations!



"j-pascal" a écrit dans le message de news:


Bonsoir Mich,
C'est bon, ça marche ! Qu'est-ce que tu conseilles : hide ou unload ?
(sur


l'écran ça donne la même chose mais j'imagine que "unload" consomme
moins


de
ressources, n'est-ce pas ?).
Encore merci !
JP
"MichDenis" a écrit dans le message de
news:%
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" a écrit dans le message de news:
%23w0mHO%

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" a écrit dans le message de
news:%
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" a écrit dans le message de
news:





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" a écrit dans le message de
news:
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" a écrit dans le message de
news:





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" a écrit dans
le





message
de news:
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.
































Avatar
jps
forcément que c'est moi, mich!!!!!!
jps
"MichDenis" a écrit dans le message de
news:%
C'est donc toi JPS qui m'a incité à écrire calandar de cette manière ...
je savais que j'avais lu ça quelque part ! ;-)



Salutations!



Avatar
j-pascal
Bonsoir et merci MichDenis et peut-être à un de ces 4...
Bye
JP
"MichDenis" a écrit dans le message de
news:%
Bonjour J-Pascal,

Selon les versions d'excel, il y a plus d'un fichier source... mais il n'y
a qu'un calandar par application. Et ce dernier est

disponible seulement si tu as intallé l'application "Access". Cependant,
il est existe aussi un contrôle supplémentaire "DTPicker"

que tu peux utiliser en remplacement du contrôle "calandar". Pour la
personnalisation des contrôles, tu dois regarder les propriétés

accompagnant chaque contrôle.


Salutations!


"j-pascal" a écrit dans le message de news:


Merci Mich, c'est un peu ce que je pensais. Pour finir sur ce sujet,
a-t-on

accès à plusieurs types de calendriers ? Ou est-il possible de les
"customizer" ?
Bonne journée.
JP
"MichDenis" a écrit dans le message de
news:
Bonjur

Comme ton formulaire est très léger et si tu n'as pas à conserver les
valeurs inscrites dans ton formulaire, je ne vois pas pourquoi

tu devrais le conserver en mémoire vive ... sauf si ton application y a
recours fréquemment.



Salutations!



"j-pascal" a écrit dans le message de news:


Bonsoir Mich,
C'est bon, ça marche ! Qu'est-ce que tu conseilles : hide ou unload ?
(sur


l'écran ça donne la même chose mais j'imagine que "unload" consomme
moins


de
ressources, n'est-ce pas ?).
Encore merci !
JP
"MichDenis" a écrit dans le message de
news:%
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" a écrit dans le message de news:
%23w0mHO%

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" a écrit dans le message de
news:%
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" a écrit dans le message de
news:





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" a écrit dans le message de
news:
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" a écrit dans le message de
news:





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" a écrit dans
le





message
de news:
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.
































1 2