Copier/coller et Worksheet_SelectionChange

Bonjour,

Ce site est une vraie mine d'or! Merci à tous les connaisseurs impliqués!

J'ai cherché sur le forum, mais je ne trouve pas réponse à ma question.

Afin de garder le décompte du nombre de cellules d'une même couleur, j'ai utilisé du code VB que j'ai trouvé sur le web. Pour permettre de mettre à jour le décompte et de recalculer la feuille sur un changement de sélection de cellule, j'utilise la formule suivante:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Cela fonctionne bien, mais je n'ai plus la possibilité d'effectuer de copier/coller

Quelqu'un a une idée?

Merci!

Bonjour,

sans fichier.....

P.

Voici un fichier pour illustrer mon problème.

Il m'est impossible d'effectuer un copier/coller dans la feuille lorsque le code suivant est présent:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Merci!

re,

je pense que ça vient de là:

mais sans connaitre ces instructions

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = True
Calculate
On Error Resume Next
Application.EnableEvents = False
End Sub

Ça n'a pas fonctionné...

J'ai semi-réglé mon problème en forçant le recalcul sur un double-clic d'une cellule avec ce code:

'Calculer sur double-clic
    If Not Application.Intersect(Target, Range("A1:V150")) Is Nothing Then
       Calculate
    End If

Merci de l'aide!