Microsoft 365 Répétition macro sur nombre de lignes X

T

thoch63

XLDnaute Nouveau
Bonjour à tous ;

J'aurai besoin de votre expertise pour réaliser une macro Excel

Je dois répéter ma macro sur 350 lignes, savez vous quelle code mettre pour que ma macro en automatique aille chercher ligne par ligne ?

Voici mon code macro:




Sub Macrotesttemplate()
'
' Macrotesttemplate Macro
'

'
Range("A2").Select
Selection.Copy
Sheets("TEMPLATE 1").Select
ActiveWindow.SmallScroll Down:=9
Range("B22").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1").Select
Range("B23").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1").Select
ActiveWindow.SmallScroll Down:=-21
Range("B3").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1").Select
Range("B11").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1").Select
Range("B10").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Range("G2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1").Select
Range("B7").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("TEMPLATE 1").Select
Application.CutCopyMode = False
Sheets("TEMPLATE 1").Copy After:=Sheets(2)
Sheets("Sheet1").Select
Range("A3").Select
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
ActiveWindow.SmallScroll Down:=9
Range("B22").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
Range("B23").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-21
Sheets("Sheet1").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
Range("B3").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("E3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
Range("B11").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("F3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
Range("B10").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("G3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TEMPLATE 1 (2)").Select
Range("B7").Select
ActiveSheet.Paste
End Sub




Merci à tous ! :)
 
Solution
cp4
Re,
@Phil69970 ;)
@thoch63 : Je partage l'avis de Phil69970. En effet, le code ci-dessous plantera au-delà de 255 onglets.
VB: 
Option Explicit

Sub Macrotesttemplate()
    Dim i As Long, dl As Long, Sh As Worksheet
    Application.DisplayAlerts = False
    'on supprime toutes les feuilles "Template.."
    For Each Sh In Worksheets
        If Sh.Name Like "Template*" Then
            Sheets(Sh.Name).Delete
        End If
    Next

    'on traite les lignes
    With Sheets("INFOS BRUTS")
        dl = .Range("A1").CurrentRegion.End(xlDown).Row

        For i = 2 To dl
            Sheets.Add(After:=Worksheets("template")).Name = "Template" & i - 1    'on ajoute et on nomme les feuilles...
Trier par date Trier par votes
cp4

cp4

XLDnaute Barbatruc
Bonsoir,

Pas très clair! Tu as édité un code brut obtenu avec l'enregistreur de macro. Que tu peux déblayer en retirant les select, selection, ActiveWindow.SmallScroll Down:=xx, etc...
Exemple de simplification:
VB: 
Application.ScreenUpdating = False
With ActiveSheet
.Range("A2").Copy Sheets("TEMPLATE 1").Range("B22")
'la même chose pour les autres cellules
End With
Application.ScreenUpdating = True

Bonne soirée.

Edit: Bonsoir @Phil69970 ;)
 
Vote positif 0 Vote négatif
T

thoch63

XLDnaute Nouveau
Désole , je ne suis pas très doué en Excel donc tout devient vite compliqué pour moi …

Je veux copier toutes les infos de la ligne 2 de la feuille "INFOS BRUTS " et les retranscrire sur la feuille "Template" dans les bonnes cellules

Quand toutes ces infos sont ajoutés à "Template"
Créer une copie de la feuille Template

Et ajouter les infos de la ligne 3 de la feuille "INFOS BRUTS "


Mon problème est que je ne sais pas comment apprendre cette automatisation à ma macro pour qu'elle répète l'action jusqu'à la ligne 300 par exemple
 

Pièces jointes

  • Exemple macro excel.xlsx
    22.9 KB · Affichages: 5
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
thoch63 à dit:
Je veux copier toutes les infos de la ligne 2 de la feuille "INFOS BRUTS " et les retranscrire sur la feuille "Template" dans les bonnes cellules

Mon problème est que je ne sais pas comment apprendre cette automatisation à ma macro pour qu'elle répète l'action jusqu'à la ligne 300 par exemple
Cliquez pour agrandir...
Bonjour,

