Microsoft 365 Code VBA police de couleur

[DR85]

Bonjour,

Dans le fichier j’ai une colonne avec des nombres. Certains ne sont pas en police de couleur noire.
Si une cellule de la colonne G n’est pas en police de couleur noire alors renvoyer le texte « PROD » en colonne V (même ligne).
Précision: la colonne G se remplira au fil des jours.
pourriez vous svp m’aider?
cordialement
Damien

 

[mapomme]

Re,

Vous pouvez ajouter une instruction volatile dans la fonction.

Function Prod(C As Range)
   Application.Volatile
    If C.Font.Color <> 0 Then Prod = "Prod" Else Prod = ""
End Function

Dans ce cas, un simple appui sur la touche F9 recalculera la feuille (donc de la fonction Prod() )

Si vous désirez un bouton, affectez lui ce code :

Sub Calcule()
   Sheets("Feuil1").Calculate
End Sub

 

[RyuAutodidacte]

Bonjour,
Je n’ai pas encore essayer car la premiere proposition fonctionne. Mais je garde votre proposition pour un prochain test. Merci

remplacer :

If R.Font.ColorIndex <> 1 Then

par

If R.Font.Color <> 0 Then

ca sera mieux

 

[sylvanu]

Re,

Ou peut être un bouton actualiser, ça peut fonctionner?

Un essai en PJ avec un bouton d'actualisation, et cette macro :

Sub RepererProd()
    [V:V].ClearContents
    Application.ScreenUpdating = False
    For L = 1 To [G65500].End(xlUp).Row
        If Cells(L, "G").Font.Color <> 0 Then Cells(L, "V") = "Prod" Else Cells(L, "V") = ""
    Next L
End Sub