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.
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.