visualisation calendrier

[tokhen]

Bonjour à tous.

J'ai un petit probleme qui consiste à :
Faire apparaitre un objet comme un calendrier lorsque je click sur une cellule identifier.
Example:
Je click sur la cellule B27 et le calendrier (issu des objet dans les macro_ apparait.
Merci.

Par la suite il faudra que je vienne coller la date que j'ai selectionné dans une cellule elle aussi identifiée comme B30.
Re-merci.

 

[ziopizza]

Bonjour tokhen et le Forum,
Regarde fichier joint click en ligne 11.
Salut
Yves [file name=calend2.zip size=10073]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/calend2.zip[/file]
Ce fichier est à adapter à ton problème évidemment.

Message édité par: ziopizza, à: 12/04/2006 12:17

 

[tokhen]

OK.
J'ai pas grand chose à dire sur ton code, si ce n'ai que j'ai pas tout compris!!(pour pas dire rien)
Mais que en l'occurence il est TOP.
Il fait exactement ce que je souhaitai.

Voilà ce que j'avais écrit:
'
Private Sub Calendar1_Click()
Dim value
value = Calendar1.value
Calendar1.Visible = False

End Sub

Private Sub Worksheet_Activate()
Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Feuil2.Cells(27, 1).Click = True) Then
Calendar1.Visible = True
End If
End Sub
'
Si je te mets le code c'est pour voir mon niveau.

Alors: Il y a t-il un moyen d'adapter mon code?
ou dois-je comprerndre le tiens?
Dans ce cas pourrais tu m'aider?
STP.
Merci.

 

[ziopizza]

Re bonjour tokhen,

le fichier adapté d'apres ton code.
A+ Yves [file name=calend3.zip size=14843]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/calend3.zip[/file]
Essaye d'adapter ce code, que j'ai commenté le plus possible,si tu comprends pas hésite pas je
reste branché sur le fil.

Message édité par: ziopizza, à: 12/04/2006 14:27