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

target

XLDnaute Nouveau
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
 

Pièces jointes

  • test.xlsm
    33.5 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Statistiques des forums

Discussions
313 296
Messages
2 096 915
Membres
106 786
dernier inscrit
Mgordat