[Zone_Taux_I12_ins].Interior.Color = vbRed
[Zone_Taux_I12_ins].Interior.Color = 255
Bonjour ERICBonjour,
ericVB:[Zone_Taux_I12_ins].Interior.Color = vbRed
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
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
[Zone_Taux_I12_ins].Interior.Color = xlNone