Strikethrough

Bonjour, j'aurais besoin de votre savoir. Pourquoi cette procédure me donne comme message d'erreur "object requis"?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Pret").Select

With Range("A5:F70")

.Font.Strikethrough = False

End With

ActiveWorkbook.Save

End Sub

Merci beaucoup

Bonjour jujube,

pas de réponse mais validé, j'imagine que t'avais essayé de lancer la macro comme ça toute seule...

Et que après tu t'es aperçu qu'il fallait lui fournir un argument?

ReuK

Salut jujube et le forum

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Pret").Range("A5:F70").Font.Strikethrough = False
ActiveWorkbook.Save
End Sub

La même en plus simple, mais ça implique qu'il existe une feuille de nom "Pret"

A+

Merci beaucoup....