OVH Cloud OVH Cloud

Adapter CalFr2

7 réponses
Avatar
Philippe.R
Bonjour à toutes et tous,
J'utilise depuis peu l'userform fourni avec le fichier d'Iznogoog et Daniel M. cité en objet
Ici, pour ceux qui ne connaissent pas : http://frederic.sigonneau.free.fr/Calendriers.htm
Cet UF présente l'avantage de remplacer le contrôle calendrier fourni avec Access et de rendre l'appli
qui l'utilise opérationnelle y compris sur un poste ne disposant que d'Excel.
Je souhaiterais adapter ce calendrier en lui adjoignant la possibilité de choisir la demi journée (matin
ou après midi).
N'ayant pas d'expérience en UF, je suis à la recherche d'une bonne âme qui pourrait m'expliquer comment
procéder, en pas à pas de préférence ; ce sera ainsi pour moi une occasion de progresser un peu.
D'avance merci.
--
Amicales Salutations
XL 97 / 2000 / 2002

7 réponses

Avatar
LSteph
Bonjour Philippe ,

Dommage que par (amha) msquinerie sur le site microsoft on ne puisse plus
downloader le control calendar d'access pour excel.

Une sélection du jour sur un des textbox de FS auquel tu ajoutes
optionbutton (s) pour matin et soir ou AM PM ne ferait-il point l'affaire?

'lsteph

"Philippe.R" a écrit dans le message de news:
%
Bonjour à toutes et tous,
J'utilise depuis peu l'userform fourni avec le fichier d'Iznogoog et
Daniel M. cité en objet
Ici, pour ceux qui ne connaissent pas :
http://frederic.sigonneau.free.fr/Calendriers.htm
Cet UF présente l'avantage de remplacer le contrôle calendrier fourni avec
Access et de rendre l'appli qui l'utilise opérationnelle y compris sur un
poste ne disposant que d'Excel.
Je souhaiterais adapter ce calendrier en lui adjoignant la possibilité de
choisir la demi journée (matin ou après midi).
N'ayant pas d'expérience en UF, je suis à la recherche d'une bonne âme qui
pourrait m'expliquer comment procéder, en pas à pas de préférence ; ce
sera ainsi pour moi une occasion de progresser un peu.
D'avance merci.
--
Amicales Salutations
XL 97 / 2000 / 2002



Avatar
Philippe.R
Bonsoir LeSteph,

C'était la piste que j'avais imaginé prendre ; sur tes encouragements c'est fait et j'ai adapté le code
comme ceci :

Dans le module standard, ajout de la déclaration et modification du code comme suit :

Public soiRmat As String

Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Range("Résultat").Value = "Choix: " & _
Format(UnJour, "dddd dd mmmm yyyy") & " " _
& soiRmat
Else
Range("Résultat").Value = ""
End If
End Sub

Dans le code de l'UF, ajout de ces lignes :

Private Sub OptionButton1_Click()
'la valeur matin est considérée comme valeur par défaut
soiRmat = ""
End Sub

Private Sub OptionButton2_Click()
soiRmat = "Après midi"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002

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

Bonjour Philippe ,

Dommage que par (amha) msquinerie sur le site microsoft on ne puisse plus downloader le control
calendar d'access pour excel.

Une sélection du jour sur un des textbox de FS auquel tu ajoutes
optionbutton (s) pour matin et soir ou AM PM ne ferait-il point l'affaire?

'lsteph

"Philippe.R" a écrit dans le message de news:
%
Bonjour à toutes et tous,
J'utilise depuis peu l'userform fourni avec le fichier d'Iznogood et Daniel M. cité en objet
Ici, pour ceux qui ne connaissent pas : http://frederic.sigonneau.free.fr/Calendriers.htm
Cet UF présente l'avantage de remplacer le contrôle calendrier fourni avec Access et de rendre
l'appli qui l'utilise opérationnelle y compris sur un poste ne disposant que d'Excel.
Je souhaiterais adapter ce calendrier en lui adjoignant la possibilité de choisir la demi journée
(matin ou après midi).
N'ayant pas d'expérience en UF, je suis à la recherche d'une bonne âme qui pourrait m'expliquer
comment procéder, en pas à pas de préférence ; ce sera ainsi pour moi une occasion de progresser un
peu.
D'avance merci.
--
Amicales Salutations
XL 97 / 2000 / 2002







Avatar
LSteph
Bonsoir Philippe,

Cela marche bien et c'est simple...(je garde)

....adapté ton idée ainsi:
Si matin est par défaut
dans propriété de optionbutton1 je mets value à true
et
"Matin" je le renvoie qd même et
au cas où l'on ait cliqué ni sur Matin ni sur soir, dans le module :

Sub Exemple()
Dim UnJour As Date
soiRmat = "Matin"
'......

A bientôt et Joyeuse Pâques.

lSteph

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

Bonsoir LeSteph,

C'était la piste que j'avais imaginé prendre ; sur tes encouragements
c'est fait et j'ai adapté le code comme ceci :

Dans le module standard, ajout de la déclaration et modification du code
comme suit :

Public soiRmat As String

Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Range("Résultat").Value = "Choix: " & _
Format(UnJour, "dddd dd mmmm yyyy") & " " _
& soiRmat
Else
Range("Résultat").Value = ""
End If
End Sub

Dans le code de l'UF, ajout de ces lignes :

Private Sub OptionButton1_Click()
'la valeur matin est considérée comme valeur par défaut
soiRmat = ""
End Sub

Private Sub OptionButton2_Click()
soiRmat = "Après midi"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002

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

Bonjour Philippe ,

Dommage que par (amha) msquinerie sur le site microsoft on ne puisse plus
downloader le control calendar d'access pour excel.

