Réinitialiser une feuille Excel

Bonjour,

J'ai fais un tableau excel pour mon boulot. J'ai créé une macro pour réinitialiser la feuille mais j'aimerais que les formules soient aussi réinitialiser si elles sont effacées.

Je ne protège pas les cellules car, dans certains cas, elles peuvent être modifiée.

Je vous met le fichier en pièce jointe.

Merci de votre aide.

Salut Matthieu,

Pour l'exemple, j'ai effacé la formule de la cellule F22 et ai modifié ton code de manière à ce que la formule initiale soit réécrite si elle a été justement effacée.

Est-ce ce que tu voulais ? Si oui, sais-tu comment faire simplement pour les autres cellules concernées ?

Cordialement.

Merci. Non je ne sait pas faire pour les autres cellules.

Bonsoir

Une solution serait de dupliquer la feuil1. Cette nouvelle feuille sera nommée "Modèle".

On peut la masquer.

Sub Copie()
Sheets("Modèle").Range("A1:I25").Copy Sheets("Feuil1").Range("A1")
Range("A1").Select
End Sub

Amicalement

Nad

Nad a écrit :

Bonsoir

Une solution serait de dupliquer la feuil1. Cette nouvelle feuille sera nommée "Modèle".

On peut la masquer.

Si les formules de "feuil1" sont effacées, tu lances ce code :

Sub Copie()
Sheets("Modèle").Range("A1:I25").Copy Sheets("Feuil1").Range("A1")
Range("A1").Select
End Sub

Amicalement

Nad

Du coup j'ai plus besoin de cette macro ==>

Sub RAZ()
' Macro de GB
' Réinitialisation des cellules de collecte
Range("B3:E3,B7,C7,D7,G7,D10,D22,D23,E21,E22,E23,B5:C5,D5:E5,F3:I3,C14:H17,C8,G8,F1").ClearContents
Range("F22").FormulaR1C1 = "=IF(RC[-1]<>"""",DAYS360(RC[-2],RC[-1],0),"""")"
End Sub

C'est çà ?

Re

Exact : je n'ai pas pensé à la supprimer.

Tu affectes la macro COPIE à ta forme.

Amicalement

Nad

Nad a écrit :

Re

Exact : je n'ai pas pensé à la supprimer.

Tu affectes la macro COPIE à ta forme.

Amicalement

Nad

Merci