Discussion :

[cobra38]

Bonjour à tous ( Joyeux Noel !! )

Je souhaiterai simplement à partir de l'exemple ci-dessous faire apparaitre le calendrier et bien sûr y mettre la valeur lorsque l'utisateur saisie une cellule d'une colonne particulière ( par ex : la colone "E" )
Dans l'exemple , seule la cellule "E11" est selectionnée et cela marche très bien mais je cherche à étendre ce principe sur la colonne entière

merci mille fois pour votre aide
A+

[Mytå_Qc]

Salut le forum

Cobra, ton code modifié pour E1 à E10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Calendar1_Click()
    ActiveCell.Value = Me.Calendar1.Value
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Application.Intersect(Target, Range("E1:E10")) Is Nothing Then
    Me.Calendar1.Visible = True
Else
    Me.Calendar1.Visible = False
End If
 
End Sub

Joyeuses Fêtes à tous
Mytå_Qc

[cobra38]

Merci Mytå_Qc pour ta réponse

C'est ce que je recherchais , je vais tenter maintenant de tester la dernière ligne active pour rendre tout cela plus facile à gérer et l'adapter fonction du remplissage du tableau

Merci encore et Bonne Fêtes !!!!!
A+