Réinitialiser une feuille excel

[matthieu2701]

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.

 

[Victor21]

Re : Réinitialiser une feuille excel

Bonsoir, matthieu2701.

Une piste : le tableau original sur une feuille cachée, avec les formules, la création d'une copie de cette feuille lors de la réinitialisation, et la suppression de la feuille modifiée.

 

[matthieu2701]

Re : Réinitialiser une feuille excel

J'y avait pas pensé. Mais je m'y connais pas trop en macro. Que fait il rajouter dans la macro pour faire ce que tu dis ?

 

[Victor21]

Re : Réinitialiser une feuille excel

Re,

[...] Mais je m'y connais pas trop en macro. Que fait il rajouter dans la macro pour faire ce que tu dis ?

La meilleure manière d'apprendre est de réaliser l'opération après avoir activé l'enregistreur (macros, nouvelle macro), puis de stopper l'enregistreur, de tenter de comprendre le code ainsi créé (Alt+F11 pour y accéder), d'essayer de le modifier pour supprimer toutes les "scories", et de revenir avec le fichier+le code si "ca coince" en disant où et quand se situe le problème

 

[matthieu2701]

Re : Réinitialiser une feuille excel

En fait je m'y connaîs pas du tout. On m'avait vachement aidé pour la 1ère macro. Je vais regarder.

 

[Victor21]

Re : Réinitialiser une feuille excel

Re,

Un essai tout simple à copier dans un module standard :

 Sub Macro1()

    '   Pour éviter d'avoir à confirmer la suppression lors de la raz
    Application.DisplayAlerts = False
    
    '   Affichage de la feuille masquée "Modèle"
    Sheets("Modèle").Visible = True
    
    '   Suppression de la feuille modifiée "Modèle(2)
    Sheets("Modèle (2)").Delete
    
    '   Avec la feuille "Modèle)
    With Sheets("Modèle")
    
    '   Créer une copie de "Modèle"
        .Copy Before:=Sheets(1)
        
    '   Masquer "Modèle"
        .Visible = False
        
    End With

End Sub

 

[matthieu2701]

Re : Réinitialiser une feuille excel

Re,

Un essai tout simple à copier dans un module standard :

 Sub Macro1()

    '   Pour éviter d'avoir à confirmer la suppression lors de la raz
    Application.DisplayAlerts = False
    
    '   Affichage de la feuille masquée "Modèle"
    Sheets("Modèle").Visible = True
    
    '   Suppression de la feuille modifiée "Modèle(2)
    Sheets("Modèle (2)").Delete
    
    '   Avec la feuille "Modèle)
    With Sheets("Modèle")
    
    '   Créer une copie de "Modèle"
        .Copy Before:=Sheets(1)
        
    '   Masquer "Modèle"
        .Visible = False
        
    End With

End Sub

Merci beaucoup. Par contre lorsque je renomme les feuilles (je renomme aussi dans la macro) la macro ne fonctionne plus.

 

[Victor21]

Re : Réinitialiser une feuille excel

Re,

lorsque je renomme les feuilles (je renomme aussi dans la macro) la macro ne fonctionne plus.

Exemple ?

 

[matthieu2701]

Re : Réinitialiser une feuille excel

Re,
Exemple ?

Voilà l'exemple

 

[Victor21]

Re : Réinitialiser une feuille excel

Re,

Comme ça, en renommant la feuille créée à partir du modèle ?

 

[matthieu2701]

Re : Réinitialiser une feuille excel

Merci beaucoup

 

[paspat]

Re : Réinitialiser une feuille excel

Bonjour,

Un petit complément car j'ai remarqué que le bouton ne se copiait pas donc pas très facile pour réinitialiser la feuille.

 

[Victor21]

Re : Réinitialiser une feuille excel

Bonsoir, paspat.

j'ai remarqué que le bouton ne se copiait pas

Quelle version ? Pas de souci sur Excel 2003.

 

[paspat]

Re : Réinitialiser une feuille excel

version 2007