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

simplification de macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion post prod
  • 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
P

post prod

XLDnaute Occasionnel
bonjour a tous
j'ai u dossier avec des feuilles pour chaque mois "janv fev mars ect...)et une feuille stat mensuel
j'ai fais une macro par mois pour copier exemple la collonne a1:a20 et c1:c20
dans la feuille de stat
jusque la pas de probleme mais je me retrouve avec 12 macro
y a t'il un moyen de simplifier les choses avec une seule macro et par exemple une casse a cocher dans le mois que l'on veut copier
merci d'avance
 
Trier par date Trier par votes
Re : simplification de macro

Bonjour post prod,

Avec quelque chose comme:

Code: 
Sub test()
Dim i As Integer
For [B][COLOR="Red"]i[/COLOR][/B] = 1 To 3
    Sheets([B][COLOR="Red"]i[/COLOR][/B]).Range("A1:A15").Copy Destination:=Sheets("Feuil4").Cells(1, [COLOR="red"][B]i[/B][/COLOR])
Next [B][COLOR="red"]i[/COLOR][/B]
End Sub
et en adaptant à ta situation ... il me semble que ça devrait fonctionner.

Modeste
 
Vote positif 0 Vote négatif
Re : simplification de macro

re-bonjour,

En relisant ton message, après ma première proposition, je m'aperçois que je n'y réponds peut-être pas ... le code proposé recopiait le contenu de chaque feuille dans une colonne différente d'une feuille qui pourrait être ta feuille "stat". Mais comme tu copies 2 plages, ça ne va pas fonctionner.
Comme apparemment, tu souhaites n'envoyer les infos que d'UNE feuille à la fois, je t'ai mis en pièce jointe une autre proposition: une case à cocher dans chaque feuille (avec le code dans chaque feuille) ... c'est simplement l'index de la feuille active qui est envoyé à la procédure (simplifiée) qui est dans le Module.

J'espère ne pas m'être trompé, cette fois !

Modeste
 

Pièces jointes

Vote positif 0 Vote négatif
Re : simplification de macro

merci modeste
reste juste une erreur (dut a mon explication)
quand je coche la case j'envoye par exemple a1:a20 et c1:c20 dans la feuille stat
mais ensuite je doit decocher janvier les donner de stat s'efface et je coche fevrier et ainsi de suite
les donner sur la feuille de stat sont toujour sur les meme colonnes
 
Vote positif 0 Vote négatif
Re : simplification de macro

re-bonjour,

Je pars du principe que c'est ma seconde réponse qui était la plus correcte !? Si c'est le cas, dans la partie "Module1" du code, colle ce qui suit, à la place du code original:
Code: 
Sub test(f As Integer)
Dim i As Integer
i = f
    Sheets("stats").Range("A1:C20").Clear [B]'pour effacer la plage A1:C20 ... tu modifies en fonction de tes besoins[/B]
    Sheets(i).Range("A1:A15").Copy Destination:=Sheets("stats").Range("A2") 'adapter "A2" à tes besoins: cellule dans laquelle le "collage" débute
End Sub

Dans le fichier, j'avais mis dans le code de la "feuil1" une ligne (en commentaire) qui permettrait de "décocher" la case dès que les données sont collées dans "stats" Si ça te dit, efface l'apostrophe devant la ligne et recopie-la dans le code des autres feuilles.

Modeste
 
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

  • Résolu(e)
Microsoft 365 Macro de tri
Réponses
2
Affichages
240
Phil Du59
  • Question Question
Microsoft 365 Comment additionner le nombre de mois identique
Réponses
7
Affichages
231
Dennnisss
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
267
sylvanu
A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
995
Alamyr
A
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
520
job75
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
411
ChTi160
  • Résolu(e)
Microsoft 365 Active X sur feuille de calcul
Réponses
2
Affichages
168
JM27
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
  • Question Question
Microsoft 365 supprimer des cellules sans abimer les mfc
Réponses
3
Affichages
430
bsalv
B
L
  • Résolu(e)
XL 2016 macro pour parcourir les lignes d'une colonne et a chaque changement extraire les donnees specifiques des colonnes adjacentes
Réponses
6
Affichages
436
Dranreb
  • Question Question
XL 2016 relevé de consommation électrique
Réponses
1
Affichages
345
wDog66
W
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
556
Phil69970
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
340
fanch55
P
  • Question Question
XL 2019 Macro VBA SOMME.SI.ENS
Réponses
2
Affichages
284
sylvanu
G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
353
job75
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
130
Eric 888
A
  • Question Question
XL 2016 Mise à jour stock pour articles avec nomenclature
Réponses
5
Affichages
368
vgendron
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
W
  • Résolu(e)
XL 2019 Envoi de mails avec l'adresse secondaire et non l'adresse principale d'Outlook
2
Réponses
17
Affichages
644
TooFatBoy
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
371
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…