Excel : existe-t-il un calendrier ?

bonjour
je vous remercier bcp pour vous aides et vous conseil j'ai suivi tout les etapes le programe est reussi merci
imane Ennassiri de Maroc

Juste trop bien et compatible avec Excel 2010

Oui mais si quelqu'un d'autre sur un autre PC ouvre le fichier Excel, il n'a plus accès à cette macro complémentaire.

Je suis novice en vba j'ai téléchargé le fichier , comment procede t'on pour l'ouvrir?
Merci
jmb

c'est ROYAL AU BAR !!! (on s'arrêtera au café hein.... c'est pas l'heure pour l'apéro )

Big up !!!!

Merci beaucoup

Bonjour j'ai utilisé ce code ( code de Lupin ) pour avoir un calendrier dans ma feuille. Il fonctionne très bien. Comment faire pour avoir plusieurs cellules avec différentes date car ce code fonctionne seulement avec une cellule ?

Bonjour Luc,
Il suffit de modifier :
Set Plage = Range("A1")
Essaye, par exemple :
Set Plage = Range("A1,B2,C3,D1:D10")

Merci Pijaku

J'ai fait l'essai de la suggestion mais cela n'as pas l'effet escompté. Oui je remarque bien un changement mais c'est comme copier, coller. Moi j'ai besoin d'inscrire une date a l'aide du calendrier dans une cellule et ensuite d'écrire une autre date dans une autre cellule a l'aide du calendrier.

Luc

Bonjour,

Luc, tu devrais t'inscrire sur le site pour mieux suivre tes questions.
Tu avais déjà demandé ça ici et je t'y avais répondu

eric

Salut
Désoler pour le trouble mais je ne retrouvais pas ma question. Alors j'ai utilisé une autre méthode pour avoir la réponse.
Bye
Luc

Bonjour Papou93

à quelle ligne doit'on rajouter la plage de cellules à cliquer et/ou la colonne devant contenir la date et sous quelle forme?

Merci

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Je n'ai toujours pas réussi.
Tout d'abord un petit récap de ma configuration.
J'utilise Office 2007 et j'ai Access.
J'arrive à trouver "Contrôle Calendrier 12.0" dans les "Autres contrôles" mais je n'arrive pas à le faire dans un UserForm.
Quand je sélectionne "Contrôle Calendrier 12.0" j'ai une croix pour choisir l'emplacement du Calendrier sur mon tableur excel.
Quand je suis dans le code VB du UserForm je n'ai pas acces à la boite à outils contrôles.

Et autre "petit" problème, je n'arrive pas à enregistrer le fichier excel avant la fermeture pour qu'il conserve le Projet VBA.
Autrement dit, tout le code saisi n'est pas sauvé.

Bref, si une nuit porte conseil je vais essayer d'aller en passer deux ...

Bonjour, pour ma part je recherche la meme fonctionnalité a l exception pres que mon fichier en question est en partage multi utilisateurs, et quand je redige le code ci dessous , puis lance mon outil, en more partage multi utilisateurs, je recois le message suivant: "Unable to set the TOP property of the OLEobject Class".
Si quelqu un a une solution , je suis grandement preneur
par avance merci



Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row >= 8 And Target.Row <= 107 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
Calendar1.Visible = True
' Place le calendrier à côté de la cellule
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
End Sub

Bonjour,

J'ai eu besoin de vos conseils et j'ai trouvé ma solution, j'espère qu'elle vous conviendra.

---//---
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Intersection As Range, Plage As Range

Set Plage = Range("A:A")

Set Intersection = Application.Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
Else
Calendar1.Visible = False
End If

End Sub
---//---