XL 2021 colorer une cellule selectionné dans une plage défine

target · 20 Septembre 2023

Bonjour,
j'aimerais si c'est possible colorer une cellule selectionné en rouge, par un bouton, dans une plage défine avec ce code cela ne fonctionne pas.

VB:

Sub CouleurRouge()
Dim rouge As Range 'colonne gauche
Dim cel

Set rouge = Range("G7:H8,G10:H11,G13:H14,G16:H17,G19:H20,G22:H23,G25:H26,G28:H29,G31:H32,G34:H35,G37:H38,G40:H41")
For Each cel In rouge
cel = Selection.Interior.color = RGB(255, 0, 0) 'couleur de fond
cel = Selection.Font.color = RGB(255, 255, 255) 'couleur de texte

Next
End Sub

Merci d'avance pour vos réponses
Cordialement

sylvanu · 20 Septembre 2023

Bonjour target,
Deux solutions possibles parmi d'autres :

VB:

Sub CouleurRouge()
Dim rouge As Range 'colonne gauche
Dim cel
Set rouge = Range("G7:H8,G10:H11,G13:H14,G16:H17,G19:H20,G22:H23,G25:H26,G28:H29,G31:H32,G34:H35,G37:H38,G40:H41")
For Each cel In rouge
cel.Interior.Color = RGB(255, 0, 0) 'couleur de fond
cel.Font.Color = RGB(255, 255, 255) 'couleur de texte
Next
End Sub
' ou encore
Sub CouleurRouge2()
Dim rouge As Range 'colonne gauche
Set rouge = Range("G7:H8,G10:H11,G13:H14,G16:H17,G19:H20,G22:H23,G25:H26,G28:H29,G31:H32,G34:H35,G37:H38,G40:H41")
rouge.Interior.Color = VbRed ' ou RGB(255, 0, 0) 'couleur de fond
rouge.Font.Color = VbWhite ' ou RGB(255, 255, 255) 'couleur de texte
End Sub

XL 2021 colorer une cellule selectionné dans une plage défine

target

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Discussions similaires