copie et coller

[RASTA70]

Bonsoir,


ci joint un fichier dans lequel j'utilise une formule somme de couleur plus ce qui suit

Function Comp_Coul(ByRef Plage_T As Range)
Dim Cel_Réf As String
Dim Cel As Range
Dim X As Long
Application.Volatile
Cel_Réf = Application.Caller.Address
For Each Cel In Plage_T
If Cel.Interior.Color = Range(Cel_Réf).Interior.Color Then X = X + 1
Next Cel
Comp_Coul = X
End Function

mais depuis impossible de faire un copier coller.

qq'un pourrait il m'aider
merci d'avance.

 

[RASTA70]

Re : copie et coller

qq'un aurait il une solution merci d'avance

 

[skoobi]

Re : copie et coller

Bonjour RASTA70,

A cause de ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[SIZE=3][B]Calculate[/B][/SIZE]
End Sub

Edit: hello carcha²

 

[RASTA70]

Re : copie et coller

merci de vos reponses .
mais chez moi quand je veus copier une cellule il met impossible de la coller .

skoobi , je ne comprends pas ta reponse

 

[skoobi]

Re : copie et coller

Bonjour,

la méthode Calculate annule une copie en cours visiblement, c'est ce que j'ai constaté après un test. Mais le en commentaire, tu pourras faire le même constat.