calendrier sous excel

[lafrite]

Bonjour,
Je n'arrive pas à récuperer une date prise dans un calendrier
C'est-à-dire, je voudrai associer une cellule à un calendrier. et quand je clique sur une date du calendrier, ça met la date dans ma cellule
help !!

 

[petchy]

Bonjour à tous et toutes


c'est bien un USF avec un calendrier essaye ce code

Private Sub Calendar1_Click()
Dim L As Integer
Static Tic

L = Sheets(1).Range("A65536").End(xlUp).Row + 1
Tic = Tic + 1
With Sheets(3)


End With

End Sub
petchy

 

[jacquesderyes]

Bonjour "lafrite" et à tous les amis du FORUM


Je présume que ton calendier est sur un UF!,Alors:

Private Sub Calendar1_Click()
ActiveSheet.[A1] = Calendar1.Value
End Sub

Si tu veux le CAPTION DU UF peut afficher la date actuelle!Alors:





Private Sub UserForm_Initialize()
Caption = StrConv(Format(Now, "dddd dd mmmm yyyy"), vbProperCase)
End Sub
J'espère que celà répond à ton PB.
Bon courage

Amitiés à tous

Jacques de ryes

 

[petchy]

ReBonjour le Forum,

salut lafrite
il manque cette ligne dans le code,je ne suis pas un expert,mais j'ai eu beaucoup d'aide,donc j'essaye aussi d'aider

.Range("A3") = Format(Calendar1, " DD/MM/YYYY")

petchy

 

[@Christophe@]

Bonjour a tous

Bien débrouller Petchy

Private Sub Calendar1_Click()
Dim L As Integer
Static Tic

L = Sheets("feuil1").Range("A65536").End(xlUp).Row + 1
Tic = Tic + 1
With Sheets("feuil1")
.Range("A1") = Format(Calendar1, " DD/MM/YYYY")

End With

End Sub

Voici le code complet de petchy repris.


Bonne journée a tous

@Christophe@

 

[lafrite]

merci beaucoup mais j'ai un problème de base
Quand je prends un calendrier de "Insérer Objet" --> Controle calendar 9.0, je n'arrive à rien

 

[lafrite]

Est ce qu'on pourrait reprendre les choses depuis le début
Je voudrais avoir un bouton, lorsque l'on clique dessus, un calendrier apparait
Je choisis une date, et la date choisie apparait dans ma cellule B1 par exemple
Merci

 

[@Christophe@]

Bonjour Larife,

Voici un exemple vite fais

C'est pourtant pas compliqué, tu as toutes les donnée, tu crée ton doc, tu vas dans VBA (ALT+F11), tu ajoutes un Userform1, tu ajoute un Controle Calender, tu double clic et tu devrais voir le code suivant

Private Sub Calendar1_Click()

End Sub

La tu ajoute la ligne suivante qui te donnera la valeur du calandrier en A1

ActiveSheet.[A1] = Calendar1.Value

Donc ton code devrais resemblé a ceci:

Private Sub Calendar1_Click()
ActiveSheet.[A1] = Calendar1.Value
End Sub


Voila sur ta feuille tu crée un commenbutton1, le code de ce bouton devra être:

Private Sub CommandButton1_Click()
Userform1 Show
End Sub

Et voila, regarde le fichier joint, je t'ai mis le code de Petchy et le code de Jacques.

@Christophe@

 

[lafrite]

merci bcp, très sympa

 

[lafrite]

le seul problème, j'ajoute très bien un Userform mais impossible d'ajouter un controle calendar sous VBA ...comment faire ?

 

[petchy]

Bonjour à tous et toutes

resalut Lafrite
pour ajouter un calendar tu vas dans
visual basic
outils
controles complementaires
tu cherche calendar 9.0

petchy

 

[@Christophe@]

Bonsoir tous le monde

Petchy, je suis pas d'accord avec toi, rire

il doit chercher "Contrôle Calendar ##.#"

Pas nécessairement 9.0, tous dépends de la version, moi par exemple j'ai 10.0, lol

Mais pour le reste rien a dire

@Christophe@

 

[petchy]

Bonsoir le Forum,

tout à fait autant pour moi.....lol,

plus haut il parler du calendar 9.0

@ pluspetchy

 

[lafrite]

Merci, j'l'avais pas vu !!