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

thoch63 · 25 Novembre 2021

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 ! 🙂

cp4 · 26 Novembre 2021

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...

cp4 · 25 Novembre 2021

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 😉

Phil69970 · 25 Novembre 2021

Bonjour @thoch63

Un fichier serait bien plus parlant (Avec les explications de ce que tu veux faire) car ton code part un peu dans tous les sens...😵

@Phil69970

thoch63 · 26 Novembre 2021

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

cp4 · 26 Novembre 2021

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

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+

thoch63 · 26 Novembre 2021

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+

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é 🙂

cp4 · 26 Novembre 2021

@thoch63 : à quoi sert la colonne C de la feuille Template?

thoch63 · 26 Novembre 2021

cp4 à dit:
@thoch63 : à quoi sert la colonne C de la feuille Template?

@cp4 elle ne sert à rien

cp4 · 26 Novembre 2021

thoch63 à dit:
@cp4 elle ne sert à rien

Donc on peut la supprimer de la feuille Template pour que ça fasse plus propre?!

thoch63 · 26 Novembre 2021

cp4 à dit:
Donc on peut la supprimer de la feuille Template pour que ça fasse plus propre?!

Oui oui tu peux pas de problème 🙂

Phil69970 · 26 Novembre 2021

Bonjour @thoch63 , @cp4

Donc si je comprends bien il faut 1 onglet par ligne de la feuille "Infos bruts" donc si tu as 350 lignes tu auras 350 onglets nouveaux ?

thoch63 à dit:
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 ?

Merci de me confirmer cela ou pas ?

@Phil69970

thoch63 · 26 Novembre 2021

Phil69970 à dit:
Bonjour @thoch63 , @cp4

Donc si je comprends bien il faut 1 onglet par ligne de la feuille "Infos bruts" donc si tu as 350 lignes tu auras 350 onglets nouveaux ?

Merci de me confirmer cela ou pas ?

@Phil69970

Bonjour @Phil69970

Oui c'est exactement ça

Phil69970 · 26 Novembre 2021

Re

Avec 350 onglets c'est pas la peine de te dire que le résultat sera INGERABLE 😵
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

thoch63 · 26 Novembre 2021

Phil69970 à dit:
Re

Avec 350 onglets c'est pas la peine de te dire que le résultat sera INGERABLE 😵
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

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

Phil69970 · 26 Novembre 2021

Re

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

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 😳

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

@Phil69970

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

thoch63

XLDnaute Nouveau

cp4

cp4

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency