Colorer une zone de plage par bouton

[chaelie2015]

Bonjour Forum
je souhaite modifier mon code ci dessous comme suite :
si je clic sur le bouton "effacer " il va colorer la zone de plage (zone_taux_I12_ins) en rouge a effacer ?
Salutations

 

[eriiic]

Bonjour,

[Zone_Taux_I12_ins].Interior.Color = vbRed

eric

 

[Staple1600]

Bonjour le fil, chaelie2005, eriiiic

eriiiic
Je préfère
[Zone_Taux_I12_ins].Interior.Color = 255
C'est moins parlant, cela laisse la surprise
😉
Ok je sors

EDITION 1: Bonjour pierrejean
EDITION 2: Bonjour Fred0o

 

[pierrejean]

Bonjour chaelie

A tester

Edit: Salut eriiic Salut l'agrafe

 

[chaelie2015]

Bonjour,

[Zone_Taux_I12_ins].Interior.Color = vbRed

eric

Bonjour ERIC
Merci c'est parfait

Sub Vider_zone_taux_I12_ins()
[Zone_Taux_I12_ins].Interior.Color = vbRed
If MsgBox("Vous allez supprimer toutes les données de :" & Chr(10) & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then [Zone_Taux_I12_ins] = Array(0, , "En cours")
[Zone_Taux_I12_ins].Interior.Color = vbWhite
Exit Sub
End Sub

 

[Fred0o]

Bonjour chaelie2015

Peut-etre comme ceci :

Sub Vider_zone_taux_I12_ins()
    [Zone_Taux_I12_ins].Interior.Color = vbRed
    If MsgBox("Vous allez supprimer toutes les données de :" & Chr(10) & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then [Zone_Taux_I12_ins] = Array(0, , "En cours")
    [Zone_Taux_I12_ins].Interior.Pattern = xlNone
End Sub

 

[Staple1600]

Re

Ah les drames, des pages non rafraîchies 😉
(cf messages 2,3 et 4)

 

[eriiic]

Bonjour aux arrivants 🙂
Blanc est une couleur, il faut :

[Zone_Taux_I12_ins].Interior.Color = xlNone

 

[Staple1600]

Re

eriiiiic
Tu veux dire comme dans le message#6
😉

 

[eriiic]

Non, ça me gênait qu'il rétablisse un .Color avec un .Pattern ;-)

 

[chaelie2015]

Bonjour tous le monde
merci pour les réponses c'est parfait
a+

 

[Staple1600]

Re

eriiiiic
J'avais rafraîchi mais mal lu.
Mea culpa
(mais j'ai le neurone vacillant, le confinement ça ramollit 😉)