simplifier une macro faite avec l'éditeur de macro

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion pascal21
  • 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
pascal21

pascal21

XLDnaute Barbatruc
Code: 
Sub effacer_données()


Dim reponse
reponse = MsgBox("Vous allez supprimer des données" & vbNewLine & "et sauvegarder dans les feuilles recap " & vbNewLine & "" & vbNewLine & "           VOUS CONFIRMEZ?", vbYesNo + vbExclamation, "Suppression")
If reponse = vbYes Then
 'affiche les feuilles recap masquées
   Sheets(11).Visible = True
      Sheets(12).Visible = True
      Sheets(13).Visible = True
      Sheets(14).Visible = True
      Sheets(15).Visible = True
      Sheets(16).Visible = True
      Sheets(17).Visible = True
      Sheets(18).Visible = True
      Sheets(19).Visible = True
      Sheets(20).Visible = True
 Sheets(1).Select
 'copie les données dans les feuilles recap
    Range("a4:U38").Select
    Selection.Copy
   Sheets(11).Select
   Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    
    Sheets(2).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Worksheets(12).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
    Sheets(3).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Worksheets(13).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets(4).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(14).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets(5).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(15).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
   Sheets(6).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(16).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets(7).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(17).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets(8).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Worksheets(18).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
   Sheets(9).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(19).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Sheets(10).Select
    Range("a4:U38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(20).Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'masque les feuilles recap
      Sheets(11).Visible = False
      Sheets(12).Visible = False
      Sheets(13).Visible = False
      Sheets(14).Visible = False
      Sheets(15).Visible = False
      Sheets(16).Visible = False
      Sheets(17).Visible = False
      Sheets(18).Visible = False
      Sheets(19).Visible = False
      Sheets(20).Visible = False
   
    'efface les données
  Sheets(1).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(2).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(3).Select
    Range("C4:K38").Select
    Selection.ClearContents

    Sheets(4).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(5).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(6).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(7).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(8).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(9).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Sheets(10).Select
    Range("C4:K38").Select
    Selection.ClearContents
    
    Range("C4").Select
    Sheets(1).Select
Else
If reponse = vbNo Then
  Exit Sub
End If
End If
End Sub
bonjour à tous
grace à l'éditeur de macro et aussi avec je que j'ai pu trouver par ci par là et aussi grace à votre aide, j'ai cette macro longue comme un jour sans pain que j'aimerais simplifier
malheureusement c'est au dessus de mes connaissances
pouvez m'aider merci
il s'agit de copier coller la même plage de cellule dans les feuilles recap et ensuite d'effacer le contenu de cette plage
je fais en fait une sauvegarde chaque mois

feuil1 dans feuil11 feuil2 --->feul12 etc.... sur 10 feuilles
 
Dernière édition:
Trier par date Trier par votes
Re : simplifier une macro faite avec l'éditeur de macro

Salut Pascal21,

Voilà ton code légèrement raccourcis 😀

Code: 
Sub effacer_données()
  Dim reponse
  reponse = MsgBox("Vous allez supprimer des données" & vbNewLine & "et sauvegarder dans les feuilles recap " & vbNewLine & "" & vbNewLine & "           VOUS CONFIRMEZ?", vbYesNo + vbExclamation, "Suppression")
  If reponse = vbYes Then
   'affiche les feuilles recap masquées
    For I = 11 To 20
     Sheets(I).Visible = True
    Next I
    ' Copie les données
    For I = 1 To 10
    Sheets(I).Range("a4:U38").Copy
    Sheets(10 + I).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
    Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ' Masque les feuilles récap
    For I = 11 To 20
     Sheets(I).Visible = False
    Next I
    'efface les données
    For I = 1 To 10
      Sheets(I).Range("C4:K38").ClearContents
    Next I
    
    Sheets(1).Select
    Range("C4").Select
  ElseIf reponse = vbNo Then
    Exit Sub
  End If
End Sub

Pense à utliser les boucles For ... Next

Voilà 😉
 
Vote positif 0 Vote négatif
Re : simplifier une macro faite avec l'éditeur de macro

bonjour pascal

sub effacer_donnee()
dim i as integer
if MsgBox("Vous allez supprimer des données" & vbNewLine & "et sauvegarder dans les feuilles recap " & vbNewLine & "" & vbNewLine & " VOUS CONFIRMEZ?", vbYesNo + vbExclamation, "Suppression")
<> vbYes Then exit sub
application.screenupdating = false
for i = 1 to 10
sheets(i+10).visible = true
sheets(i+10).select
sheets(i).range(A4:U38).copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
sheets(i).range("C4:K38").clearcontents
sheets(i+10).visible = false
next i
sheets(1).select : range("C4").select
application.screenupdating = true
end sub
Cliquez pour agrandir...

Excuse bruno, j'ai pas raffraichi, bonjour
 
Vote positif 0 Vote négatif
Re : simplifier une macro faite avec l'éditeur de macro

re je n'ai pas pu resister, j'ai essayé
j'ai testé les 2 codes et j'ai une erreur "variable non définie" sur les deux
cette fois je vais au lit, y a la grande qui vient d'aller se coucher, faut que j'y aille aussi. lol!!!
 
Vote positif 0 Vote négatif
Re : simplifier une macro faite avec l'éditeur de macro

bonjour
j'ai un message type boite de dialogue bien sur
lorsque je colle ta macro j'ai la ligne
Code: 
if MsgBox("Vous allez supprimer des données" & vbNewLine & "et sauvegarder dans les feuilles recap " & vbNewLine & "" & vbNewLine & " VOUS CONFIRMEZ?", vbYesNo + vbExclamation, "Suppression")
<> vbYes Then exit sub
se colore en rouge
 
Dernière édition:
Vote positif 0 Vote négatif
Re : simplifier une macro faite avec l'éditeur de macro

Bonjour Pascal, le fil

tu mets tout sur la même ligne, ou avec un "_" en fin de première ligne pour signaler que c'est la même instruction, comme ci dessous :

Code: 
If MsgBox("Vous allez supprimer des données" & vbNewLine & "et sauvegarder dans les feuilles recap " & vbNewLine & "" _
    & vbNewLine & " VOUS CONFIRMEZ?", vbYesNo + vbExclamation, "Suppression") <> vbYes Then Exit Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
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

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
185
Magic_Doctor
Magic_Doctor
F
Fdaga
Réponses
2
Affichages
85
dysorthographie
dysorthographie
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
388
juju91
J
arck
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
593
AtTheOne
AtTheOne
arck
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
308
Phil69970
Phil69970
F
Fdaga
Réponses
0
Affichages
151
Fdaga
F
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
753
ph.vanne
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
682
Nounours4173
N
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
956
Phil69970
Phil69970
richardlion
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
531
sylvanu
sylvanu
eastwick
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
176
eastwick
eastwick
micie1509
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
654
micie1509
micie1509
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
402
MOLY_
M
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
507
cdric78
C
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
501
xavieralvaro
X
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
377
MICHIS
M
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
405
patricktoulon
patricktoulon
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
728
AtTheOne
AtTheOne
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
206
vazvaz
V
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
398
sylvanu
sylvanu
Retour