R
RASTA70
Guest
bonsoir,
ci joint un fichier dans lequel , j'ai une formule qui calcule la somme en fonction des couleurs
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
mon probleme vient de cette ligne qui m'empeche de faire un copier coller:
Private Sub Workbook_activate()
Application.CutCopyMode = True
End Sub
comment faire pour que je puisse faire un copier coller et qu'a chaque modification de couleur la somme s'actualise de suite.
merci de votre aide
ci joint un fichier dans lequel , j'ai une formule qui calcule la somme en fonction des couleurs
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
mon probleme vient de cette ligne qui m'empeche de faire un copier coller:
Private Sub Workbook_activate()
Application.CutCopyMode = True
End Sub
comment faire pour que je puisse faire un copier coller et qu'a chaque modification de couleur la somme s'actualise de suite.
merci de votre aide