OVH Cloud OVH Cloud

faire apparaitre calendrier dans cellule

5 réponses
Avatar
luigi
bonjour à tous

J'élabore des plannings à long terme et pour me faciliter la tâche j'aurais
savoir s'il était possible de faire apparaitre un calendrier windows dans la
cellule des dates à choisir pour justement selctionner la date relative..ou
peut créer un userform "calendrier " qu'on appelerait en cliquant sur la
cellule date et ds laquelle la date choisie du userform s'inscrirait.?

Merci pour vos réponses
Luigi
(enlever les chiffres pour me répondre)

5 réponses

Avatar
LSteph
Bonjour,

si tu as une v pro (avec access) tu peux trouver un control Calendar
dans les contrôles supplémentaires de la Boite à outils controls VBA
sinon,
va voir là: http://frederic.sigonneau.free.fr/calendriers
il y a entre autres calfr2 qui devrait faire ton affaire.

lSteph

"luigi" a écrit dans le message de news:
%
bonjour à tous

J'élabore des plannings à long terme et pour me faciliter la tâche
j'aurais
savoir s'il était possible de faire apparaitre un calendrier windows dans
la
cellule des dates à choisir pour justement selctionner la date
relative..ou
peut créer un userform "calendrier " qu'on appelerait en cliquant sur la
cellule date et ds laquelle la date choisie du userform s'inscrirait.?

Merci pour vos réponses
Luigi
(enlever les chiffres pour me répondre)




Avatar
luigi
ok merci pour les renseignements.
je regarde...

Luigi

"LSteph" a écrit dans le message de
news:%23i7D%
Bonjour,

si tu as une v pro (avec access) tu peux trouver un control Calendar
dans les contrôles supplémentaires de la Boite à outils controls VBA
sinon,
va voir là: http://frederic.sigonneau.free.fr/calendriers
il y a entre autres calfr2 qui devrait faire ton affaire.

lSteph

"luigi" a écrit dans le message de news:
%
bonjour à tous

J'élabore des plannings à long terme et pour me faciliter la tâche
j'aurais
savoir s'il était possible de faire apparaitre un calendrier windows
dans


la
cellule des dates à choisir pour justement selctionner la date
relative..ou
peut créer un userform "calendrier " qu'on appelerait en cliquant sur la
cellule date et ds laquelle la date choisie du userform s'inscrirait.?

Merci pour vos réponses
Luigi
(enlever les chiffres pour me répondre)








Avatar
luigi
il y a entre autres calfr2 qui devrait faire ton affaire.
Cet exemple me convient parfaitement si ce n'est que j'ai plusieurs cellules

à renseigner ..et le code impose une cellule nommée "résultat":

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


il faudrait simplement que la date s'insère sur la cellule selectionnée ..ça
ne doit pas etre compliqué mais je tourne en rond

Merci
Luigi



"LSteph" a écrit dans le message de
news:%23i7D%
Bonjour,

si tu as une v pro (avec access) tu peux trouver un control Calendar
dans les contrôles supplémentaires de la Boite à outils controls VBA
sinon,
va voir là: http://frederic.sigonneau.free.fr/calendriers

"luigi" a écrit dans le message de news:
%
bonjour à tous

J'élabore des plannings à long terme et pour me faciliter la tâche
j'aurais
savoir s'il était possible de faire apparaitre un calendrier windows
dans


la
cellule des dates à choisir pour justement selctionner la date
relative..ou
peut créer un userform "calendrier " qu'on appelerait en cliquant sur la
cellule date et ds laquelle la date choisie du userform s'inscrirait.?

Merci pour vos réponses
Luigi
(enlever les chiffres pour me répondre)








Avatar
Jacques93
Bonjour luigi

Mais rien ne t'interdit d'adaper, remplaces
Range("résultat") par ActiveCell :

Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier

If UnJour <> 0 Then
ActiveCell.Value = "Choix: " & Format(UnJour, "dddd dd mmmm yyyy")
Else
ActiveCell.Value.Value = ""
End If
End Sub

il y a entre autres calfr2 qui devrait faire ton affaire.


Cet exemple me convient parfaitement si ce n'est que j'ai plusieurs cellules
à renseigner ..et le code impose une cellule nommée "résultat":

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


il faudrait simplement que la date s'insère sur la cellule selectionnée ..ça
ne doit pas etre compliqué mais je tourne en rond

Merci
Luigi



"LSteph" a écrit dans le message de
news:%23i7D%

Bonjour,

si tu as une v pro (avec access) tu peux trouver un control Calendar
dans les contrôles supplémentaires de la Boite à outils controls VBA
sinon,
va voir là: http://frederic.sigonneau.free.fr/calendriers

"luigi" a écrit dans le message de news:
%

bonjour à tous

J'élabore des plannings à long terme et pour me faciliter la tâche
j'aurais
savoir s'il était possible de faire apparaitre un calendrier windows



dans

la
cellule des dates à choisir pour justement selctionner la date
relative..ou
peut créer un userform "calendrier " qu'on appelerait en cliquant sur la
cellule date et ds laquelle la date choisie du userform s'inscrirait.?

Merci pour vos réponses
Luigi
(enlever les chiffres pour me répondre)











--
Cordialement,

Jacques.



Avatar
luigi
Merci bien

je faisais cell.value ...avec ActiveCell ça marche tout seul ..

encore merci
Luigi



"Jacques93" a écrit dans le message de
news:
Bonjour luigi

Mais rien ne t'interdit d'adaper, remplaces
Range("résultat") par ActiveCell :

Sub Exemple()
Dim UnJour As Date
UnJour = FormCal.Calendrier

If UnJour <> 0 Then
ActiveCell.Value = "Choix: " & Format(UnJour, "dddd dd mmmm yyyy")
Else
ActiveCell.Value.Value = ""
End If
End Sub

il y a entre autres calfr2 qui devrait faire ton affaire.


Cet exemple me convient parfaitement si ce n'est que j'ai plusieurs
cellules


à renseigner ..et le code impose une cellule nommée "résultat":

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


il faudrait simplement que la date s'insère sur la cellule selectionnée
..ça


ne doit pas etre compliqué mais je tourne en rond

Merci
Luigi



"LSteph" a écrit dans le message de
news:%23i7D%

Bonjour,

si tu as une v pro (avec access) tu peux trouver un control Calendar
dans les contrôles supplémentaires de la Boite à outils controls VBA
sinon,
va voir là: http://frederic.sigonneau.free.fr/calendriers

"luigi" a écrit dans le message de news:
%

bonjour à tous

J'élabore des plannings à long terme et pour me faciliter la tâche
j'aurais
savoir s'il était possible de faire apparaitre un calendrier windows



dans

la
cellule des dates à choisir pour justement selctionner la date
relative..ou
peut créer un userform "calendrier " qu'on appelerait en cliquant sur
la




cellule date et ds laquelle la date choisie du userform s'inscrirait.?

Merci pour vos réponses
Luigi
(enlever les chiffres pour me répondre)











--
Cordialement,

Jacques.