Colorer une zone de plage par bouton

eriiic

XLDnaute Barbatruc

• 10 Avril 2020

• #2

Bonjour,

VB:

[Zone_Taux_I12_ins].Interior.Color = vbRed

eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2020

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Avril 2020

• #4

Bonjour chaelie

A tester

Edit: Salut eriiic Salut l'agrafe

 

Pièces jointes

• CHARLIE ZONE ROUGE.xlsm

  18.2 KB · Affichages: 5

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 10 Avril 2020

• #5

eriiiic à dit:

Bonjour,

VB:

[Zone_Taux_I12_ins].Interior.Color = vbRed

eric

Cliquez pour agrandir...

Bonjour ERIC
Merci c'est parfait

VB:

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 10 Avril 2020

• #6

Bonjour chaelie2015

Peut-etre comme ceci :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2020

• #7

Re

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 10 Avril 2020

• #8

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

VB:

[Zone_Taux_I12_ins].Interior.Color = xlNone

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2020

• #9

Re

eriiiiic
Tu veux dire comme dans le message#6
😉

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 10 Avril 2020

• #10

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 10 Avril 2020

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2020

• #12

Re

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

 

Vote positif 0 Vote négatif