Changer la couleur du text dans un Range si

[zephir94]

Bonjour à tous,

Je voudrais mettre en blanc la couleur du texte si dans certaines Cellules j'ai comme texte #DIV/0!
Pour cela j'ai écris :

Private Sub Worksheet_Deactivate()
 Dim verif As String
 verif = "#DIV/0!"
 
   Range("J23") = ""
   Range("L23") = ""
   Range("N23") = ""
   Rows("200") = ""
If Sheets("agent").Range("B27:J27") = verif Then
Range("B27:J27").Font.ColorIndex = 2
Else
Range("B27:J27").Font.ColorIndex = 1
End If


End Sub

Quand la macro arrive à :

If Sheets("agent").Range("B27:J27") = verif Then

c'est le drame !

" erreur 13 incompatibilité de type "

Merci par avance pour m'expliquer pourquoi

 

[zephir94]

Re : Changer la couleur du text dans un Range si

J'ai donc modifier comme ceci :

If Sheets("agent").Range("B27:J27") = verif Then
Sheets("agent").Range("B27:J27").Font.ColorIndex = 2
 Else
 Sheets("agent").Range("B27:J27").Font.ColorIndex = 1
 
End If

Mais c'est pareil !

 

[Papou-net]

Re : Changer la couleur du text dans un Range si

Bonjour zephyr94,

Peut-être comme ceci:

For Each cel In Range("B27:J27")
  If IsError(cel) Then
    cel.Font.Color = cel.Interior.Color
    Else
    cel.Font.ColorIndex = xlAutomatic
  End If
Next

Cordialement.

 

[zephir94]

Re : Changer la couleur du text dans un Range si

😎 😱 merci bises