Contrôle Calendrier 9.0

[Pascal]

Bonjour à tout le forum !

Comme je ne sais pas si ce que je veux faire est possible, je me permets de vous poser cette petite question.

Est-il possible de mettre un code derrière chaque bouton-jour d'un contrôle calendrier 9.0, car je voudrais qu'à chaque fois que je sélectionne un jour particulier une feuille journalière différente apparaîssent.

Si la réponse est oui comment faire ?

Merci et à bientôt !

Pascal

 

[zon]

Salut Pascal,


Avec le code suivant cela fonctionne pour créer une feuille cela fonctionne, il ne rest qu'à l'adapter suivant ce que tu veux faire ...

Private Sub Calendar1_Click()
Dim nom As String
nom = (Format(Calendar1, "DDMMYYYY"))
With ActiveWorkbook
Sheets.Add
With ActiveSheet
.Name = nom
End With
End With
End Sub

A+++

 

[Pascal]

Bonjour Zon !

Merci pour ta réponse qui me servira pour plus tard, mais pour l'instant je crois que je me suis mal expliqué. En effet, je ne veux pas créer une feuille nouvelle à chaque fois que je clique sur un jour car ma Feuille journalière est déjà créée Cette feuille contient 366 fiches pour l'année 2004, ce que je voudrais c'est lier chaque bouton-jour du calendrier sur des cellules précise de la feuille "feuilleJournaliere" (exemple: en cliquant sur le bouton premier janvier 2004 la cellule d1 est sélectionnée, ou en cliquant sur le 02 janvier 2004 le cellule d56 est sélectionnée, 3 janvier --->d111 et cela de 55 en 55 lignes)

merci et à +

Pascal

 

[zon]

Salut à tous et à toi Pascal,


Je vais regarder cela de plus prés..

par contre envoie moi un fichier exemple
A+++

 

[Mytå]

Bonsoir le forum

Deja avec ceci suffit d'ajouter ton code

Private Sub Calendar1_Click()
jour = UserForm1.Calendar1.Day
annee = UserForm1.Calendar1.Year
mois = Mid(UserForm1.Calendar1.Value, 4, 2)
Cells(1, 1) = jour
Cells(2, 1) = mois
Cells(3, 1) = annee
'travail a faire ici avec les variables
End Sub

A suivre

 

[Mytå]

Re le forum

Pascal ceci devrait deja te donner la base pou le reste de ta solution.

Private Sub Calendar1_Click()
jour = UserForm1.Calendar1.Day
annee = UserForm1.Calendar1.Year
mois = Mid(UserForm1.Calendar1.Value, 4, 2)
jour_annee = CDate(UserForm1.Calendar1.Value) - CDate("01/01/" & annee) + 1
Cells(1, 1) = jour
Cells(2, 1) = mois
Cells(3, 1) = annee
Cells(4, 1) = jour_annee
'travail a faire ici avec les variables
UserForm1.Hide
Cells(jour_annee, 4).Select
End Sub

A suivre

P.S. Prière d'accuser réception si cela te convient
ou ne convient pas en répondant sur ce Post ... Merci !

 

[Mytå]

Re Pascal

Voici un fichier joint vite fait tu auras une bonne base

 

[zon]

Re le forum


J'ai mis en appli ta macro, j'ai dû enlever userform1 (je vois pas ce qu'il vient faire ici...)


donc voici un début d'appli:


Private Sub Calendar1_Click()
Dim nom As String
Dim jour As Integer
Dim annee As Integer
Dim mois As Integer
Dim jour_annee As Date



jour = Calendar1.Day
annee = Calendar1.Year
mois = Mid(Calendar1.Value, 4, 2)
jour_annee = CDate(Calendar1.Value) - CDate("01/01/" & annee) + 1
Cells(11, 1) = jour
Cells(12, 1) = mois
Cells(13, 1) = annee
Cells(14, 1) = jour_annee
''''''''''''''Code

End sub

A+++

 

[zon]

RE


Désolé Myta je n'avais pas vu ton fichier exmple controlcalendar.xls..

Trés bon outil pour commencer qui devrait servir à beaucoup de monde..


BRAVO


A++

 

[Mytå]

Salut zon

sans rancune j'en suis a mes debuts avec les userforms

a+ Mytå

 

[Pascal]

Bonsoir à tous !

Merci pour les réponses et un grand bravo à Mita, car c'est exactement ça que je cherchais à faire enfin presque car mes dates sont toutes les 55 lignes mais là j'ai une vraie bonne base.

Excellent ! Encore Chapeau !

Et Zon a raison je n'avais pas encore trouvé sur la Toile cet exemple, à conseiller à Tous.

Je vais m'y mettre de suite et encore Merci ! Merci et Merci !

A bientot ! pour de nouvelles aventures !

Pascal

 

[Mytå]

Re le forum

Version finale pour exemple

 

[Mytå]

Re Pascal

pour saut de 55 lignes remplace la ligne pas ceci

Cells((jour_annee - 1) * 55 + 1, 4).Select

Mytå

 

[Pascal]

Myta, merci !

Tout fonctionne correctement maintenant, je ne sais pas comment tu fais pour trouver ça aussi vite ! car moi j'avais oublié le -1 après jour_annee ce qui faisait que je commençais toujours à la cellule D56 et non à la cellule D1

Eh bien ! je ne sais pas si tu n'es qu'à tes débuts dans les userforms mais ça promet bougrement ! lol

Merci ! et A+

Pascal

 

[Pascal]

Bonjour à tous !

J'ai testé le code de 1 en 1 ligne et tout fonctionne mais de 55 en 55 lignes excel souffre à partir du 12 ou 13 septembre et me donne un message d'erreur :

Erreur d'exécution 6
Dépassement de capacité

Voilà ! c'était pour information

A+ Pascal