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