Inscrire la date dans une cellule depuis un calendrier

[Myriam39]

Bonjour à tous,
J'aimerais pouvoir inscrire dans les colonnes C6, E6 et C8, la date sélectionnée depuis un calendrier. J'arrive à générer le calendrier.....et puis c'est tout....!
J'ai trouvé ici que je veux sans pouvoir comprendre comment arriver à ce résultat.
Quelqu'un peut-il m'expliquer en termes simples comment arriver à mes fins ?
D'avance merci !

 

[mutzik]

Re : Inscrire la date dans une cellule depuis un calendrier

bonjour,

je ne vois aucun calendrier ???

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

J'ai supprimé le calendrier puisque je n'arrive pas à en extraire la date.

 

[pierrejean]

Re : Inscrire la date dans une cellule depuis un calendrier

Bonjour Myriam

Salut Bertrand

Vois si cela te convient

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

Excellent Pierre-Jean, c'est tout à fait ça....tu vas peut-être trouver que j'abuse mais peux-tu m'expliquer les étapes pour parvenir à ce résultat ?
En tout cas, un grand merci à vous deux pour votre réactivité et votre générosité.
Myriam

 

[pierrejean]

Re : Inscrire la date dans une cellule depuis un calendrier

Re
Visiual Basic > insertion > userform (Mettre Caption=Calendrier)
Boite a Outils de VBa > mettre dans l'UsF un controle Calendrier
Recopier et eventuellement adapter les Macros de l'USF et de la feuille concernée

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

Merci infiniment Pierre-Jean....je m'y essaie !

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

Pour une plus que débutante comme moi en VBA, c'est impossible d'arriver à un résultat qui fonctionne....! je n'ose te demander une sorte de "tutoriel pour les nuls" !

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

Re
Visiual Basic > insertion > userform (Mettre Caption=Calendrier)
Boite a Outils de VBa > mettre dans l'UsF un controle Calendrier
Recopier et eventuellement adapter les Macros de l'USF et de la feuille concernée

Tout ça, j'ai réussi à faire, non sans mal mais jusqu'au contrôle calendrier. C'est adapter les macros qui me pose souci...quelqu'un pourrait-il m'aider ? merci par avance !

 

[pierrejean]

Re : Inscrire la date dans une cellule depuis un calendrier

Re

OK on veut bien t'aider mais sans savoir ce que tu entends par adapter cela va etre difficile
Poste ton fichier et dis nous ce que tu souhaites

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

Re

OK on veut bien t'aider mais sans savoir ce que tu entends par adapter cela va etre difficile
Poste ton fichier et dis nous ce que tu souhaites

Merci beaucoup Pierre-Jean de ton attention à mon souci...en fait, je voudrais comprendre afin de pouvoir refaire dans tout autre fichier, comment tu parviens d'un click à afficher dans les cellules C12, E12 et E14 la date sélectionnée depuis un calendrier....j'ai approfondi mes connaissances en macro depuis hier mais je suis encore trop juste pour parvenir à mes fins sur ce coup là !

 

[pierrejean]

Re : Inscrire la date dans une cellule depuis un calendrier

Re

Vois des explications en Feuil1
Si probleme n'hesite pas a revenir

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

Pierre-Jean, merci beaucoup pour ta patience à mon égard !
J'ai suivi scrupuleusement tes consignes et je ne comprends ce qui pose problème dans ma saisie...pourtant, j'ai droit au message "Erreur de compilation End If sans bloc If".

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then UserForm1.Show
End If
End Sub

 

[pierrejean]

Re : Inscrire la date dans une cellule depuis un calendrier

Re

ce qui est correct:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then 
UserForm1.Show
End If
End Sub

 

[Myriam39]

Re : Inscrire la date dans une cellule depuis un calendrier

Yeahhhhhhhhhhhhhhhhhhh....j'y suis arrivée.....!!!! Merci beaucoup Pierre-Jean pour ta patience et tes explications !