Fonction compter cell de coul. et contenant un txt à partir d'une cell de référence

[michel.dupont]

BONJOUR
j 'ai trouvé ce petit bout de code pour compter le nombre de cellule d'une couleur et contenant une certaine valeur le tout étant dans une cellule de référence...
j'aimerai faire la même chose avec de la couleur et du texte et non des chiffres
si quelqu'un a une petite idée...merci, par avance

voilà le code à modifier
Public Function Som_C_V(pl As Range, ref As Range) As Double
Dim v As Double 'déclare la variable v (Valeur de la référence)
Dim coul As XlColorIndex 'déclare la variable coul (Couleur de la référence)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim t As Double 'déclare la variable t (Total)

v = ref.Value 'définit la valeur de référnce v
coul = ref.Interior.ColorIndex 'définit la couleur de référence
For Each cel In pl 'boucle sur toutes les plage de la palge pl
'si la valeur de la cellule cel vaut v et la couleur de fond de la cellule cel est coul, définit le total t
If cel.Value = v And cel.Interior.ColorIndex = coul Then t = t + v
Next cel
Som_C_V = t 'affiche le total t
End Function

Michel

 

[phlaurent55]

Re : Fonction compter cell de coul. et contenant un txt à partir d'une cell de référe

Bonjour Michel,

fais un essai en remplaçant:

v = ref.Value

par

v = ref.Text



à+
Philippe

Edit: j'avais oublié:

Dim v As Double
par
Dim v As String

 

[michel.dupont]

Re : Fonction compter cell de coul. et contenant un txt à partir d'une cell de référe

merci Philippe
j'ai hélas un retour #valeur
vois-tu où ca coince?
amicalement
Michel

 

[job75]

Re : Fonction compter cell de coul. et contenant un txt à partir d'une cell de référe

Bonsoir Michel, hello Philippe,

Où donc avez-vous été pêcher ce code ?

Public Function Som_C_V(pl As Range, ref As Range) As Double
Application.Volatile
Dim v As String, coul As Long, cel As Range
v = ref.Text
coul = ref.Interior.ColorIndex
For Each cel In pl
If cel.Text = v And cel.Interior.ColorIndex = coul Then Som_C_V = Som_C_V + 1
Next
End Function

ref et cel peuvent contenir n'importe quoi...

A+

 

[michel.dupont]

Re : Fonction compter cell de coul. et contenant un txt à partir d'une cell de référe

MERCI JOB
je suppose que ce code ne marche pas avec une plage dont les couleurs des cellules émanent d'une MFC
Michel

 

[job75]

Re : Fonction compter cell de coul. et contenant un txt à partir d'une cell de référe

Bonjour Michel,

je suppose que ce code ne marche pas avec une plage dont les couleurs des cellules émanent d'une MFC

Il suffit de tester : une MFC ne peut pas modifier la propriété .Interior.ColorIndex d'une cellule...

A+