Insertion d'un calendrier

Version imprimable

31/01/2012, 13h32
Fraizou

Insertion d'un calendrier

Bonjour à tous,

Me revoilà avec un nouveau problème... :cry:

Afin de rendre mon fichier plus ergonique et faciliter son utilisation, j'aimerais pouvoir insérer dans ma colonne Date, dans chaque ligne un calendrier. C'est-à-dire : quand je cliquerai dans la cellule C1 je veux qu'un calendrier apparaisse sur le côté, C2 pareil, C3, etc...

J'espère qu'il y a une autre solution que la macro car je ne connais vraiment pas... Pourtant j'essaye mais ca s'annonce plutôt difficile...

Je vous remercie par avance pour votre aide !

une piste
colle ceci dans la feuille vba

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Private Sub Calendar1_Click()
    Range("A3").Value = Calendar1.Value
End Sub
'
 
Private Sub Calendar1_LostFocus()
    Calendar1.Visible = False
End Sub
'
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim Intersection As Range, Plage As Range
 
    Set Plage = Range("A1")
 
    Set Intersection = Application.Intersect(Target, Plage)
    If Not (Intersection Is Nothing) Then
        Calendar1.Visible = True
    End If
End Sub

il faut auparavant afficher l'onglet developpeur puis inserer le "control calendar 11.0" dans les controles activX sous excel 2007

31/01/2012, 16h10
Fraizou

Je crois vraiment que je n'aime pas les macros !

Je travaille sur Excel 2003 mais j'ai déjà afficher l'onglet développeur pour insérer le control calendar 11.0 pour ensuite copié/collé le code mais je ne sais pas je n'y arrive pas... Il n'y a rien qui se passe.

Je dois sans doute mal m'y prendre...