Colorer une zone de plage par bouton

chaelie2015

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

Pièces jointes

  • CHARLIE ZONE ROUGE.xlsm
    18.2 KB · Affichages: 7

chaelie2015

XLDnaute Accro
Bonjour,

VB:
[Zone_Taux_I12_ins].Interior.Color = vbRed
eric
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
 

Fred0o

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

Discussions similaires

Réponses
6
Affichages
447

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T