Comment calculer les font de couleur et prendre le jour

bonjour

pour le premier calcul j ais changer E18 en blanc et le resultal ces pas 9 en E32 Cest 2

et voici le VBA que tu a mis

Function Couleur(cl As Range) As Long

Couleur = cl.Interior.ColorIndex

End Function

Function NVert(cl As Range) As Integer

Dim cel As Range

NVert = 0

For Each cel In cl

If Couleur(cel) = 14 Then

NVert = NVert + 1

Else

Exit For

End If

Next

End Function

et sa fonctionne pas comment je pourrais faire

bien à toi

luky

Si tu as mis E18 en blanc, le résultat en E32 devient bien 2 et non plus 9, c'est normal ! ou alors je n'ai toujours pas compris ce que tu voulais ...

calculer les cellules de couleurs dans chaque colonne . si il y a une case blanche le comptage ce coupe .

bonjour

oui il devais venir 2 et il reste 9 si je mais des cellulle blanche le chiffre de la ligne 32 ne change pas et il devrais changer.

bien à toi

luky

exact, désolé, mais je ne sais pas comment faire

le calcul ne se déclenche que si une valeur est modifiée

ce qu'il faut faire pour rafraîchir, c'st taper sur la touche F9

je viens de faire F9 et rien ne bouge

et encore merci pour m aider regarde si on cest le fait sa serais bien gentil

bien a toi luky

ajoute aussi application.volatile comme ceci

Function Couleur(cl As Range) As Long
application.volatile
Couleur = cl.Interior.ColorIndex
End Function
Function NVert(cl As Range) As Integer
application.volatile
Dim cel As Range
NVert = 0
For Each cel In cl
If Couleur(cel) = 14 Then
NVert = NVert + 1
Else
Exit For
End If
Next
End Function

bonjour

sa marche en fessant F9 super un grand merci

pour la deuxième question je répond sur cette page ou je dois clôture.

bien à toi

luky

heu, j'ai perdu le fil ... c'est quoi ta deuxième question ?

bonjour je vois de regardais sur le tableau

comme sa j espère que j ais été simple

les case de la ligne 11 correspond au nombre de machine et = avec les T comme 9 + T 9

au dessus il y a les 31 jour du mois .

ex 2 il vas en T9 au 2 AK qui correspond le 2 mars 2 machine

le 6 vas au T9 au AL

le 7 vas au T5 AK corepond le 5 mars 7 machine

le T10 ces la fin et on peut mettre plus grand dans la case si possible au il reste a 10

voila et encore un grand merci

bonne journée

bien à toi

luky

J'arrête,

je pense avoir répondu à ta première question

luky123 a écrit :

je voudrais si possible une vba pour qui calcule les cellule de couleur verte et de prendre le jour qui ce trouve sur la ligne supérieur.

Bon courage pour la suite

merci pour ton aide bon week

bien a toi luky