affichage d'un calendrier dans certaines cellules en vba

[Guest]

Bonjour à tous,
j'ai trouvé ces codes pour afficher un calendrier mais je voudrais limiter cette fonction à une plage de cellules.j'ai trouvé la solution pour une cellule ou pour une ou plusieurs colonnes mais pas pour une plage de cellules.

'Private Sub CommandButton1_Click()
'ActiveCell = DTPicker1.Value
'Unload Me
'End Sub

'Private Sub CommandButton2_Click()
'Unload Me
'End Sub

'Private Sub UserForm_Initialize()
' DTPicker1.Value = Date
'End Sub

pour les colonnes:
private sub worksheet selectionchange(by val target as range)
if not (target.column >=2 and target.column<=3) then exit sub
userform1.show
end sub

pour une cellule
private sub worksheet selectionchange(by val target as range)
if target.adress<> "$a$1" then exit sub
userform1.show
end sub

merci à tous

 

[Hulk]

Re : affichage d'un calendrier dans certaines cellules en vba

Hello Forum, Dubdub,

Pour te donner une idée...

Private Sub worksheet_SelectionChange(ByVal Target As Range)
    
    If Not Application.Intersect(Target, [C4:F10]) Is Nothing Then
        Target = Date
    End If
    
End Sub

Là, dès que tu sélectionnes une cellule de la plage C4:F10, il affecte la date à la cellule sélectionnée.

Attention, tu as aussi dans ton code

Private Sub [COLOR="Red"][B]worksheet selectionChange[/B][/COLOR](ByVal Target As Range)

alors que c'est

Private Sub [COLOR="green"][B]worksheet_SelectionChange[/B][/COLOR](ByVal Target As Range)

Ainsi que

If Target.[COLOR="red"][B]Adress[/B][/COLOR]

et c'est plutôt

If Traget.[COLOR="Green"][B]Address[/B][/COLOR]

Cdt, Hulk.