@thoch63 :
1- Tu nous laisses deviner qu'elles sont les bonnes cellules.
2- tu nous dis copier les infos de la ligne 2, ensuite jusqu'à au moins 300 lignes.

Faudrait-il comprendre que tu cherches à créer une feuille pour chaque ligne de la feuille INFOS BRUTS?

A+
 
Vote positif 0 Vote négatif
T

thoch63

XLDnaute Nouveau
cp4 à dit:
Bonjour,

@thoch63 :
1- Tu nous laisses deviner qu'elles sont les bonnes cellules.
2- tu nous dis copier les infos de la ligne 2, ensuite jusqu'à au moins 300 lignes.

Faudrait-il comprendre que tu cherches à créer une feuille pour chaque ligne de la feuille INFOS BRUTS?

A+
Cliquez pour agrandir...
Bonjour!

Par exemple :

Cellule A2 (INFOS BRUT) copié vers Cellule B22 (Template)
Cellule B2 (INFOS BRUT) copié vers Cellule B23 (Template)
Cellule C2 (INFOS BRUT) copié vers Cellule B3 (Template)

Il faut que les cellules A2 à H2 soient copiés vers les cellules correspondante sous TEMPLATE

C'est exactement ça , il faut créer une feuille TEMPLATE remplis avec toutes les infos de chaque ligne INFOS BRUTS

J'ai mis un exemple en PJ d'où les infos doivent être copiés


Merci beaucoup en tous cas pour la réactivité :)
 

Pièces jointes

  • Exemple macro excel.xlsx
    23 KB · Affichages: 5
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Re

Avec 350 onglets c'est pas la peine de te dire que le résultat sera INGERABLE o_O
Désolé mais perso je me refuse à faire un fichier avec 350 onglets qui te sera inexploitable .

Pose toi la question comment tu retrouveras facilement le 189eme onglet qui correspond à la ligne 189 ==> c'est pratiquement impossible ....

@Phil69970
 
Vote positif 0 Vote négatif
T

thoch63

XLDnaute Nouveau
Phil69970 à dit:
Re

Avec 350 onglets c'est pas la peine de te dire que le résultat sera INGERABLE o_O
Désolé mais perso je me refuse à faire un fichier avec 350 onglets qui te sera inexploitable .

Pose toi la question comment tu retrouveras facilement le 189eme onglet qui correspond à la ligne 189 ==> c'est pratiquement impossible ....

@Phil69970
Cliquez pour agrandir...
Re @Phil69970 ,

Je ne sais pas si une feuille s'appelle un onglet ,

Mais le but 1° n'est pas de savoir retracer les feuilles,
C'est juste de pouvoir ajouter les informations de chaque ligne à une feuille
Le but n'est pas de retracer mais avoir un gain de temps considérable

Pour t'expliquer, c'est une campagne d'appel sortants que j'ai à réaliser pour mes études
Et j'ai un fichier client de 350 lignes avec toutes les infos que tu retrouve dans la feuille "infos brut" à recopier 1 par 1 sur chaque feuille " Template" pour ensuite dispatcher à mon équipe

Thoch
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Re

thoch63 à dit:
Je ne sais pas si une feuille s'appelle un onglet ,
Cliquez pour agrandir...

Oui feuille= onglet voir l'image de ton fichier ou tu as 3 onglets (feuilles si tu préfères) maintenant imagine que tu en as 350 :oops:

1637920675490.png


Fais déjà un essaie en créant 50 onglets(feuilles) même vide pour voir ce que cela donne.

@Phil69970
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
173
sylvanu
sylvanu
ph.vanne
  • Question
Autres fenêtre "Publication"
Réponses
10
Affichages
426
ph.vanne
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
323
Phil69970
Phil69970
M
  • Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
16
Affichages
700
Phil69970
Phil69970
micie1509
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
304
micie1509
micie1509
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
527
robpellan52
R
R
  • Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
544
robbynasch
R
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
O
  • Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
702
olivier388
O
K
  • Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
790
Kevin38
K

Membres actuellement en ligne

15 membres et 130 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 094
Messages
2 116 154
Membres
112 670
dernier inscrit
Flow87