XL 2010 Créer un bouton de restauration

sylvanu à dit:

Bonsoir,
Le plus simple à mes yeux serait d'avoir une feuille modèle inaccessible à l'utilisateur.
Il suffirait alors de recopier ce modèle dans la Facture lors de la ré initialisation..
De plus on peut utiliser un mot de passe pour tout protéger hormis la zone C16:E55.

Cliquez pour agrandir...

mostefa mokhtar à dit:

Merci pour votre réponse, mais je pense qu'un bouton est plus pratique car plusieurs personne utilisent ce classeur.
Le bouton "RESTAURE" existant n'efface que les données qui sont ajoutées mais ne restaure pas une ligne ou une colonne supprimée par mégarde.

Cliquez pour agrandir...

Franc58 à dit:

je ne vois pas en quoi la méthode de sylvanu est incompatible avec un bouton ???

Cliquez pour agrandir...

riton00 à dit:

Bonjour,

Ou alors peut-être avec ce code qui t'empêche l'accès dans certaine cellule stratégique....voir PJ à tester

slts

Cliquez pour agrandir...

sylvanu à dit:

Bonjour le fil,
[ Franchement à labour, mais comme c'est fait, je livre. ]
Comme le dit Franc :

Dans la PJ, une feuille Modèle est crée et masquée.
Quand on Restaure, on supprime la feuille Facture, on duplique et renomme la feuille Modèle.
Donc ainsi "impossible" de bidouiller la feuille.
Et j'ai protéger les zones qui n'ont pas à être modifier.

Cliquez pour agrandir...

mostefa mokhtar à dit:

merccccccccccccccccci !!!

Cliquez pour agrandir...

Franc58 à dit:

Voici une suggestion basée sur l'idée de sylvanu. Dans le classeur il y a un feuille cachée nommée "Modèle" et qui contient une copie vierge de la facture. Un clic sur le bouton "Restaure" et la macro va supprimer la feuille "Facture", recopier la feuille "Modèle" et la renommer en "Facture".

VB:

Sub EffaceDonnées()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet

    Set wsSource = ThisWorkbook.Sheets("Modèle")
    Set wsDestination = ThisWorkbook.Sheets("Facture")

    ' Copier la feuille source avant la feuille de destination
    wsSource.Copy Before:=wsDestination

    ' Supprimer la feuille "Facture" existante
    Application.DisplayAlerts = False ' Désactiver les alertes
    wsDestination.Delete
    Application.DisplayAlerts = True ' Réactiver les alertes

    ' Renommer la nouvelle feuille copiée en "Facture"
    With Sheets(1)
        .Name = "Facture"
        .Visible = True
        .Activate
    End With
  
End Sub

Cliquez pour agrandir...