![]() |
| Le forum de référence en programmation et développement. Articles, cours et tutoriels du débutant au chef de projet et DBA confirmé. | |||||||
|
|||||||
| Excel Forum d'entraide sur Excel |
![]() |
|
|
Outils de la discussion |
|
|
#1 (permalink) |
|
Membre du Club
![]() Date d'inscription: octobre 2007
Messages: 97
|
Bonjour,
j'ai bien regardé tout ce qu'il y a sur le sujet et surtout la faq http://www.developpez.net/forums/d44...de-calendrier/ mais je ne comprend pas comment faire... J'ai une feuille excel et je veux que lorsque je clique sur la cellule D14 un calendrier s'affiche, que je sélectionne une date et que la cellule D14 prenne alors cette date en compte. J'ai cru comprendre qu'il fallait passé par une maccro, je met les morceaux de code que j'ai trouvé mais ça ne fonctionne pas... Je pense que ce sont les 1eres étapes qui me manque... "1 - Dans la faq ils disent :Ajouter sur la feuille contrôle Calendrier que vous trouverez dans les contrôles complémentaires de la boite à outils VBA, et le positionner en bas a droite du coin de la cellule E11 2 - Dans les propriétés du calendrier, mettre visible à false" mais je ne comprend pas ce que cela signifie... quelqu'un peut-il venir à mon secours... Merci, Lilou |
|
|
|
|
|
#2 (permalink) |
|
Membre Expert
![]() Date d'inscription: janvier 2006
Localisation: St Cyr s/mer (83)
Âge: 64
Messages: 1 263
|
Bonjour,
Vous cliquez sur Affichage puis Barre d'outils puis Visual Basic. Vous cliquez sur l'icône Boite à outils contrôles puis dans la barre d'outils qui s'affiche vous cliquez sur Autres contrôles vous double-cliquez sur Controle calendrier 9.0 (selon votre version vous trouverez peut-être autre chose que 9.0). Le calendrier s'affiche. Vous appuyez sur Alt et F11. La fenêtre VBA s'affiche. Vous double-cliquez sur Feuil1 (ou le nom de votre feuille) et dans la fenêtre de droite vous collez ce code : Code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$E$11" Then Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If End Sub Code :
Private Sub Calendar1_Click() Range("E11").Value = Me.Calendar1.Value End Sub
__________________
N'oubliez pas de cliquer sur quand vous avez obtenu la réponse à votre question.
|
|
|
|
|
|
#3 (permalink) |
|
Membre du Club
![]() Date d'inscription: octobre 2007
Messages: 97
|
D'accord merci j'ai réussi... si je veux ensuite faire apparaitre ce calendrier pour deux cellules (mais qui au final ne récupère pas forcement la même date), est-ce que je dois créer deux calendriers séparés et dupliquer le code?
|
|
|
|
![]() |
![]() |
||
[E-00] Calendrier quand clique dans une cellule excel 2000
|
||
Offres d'
emploi informatique
sur Lesjeudis.com
|
| Outils de la discussion | |
|
|