effacer cellule mais pas formule

[accoman]

Bonjour à tous
j'ai fait cette macro en vue de réinitialiser un classeur en fin d'annee, en vue dans redemerer une

Sub effacerexercice()
'
' effacerexercice Macro
' Macro enregistrée le 08/10/2010 par pm
'

'

Dim marep As Long
marep = MsgBox("Avez vous sauvegardé l'exercice?", vbYesNo)

If marep = vbYes Then
Selection.ClearContents
Sheets("Registre Banque").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Registre Caisse").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Livre Recettes").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Livre Depenses").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Mouvements").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Feuil1").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Feuil2").Select
Range("A4:I65000").Select
Selection.ClearContents
Sheets("Sommaire").Select
Range("E12").Select

Else
MsgBox ("Sauvegardez avant")
End If
End Sub

le seul problème s'est que mes formules sont aussi effacé. Que faut t'il rajouter à cette macro afin de résoudre le problème
merci
amicalement

 

[DoubleZero]

Re : effacer cellule mais pas formule

Re-bonjour, bonjour, mutzik,

😕

Aucun message d'erreur n'apparaît sur mon poste.

Merci de ne pas oublier 🙄 l'intervention de mutzik destinée, elle aussi, à venir en aide.

A bientôt 🙂

 

[kabamel]

Re : effacer cellule mais pas formule

Laissez les cellules vides et cliquer sur le bouton "Nettoie" Le message d'erreur apparait
Erreur d'exécution "1004" Pas de cellules correspondante

 

[DoubleZero]

Re : effacer cellule mais pas formule

Re-bonjour,

... Le message d'erreur apparait Erreur d'exécution "1004" Pas de cellules correspondante

Comme mentionné en #16, aucun message d'erreur n'apparaît sur mon poste.

Une autre personne pourrait-elle tester 😱, s'il vous plaît ? Merci 😀

A bientôt 🙂