Une sélection du jour sur un des textbox de FS auquel tu ajoutes
optionbutton (s) pour matin et soir ou AM PM ne ferait-il point
l'affaire?

'lsteph

"Philippe.R" a écrit dans le message de news:
%
Bonjour à toutes et tous,
J'utilise depuis peu l'userform fourni avec le fichier d'Iznogood et
Daniel M. cité en objet
Ici, pour ceux qui ne connaissent pas :
http://frederic.sigonneau.free.fr/Calendriers.htm
Cet UF présente l'avantage de remplacer le contrôle calendrier fourni
avec Access et de rendre l'appli qui l'utilise opérationnelle y compris
sur un poste ne disposant que d'Excel.
Je souhaiterais adapter ce calendrier en lui adjoignant la possibilité
de choisir la demi journée (matin ou après midi).
N'ayant pas d'expérience en UF, je suis à la recherche d'une bonne âme
qui pourrait m'expliquer comment procéder, en pas à pas de préférence ;
ce sera ainsi pour moi une occasion de progresser un peu.
D'avance merci.
--
Amicales Salutations
XL 97 / 2000 / 2002










Avatar
Philippe.R
"LSteph" a écrit dans le message de news:
OXb%23%
Bonsoir Philippe,

Cela marche bien et c'est simple...(je garde)

....adapté ton idée ainsi:
Si matin est par défaut
dans propriété de optionbutton1 je mets value à true


C'est ce que j'avais fait aussi, c'est mieux de le dire...
;o))
Encore merci pour le soutien.
Amicales Salutations

Avatar
LSteph
Bonjour Philippe,

:) heu.......(comme une illumination), dans ce cas précis une seule case
cochée ou non aurait peut-être fait l'affaire...
..bon allez personne n'a rien vu , ni entendu...

lSteph

"Philippe.R" a écrit dans le message de news:
%
Bonjour à toutes et tous,
J'utilise depuis peu l'userform fourni avec le fichier d'Iznogoog et
Daniel M. cité en objet
Ici, pour ceux qui ne connaissent pas :
http://frederic.sigonneau.free.fr/Calendriers.htm
Cet UF présente l'avantage de remplacer le contrôle calendrier fourni avec
Access et de rendre l'appli qui l'utilise opérationnelle y compris sur un
poste ne disposant que d'Excel.
Je souhaiterais adapter ce calendrier en lui adjoignant la possibilité de
choisir la demi journée (matin ou après midi).
N'ayant pas d'expérience en UF, je suis à la recherche d'une bonne âme qui
pourrait m'expliquer comment procéder, en pas à pas de préférence ; ce
sera ainsi pour moi une occasion de progresser un peu.
D'avance merci.
--
Amicales Salutations
XL 97 / 2000 / 2002



Avatar
Philippe.R
Bonsoir LSteph,
Sans doute, mais un peu explicite en apparence et peut être même frustrant pour l'utilisateur, en lui
donnant le sentiment que son choix est réduit.
--
Amicales Salutations

"LSteph" a écrit dans le message de news:
Bonjour Philippe,

:) heu.......(comme une illumination), dans ce cas précis une seule case
cochée ou non aurait peut-être fait l'affaire...
..bon allez personne n'a rien vu , ni entendu...

lSteph

"Philippe.R" a écrit dans le message de news:
%
Bonjour à toutes et tous,
J'utilise depuis peu l'userform fourni avec le fichier d'Iznogoog et
Daniel M. cité en objet
Ici, pour ceux qui ne connaissent pas :
http://frederic.sigonneau.free.fr/Calendriers.htm
Cet UF présente l'avantage de remplacer le contrôle calendrier fourni avec
Access et de rendre l'appli qui l'utilise opérationnelle y compris sur un
poste ne disposant que d'Excel.
Je souhaiterais adapter ce calendrier en lui adjoignant la possibilité de
choisir la demi journée (matin ou après midi).
N'ayant pas d'expérience en UF, je suis à la recherche d'une bonne âme qui
pourrait m'expliquer comment procéder, en pas à pas de préférence ; ce
sera ainsi pour moi une occasion de progresser un peu.
D'avance merci.
--
Amicales Salutations
XL 97 / 2000 / 2002








Avatar
LSteph
Bonsoir Philippe,
on va dire cela, tu me rassure!
;o)

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

Bonsoir LSteph,
Sans doute, mais un peu explicite en apparence et peut être même frustrant
pour l'utilisateur, en lui donnant le sentiment que son choix est réduit.
--
Amicales Salutations

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

Bonjour Philippe,

:) heu.......(comme une illumination), dans ce cas précis une seule case
cochée ou non aurait peut-être fait l'affaire...
..bon allez personne n'a rien vu , ni entendu...

lSteph

"Philippe.R" a écrit dans le message de news:
%
Bonjour à toutes et tous,
J'utilise depuis peu l'userform fourni avec le fichier d'Iznogoog et
Daniel M. cité en objet
Ici, pour ceux qui ne connaissent pas :
http://frederic.sigonneau.free.fr/Calendriers.htm
Cet UF présente l'avantage de remplacer le contrôle calendrier fourni
avec
Access et de rendre l'appli qui l'utilise opérationnelle y compris sur
un
poste ne disposant que d'Excel.
Je souhaiterais adapter ce calendrier en lui adjoignant la possibilité
de
choisir la demi journée (matin ou après midi).
N'ayant pas d'expérience en UF, je suis à la recherche d'une bonne âme
qui
pourrait m'expliquer comment procéder, en pas à pas de préférence ; ce
sera ainsi pour moi une occasion de progresser un peu.
D'avance merci.
--
Amicales Salutations
XL 97 / 2000 / 2002