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
Un essai en PJ avec un bouton d'actualisation, et cette macro :
VB:
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