A voir également:
- Mise en forme conditionnelle particulière
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
1 réponse
Sub fonte()
if range("A1).value<35 and range("A1).value>0 then
Range("A7").Font.Bold = True
Range("A7").Font.ColorIndex = 5
else if range("A1).value>35
Range("A7").Font.ColorIndex = 3
Range("A7").Font.Bold = True
else
Range("A7").Font.ColorIndex = 47
Range("A7").Font.Bold = True
Range("A7").Interior .ColorIndex = 15
end if
End Sub
c est ce que tu as demandé ...... mais y a une lacune dans ta question.
a toi de trouver :o).
j ai quand meme rectifié <35 ET >0
@+
if range("A1).value<35 and range("A1).value>0 then
Range("A7").Font.Bold = True
Range("A7").Font.ColorIndex = 5
else if range("A1).value>35
Range("A7").Font.ColorIndex = 3
Range("A7").Font.Bold = True
else
Range("A7").Font.ColorIndex = 47
Range("A7").Font.Bold = True
Range("A7").Interior .ColorIndex = 15
end if
End Sub
c est ce que tu as demandé ...... mais y a une lacune dans ta question.
a toi de trouver :o).
j ai quand meme rectifié <35 ET >0
@+