s'afficher la date sélectionnée d'un calendrier créé avec un US

[Patrick.75019]

Bonjour à tous

Comment faire s'afficher la date sélectionnée d'un calendrier créé avec un US
dans une cellule déterminée par exemple B10

Voir le fichier ce sera plus explicite

à l'avance merci pour votre réponse ..

bonne fin de journée.

 

[Cousinhub]

Re : s'afficher la date sélectionnée d'un calendrier créé avec un US

Bonjour,
Dans l'éditeur VBE (Alt + F11), tu double-cliques sur l'userform, au niveau des jours
et tu entres ceci :

Private Sub Calendar1_Click()
[B10] = Me.Calendar1
End Sub

Chez moi, j'ai bien la date en français

 

[Patrick.75019]

Re : s'afficher la date sélectionnée d'un calendrier créé avec un US

merci BhBh,

maintenant pour approfondir un peu, j'aimerai savoir comment faire avec l'appel de ce même calendrier, si je souhaitais inscrire
1 date en B10
une seconde date differente en B11
une troisième differente encore en B12
Etc..etc

merci encore

 

[Cousinhub]

Re : s'afficher la date sélectionnée d'un calendrier créé avec un US

Re-,
essaie :

Private Sub Calendar1_Click()
Dim Lig As Long
Lig = IIf([B65000].End(xlUp).Row + 1 < 10, 10, [B65000].End(xlUp).Row + 1)
Cells(Lig, 2) = Me.Calendar1
End Sub

 

[Patrick.75019]

Re : s'afficher la date sélectionnée d'un calendrier créé avec un US

Ca fonctionne parfait

merci

Bonne fin de soirée

 

[kiki29]

Re : s'afficher la date sélectionnée d'un calendrier créé avec un US

Salut

Private Sub CommandButton1_Click()
    UserForm1.Show vbModeless
End Sub

Private Sub Calendar1_Click()
    ActiveCell.Value = CDate(Me.Calendar1)
End Sub

 

[Patrick.75019]

Re : s'afficher la date sélectionnée d'un calendrier créé avec un US

Merci , et remercie ..

je mets en mémoire le code ..

@+