encadrement en fonction de la cellule

judoka0209

XLDnaute Occasionnel
Bonjour,
je voudrais savoir comment faire pour encadrer en rouge les cellules c6 à c11 si c14="ok"
merci
 

Pièces jointes

  • test.xlsx
    9.4 KB · Affichages: 17

Arnold

XLDnaute Nouveau
Bonjour,
je voudrais savoir comment faire pour encadrer en rouge les cellules c6 à c11 si c14="ok"
merci

Bonjour,

En utilisant une macro évènementielle tu peux arriver au résultat.
A adapter selon ton besoin.


Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$14" Then

If Cells(14, 3) = "ok" Then
Range(Cells(6, 3), Cells(11, 3)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End If


If Cells(14, 3) <> "ok" Then
Range(Cells(6, 3), Cells(11, 3)).Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End If
End If
End Sub
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16