Copier/Coller d'une date lors d'un clic

Bonjour à tous,

Bug VBA.

je souhaite mettre en place des calendriers (et m'abstenir d'utiliser DatePickers ou autres) sur lesquels je souhaites faire des copies d'une date pour la coller ensuite c'est une fonction automatique de copier/coller (uniquement des dates) sur des zones de copie et de coller spécifiques.

Lorsque je fais un copier/coller de date en VBA.je copie une cellule faisant partie de l'une des 2 plages du "Calendrier" Mois M -1ou Mois M.et je viens coller sur une des deux plages définies (Date).
Ça fonctionne bien!

Le petit hic est lorsque le premier clic est en dehors d'une des plages "Calendrier" (donc sans valeur à copier).

Si je clique sur une cellule vide et que le deuxième clic est une autre cellule vide, pas de soucis.
Mais si le second clic est fait dans une des plages définies (Date). C'est là que ça coince, il m'affiche le débogage.

Comment je peux faire?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C7:I12,C16:I21")) Is Nothing Then
Application.CutCopyMode = False
Target.Copy
End If
If Not Intersect(Target, Range("L7:L30,W7:W30")) Is Nothing Then
Target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub

Merci de vos retours.

Bonjour SebDeVals,

Voir code ci-dessous (ajout du test qu'une copie est bien en cours)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C7:I12,C16:I21")) Is Nothing Then
        Application.CutCopyMode = False
        Target.Copy
    End If
    If Not Intersect(Target, Range("L7:L30,W7:W30")) Is Nothing Then
       If Application.CutCopyMode = xlCopy Then
            Target.PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
        End If
    End If
End Sub

Ta version d'Excel est-elle vraiment à jour dans ton profil ?

Cdlt,

Cylfo

Euh, oui et non lol

je bosse sur des versions différentes suivant ou je suis

(de 2016 à 2021).

Merci de ton retour.

j'y regarde dès que je peux.

Un BIG MERCI à Cylfo!!! ;-)