Changer la couleur du text dans un Range si

zephir94 · 11 Septembre 2014

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 :

Code:

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 à :

Code:

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 · 11 Septembre 2014

Re : Changer la couleur du text dans un Range si

J'ai donc modifier comme ceci :

Code:

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 · 11 Septembre 2014

Re : Changer la couleur du text dans un Range si

Bonjour zephyr94,

Peut-être comme ceci:

Code:

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 · 11 Septembre 2014

Re : Changer la couleur du text dans un Range si

😎 😱 merci bises

Changer la couleur du text dans un Range si

zephir94

XLDnaute Impliqué

zephir94

XLDnaute Impliqué

Papou-net

XLDnaute Barbatruc

zephir94

XLDnaute Impliqué

Discussions similaires

Changer la couleur du text dans un Range si

zephir94

XLDnaute Impliqué

zephir94

XLDnaute Impliqué

Papou-net

XLDnaute Barbatruc

zephir94

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency