Coloration texte avec condition
Résolu/Fermé
A voir également:
- Coloration texte avec condition
- Excel cellule couleur si condition texte - Guide
- Si cellule contient texte alors ✓ - Forum Excel
- Mettre un texte en majuscule - Guide
- Deflouter texte - Forum Logiciels
- Transcription audio en texte word gratuit - Guide
2 réponses
Bonjour,
C'est le code couleur qui ne passe pas
Essayes avec ça (Excel 2010)
C'est le code couleur qui ne passe pas
Essayes avec ça (Excel 2010)
Sub Coloration()
Dim cellule As Range
Range("S:S").Select
For Each cellule In Selection
If cellule.Value = "Warning" Then
cellule.Font.Color = -16776961
ElseIf cellule.Value = "Display" Then
cellule.Font.Color = -11489280
End If
Next cellule
End Sub
Merci mais j'ai réussi à répondre a ma problématique entre temps ! merci quand même ! a bientôt
voici le code
Sub coloration()
' Ce programme permet de colorer en rouge les Warnings , Displays et maintenance status
Dern = Range("A" & Rows.Count).End(xlUp).Row ' La variable dernière ligne prend la valeur du numéro de la dernière ligne
For i = Dern To 3 Step -1 ' Pour i allant de la dernière ligne à la ligne 3
Cells(i, 19).Select ' Selection de la cellule (i,19)
If ActiveCell.Value = "Warning" Or ActiveCell.Value = "Display" Or ActiveCell.Value = "Maintenance status" Then ' Si la cellule active est égale à Warning , Display ou Maintenance status alors,
ActiveCell.Font.ColorIndex = 3 ' La police est de couleur rouge
Else ' Sinon
ActiveCell.Font.ColorIndex = 1 ' La police est de couleur noire
End If ' Fin de la confition
Next ' i suivant
End Sub
voici le code
Sub coloration()
' Ce programme permet de colorer en rouge les Warnings , Displays et maintenance status
Dern = Range("A" & Rows.Count).End(xlUp).Row ' La variable dernière ligne prend la valeur du numéro de la dernière ligne
For i = Dern To 3 Step -1 ' Pour i allant de la dernière ligne à la ligne 3
Cells(i, 19).Select ' Selection de la cellule (i,19)
If ActiveCell.Value = "Warning" Or ActiveCell.Value = "Display" Or ActiveCell.Value = "Maintenance status" Then ' Si la cellule active est égale à Warning , Display ou Maintenance status alors,
ActiveCell.Font.ColorIndex = 3 ' La police est de couleur rouge
Else ' Sinon
ActiveCell.Font.ColorIndex = 1 ' La police est de couleur noire
End If ' Fin de la confition
Next ' i suivant
End Sub