rayer une cellule avec VBA

[pierrot]

bonjour à tous ,
j'ai une formule ci dessous (un bout...) qui colore des cellules en fonction d'un nom, je voudrai en plus les rayer mais je n'arrive pas à combiner mes 2 formules


Case 'absent'
Selection.Interior.ColorIndex = 13
Selection.Font.ColorIndex = 12
Case 'installation'
Selection.Interior.ColorIndex = 8
Selection.Font.ColorIndex = 12




code pour rayer ?

With Selection.Interior
.ColorIndex = 0
.Pattern = xlLightDown
.PatternColorIndex = xlAutomatic

je vous remercie
pierrot

 

[PascalXLD]

Bonjour

essaies par exemple

Selection.Interior.ColorIndex = 13
Selection.Font.ColorIndex = 12
Selection.Font.Strikethrough = True

 

[PascalXLD]

Oups désolé josé

Pas rafraichi Bien que dans la même minute

Bonne journée

 

[pierrot]

bonjour josé et un grand merci,

je voudrai en fait non pas la rayer mais la hachurer entièrement apparament avec le code que j'ai envoyé précedemment ,mais je n'y arrive tjrs pas

merci et bonne journée

pierrot

 

[pierrot]

B) :silly:

merci josé c'est exactement ce que je voulais faire ,je suis super content ;j'en profite pour saluer pascal

et vous souhaiter un bon dimanche à tous

pierrot

B)