modifier une macro de boisgontier

[pascal21]

Function couleurFondTexte()
  Application.Volatile
  Select Case Range(Application.Caller.Address).Interior.ColorIndex
    Case 3
       couleurFondTexte = "Ok"
    Case 4
       couleurFondTexte = "Ko"
    Case 6
      couleurFondTexte = "En cours"
    Case Else
      couleurFondTexte = ""
   End Select
End Function

BONSOIR LE FORUM
j'ai trouvé ce code qui permet d'afficher un texte en fonction de
la couleur de la MFC sur le site de Boisgontier et j'aimerais l'adapter dans la colonne A lignes 7 à 200
je n'ai besoin que du rouge
Que faut-il changer?
merci pour votre aide

 

[Staple1600]

Re : modifier une macro de boisgontier

Bonsoir


Une possibilité

Function couleurFondTexte(r As Range) As String
Application.Volatile
couleurFondTexte = IIf(r.Interior.ColorIndex = 3, "OK", "")
End Function

Pour traiter ta colonne A

Sub macro()
Dim i As Long
For i = 7 To 200
Cells(i, "B") = IIf(Cells(i, "A").Interior.ColorIndex = 3, "OK", "")
Next
End Sub