bonjour à toutes et à tous
J’ai une colonne D4 : D2000 dans laquelle j’ai des " ras" et des "o".
Dans la colonne B4 : B2000 j'ai des pourcentages qui passent en police rouge si sa concordance en D est égal à "o" sinon elle reste en noire.
Ex pour une ligne :
Sub noirourouge()
Application.ScreenUpdating = False
Range("D4").Select
If Range("D4").Value = "o" Then
Range("B4").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Else
If Range("D4").Value = "ras" Then
Range("B4").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
End If
End If
End Sub
La question est de savoir s'il serait possible de trouver une procédure simple dans le champ défini de 4 à 2000 : que sur chaque ligne sur laquelle on trouve en D un "o" sa concordance B passe en police rouge sinon elle reste en noire.
Merci pour votre aide
J’ai une colonne D4 : D2000 dans laquelle j’ai des " ras" et des "o".
Dans la colonne B4 : B2000 j'ai des pourcentages qui passent en police rouge si sa concordance en D est égal à "o" sinon elle reste en noire.
Ex pour une ligne :
Sub noirourouge()
Application.ScreenUpdating = False
Range("D4").Select
If Range("D4").Value = "o" Then
Range("B4").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Else
If Range("D4").Value = "ras" Then
Range("B4").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
End If
End If
End Sub
La question est de savoir s'il serait possible de trouver une procédure simple dans le champ défini de 4 à 2000 : que sur chaque ligne sur laquelle on trouve en D un "o" sa concordance B passe en police rouge sinon elle reste en noire.
Merci pour votre aide