Discussion :

[Czweic]

Bonjour,

Tout d'abord, j'espère poster au bonne endroit, dans le cas contraire veuillez m'en escuser. Je suis en train de realiser un petit projet pour un stage, je suis en train de découvrire excel 2007 et son VBA en même temps.

J'ai besoin d'un calendrier, pour entrer une date dans une cellule, j'ai donc ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Donc quand je clique sur une date de mon calendrier, j'ai ma date en C5. Sauf que j'aimerais aller plus loin. J'ai 2 dates, à saisir, et je voudrais le faire avc un seul calendrier.

Par exemple : je clique sur C5, puis sur mon calendrier et j'ai ma date en C5. Je clique sur C6, je clique sur mon calendrier et j'ai ma date en C6.

Je pense qu'il faut "simplement" remplacer le "C5" de mon code par une variable. Et définir cette variable par l'identité (C5, C6 ou autre) en cliquant sur une cellule. Mais je sais pas faire :p

Donc ma question serait : Comment en cliquant sur une cellule, je peux donner son nom dans VBA ? (désolé pour les termes, en 3 jours d'excel à peine, j'ai pas tout appris ^^)

Merci.

[DeaD78]

Salut !

Il faut bien commencer à un moment

Tu testes pour moi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Private Sub Calendar1_Click()
    For i = 5 to 10 'Tu as ton calendrier dans les Cells C5 à C10
        Range("C" & i).Value = Calendar1.Value 'Ton Calendar1 va être utilisé dans les Cells C5 à C10
    Next
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim Intersection As Range, Plage As Range
 
    For j = 5 to 10
        Set Plage = Range("C" & j)
        Set Intersection = Application.Intersect(Target, Plage)
        If Not (Intersection Is Nothing) Then
            Calendar1.Visible = True
        End If
    Next
 
End Sub

Voilà, ici ça devrait marcher pour 5 cellules. Si tu n'en veux que 2, par contre, autant ne pas passer par une boucle. Mais bon, la boucle marche aussi pour 2 valeurs

[Czweic]

Merci bien

Bon déjà, je comprend plus ou moins le code, c'est déjà ça.

J'ai gardé ta boucle, mais j'ai réduis pour 2 cellules.

Coté Test (avec et sans ma modif of course !), j'ai une erreur :

Variable non défini, il me pointe le i. Je suppose qu'il va le faire pour j aussi.

Après recherche, je fois qu'on déclare avec "Dim UnTexte as String "

Je regarde pour mon cas, j'applique, je test, et je reviens :p

EDIT : Voila mon code, avec mes petites modifs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Calendar1_Click()
    Dim i As Integer
    For i = 5 To 6
        Range("C" & i).Value = Calendar1.Value
    Next
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim Intersection As Range, Plage As Range
    Dim j As Integer
    For j = 5 To 6
        Set Plage = Range("C" & j)
        Set Intersection = Application.Intersect(Target, Plage)
        If Not (Intersection Is Nothing) Then
            Calendar1.Visible = True
        End If
    Next
 
End Sub

Donc cela hélas, ne marche pas, il me change la valeur des 2 cellules, comme si il ne prennait pas en compte que je clique sur C5 ou C6.

Au cas ou c'était pas clair, il me faut 2 dates différentes dans mes 2 cellules

[DeaD78]

Oups, au temps pour moi !

Remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Calendar1_Click()
    Dim i As Integer
    For i = 5 To 6
        Range("C" & i).Value = Calendar1.Value
    Next
End Sub

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Calendar1_Click()
        Selection.Value = Calendar1.Value
End Sub

Ca devrait marcher, je pense...

[Czweic]

You're a genius

Merci beaucoup, et bonne journée.

[DeaD78]

De rien et bonne journée