Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

sauvegarde et effacement de données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mix770
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mix770

XLDnaute Impliqué
Bonjour le forum,
je souhaiterai avoir un document qui en fin d'année permet:
- de faire une copie du fichier
- de supprimer toutes les lignes dans chaque onglet (un par pôle)
j'ai construit avec mes moyens mais bon, c'est une macro lourde, je ne sais pas comment intégrer la copie du fichier et redéfinir la zone d'impression par page.
l’idéal serai que cette action soit protégée par un mot de passe quand on clic sur le bouton de lancement de la macro.

j'ai ci dessous une macro pas très académique..., merci à vous pour votre aide.


Sub Efface_Données_2()
'
' selectionner les lignes et supprimer
Sheets("Pôle Restauration").Select
Rows("9:1600").Select
Selection.Delete Shift:=xlUp
'selectionner ligne et vider contenu
Range("B8:H8").Select
Selection.ClearContents
' selectionner cellule qui additionne les kilometres et réinscrire formule
Range("G4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[4]C:R[1500]C)"

Sheets("Pôle Compétences").Select
Rows("9:1600").Select
Selection.Delete Shift:=xlUp
Range("B8:H8").Select
Selection.ClearContents
Range("G4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[4]C:R[1500]C)"
Sheets("Pôle Séjour Activité").Select
Rows("9:1600").Select
Selection.Delete Shift:=xlUp
Range("B8:H8").Select
Selection.ClearContents
Range("G4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[4]C:R[1500]C)"
Sheets("Pôle Maintenance").Select
Rows("9:1600").Select
Selection.Delete Shift:=xlUp
Range("B8:H8").Select
Selection.ClearContents
Range("G4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[4]C:R[1500]C)"
Sheets("Pôle RH").Select
Rows("9:1600").Select
Selection.Delete Shift:=xlUp
Range("B8:H8").Select
Selection.ClearContents
'revenir à la page accueil
Sheets("ACCUEIL").Select
Range("A1").Select
End Sub


cordialement.
 
Trier par date Trier par votes
Re : sauvegarde et effacement de données

Bonjour Mix, le forum,

il faut éviter au maximum les select qui alourdissent beaucoup le traitement.

Du coup,
Code: 
' selectionner les lignes et supprimer
Sheets("Pôle Restauration").Select
Rows("9:1600").Select
Selection.Delete Shift:=xlUp
devient
Code: 
Sheets("Pôle Restauration").Rows("9:1600").Delete Shift:=xlUp

A adapter aux autres codes...
Bon courage
 
Vote positif 0 Vote négatif
Re : sauvegarde et effacement de données

Bonjour le fil, bonjour le forum,

D'accord avec Titiborregan au sujet des Select...
Essaie comme ça :
Code: 
Sub Efface_Données_2()
Dim o As Object 'déclare la variable o (Onglet)

For Each o In Sheets 'boucle sur tous les onglets du classeur
    Select Case o.Name 'agit en fonction du nom de l'onglet
        Case "Pôle Restauration", "Pôle Compétences", "Pôle Séjour Activité", "Pôle Maintenance", "Pôle RH" 'cas
            With o 'prend en compte l'onglet
                ' selectionner les lignes et supprimer
                .Rows("9:1600").Delete Shift:=xlUp
                'selectionner ligne et vider contenu
                .Range("B8:H8").ClearContents
                ' selectionner cellule qui additionne les kilometres et réinscrire formule
                .Range("G4").FormulaR1C1 = "=SUM(R[4]C:R[1500]C)"
            End With 'fin de la prise en compte de l'onglet
            o.PageSetup.PrintArea = "$B$8:$H$8" 'définit la zone d'impression (à adapter)
            o.Protect Password:="toto" 'protège l'onglet par mot de passe (à adapter)
    End Select 'fin de l'action en fonction du nom de l'onglet
Next o 'prochain onglet de la boucle
Sheets("ACCUEIL").Select 'si au départ tu es déjà dans l'onglet "ACCUEIL", cette ligne n'est plus nécessaire...
Range("A1").Select 'si au départ tu es déjà dans la cellule A1, cette ligne n'est plus nécessaire...
End Sub

si ton classeur ne comporte que les 5 onglets cités dans le Case, tu peux supprimer les trois lignes :
Code: 
    Select Case o.Name 'agit en fonction du nom de l'onglet
        Case "Pôle Restauration", "Pôle Compétences", "Pôle Séjour Activité", "Pôle Maintenance", "Pôle RH" 'cas
    End Select 'fin de l'action en fonction du nom de l'onglet
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
108
vazvaz
V
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
135
patricktoulon
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
716
Compte Supprimé 979
C
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
725
Gestionnaire_rh
G
E
  • Question Question
formulaire avec vba
Réponses
8
Affichages
880
vgendron
K
  • Résolu(e)
XL 2019 Copie de la dernière ligne avec la mise en forme et formules
Réponses
6
Affichages
801
Kev1407
K
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
884
fanfan38
N
  • Résolu(e)
Microsoft 365 Copier une ligne d'une feuille vers une autre
Réponses
2
Affichages
684
netparty
N
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
800
olivier388
O
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
895
Oneida
  • Question Question
Microsoft 365 Problème VBA insertion ligne au-desus
Réponses
3
Affichages
711
Mr.Adrien
  • Question Question
Microsoft 365 Copier et coller formes sans changer de feuille
Réponses
2
Affichages
619
Chasse
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Résolu(e)
Microsoft 365 Macro modification que je ne sais pas faire
5 6 7
Réponses
98
Affichages
7 K
TooFatBoy
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
838
.jakob@gmail.com
J
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
S
  • Question Question
Microsoft 365 Ajout d'une en-tete et pied de page via macro
Réponses
4
Affichages
1 K
saggigo
S
S
  • Question Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
788
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…