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 !

thoch63 · 26 Novembre 2021

Phil69970 à dit:
Re

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

Regarde la pièce jointe 1122963

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

@Phil69970

Re @Phil69970 ,

Okay je vais créer déja 50 onglets vides !

Mais as tu la solution pour ma macro du coup ?

merci beaucoup

Thoch

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
            Sheets("template").UsedRange.Copy    'on copie la feuille template
            ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll    'on colle tout
            ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths    'on adapte la largeur

            'on recopie les cellules
            .Range("A2").Copy ActiveSheet.Range("B22")
            .Range("B2").Copy ActiveSheet.Range("B23")
            .Range("C2").Copy ActiveSheet.Range("B3")
            .Range("D2").Copy ActiveSheet.Range("B8")
            .Range("E2").Copy ActiveSheet.Range("B11")
            .Range("F2").Copy ActiveSheet.Range("B10")
            .Range("G2").Copy ActiveSheet.Range("B4")
            .Range("H2").Copy ActiveSheet.Range("B7")

        Next i
        .Activate
    End With
    Application.DisplayAlerts = True
    MsgBox "Traitement terminé!", vbInformation + vbOKOnly, "TRAITEMENT DONNEES"
End Sub

Le code supprime les feuilles, puis les recrée pour y ajouter les données. Sur ton fichier joint au post#1, le code est fonctionnel.

edit: En fin de compte le code n'a pas planté au-delà de 255 feuilles

Phil69970 · 26 Novembre 2021

Re

cp4 à dit:
En fin de compte le code n'a pas planté au-delà de 255 feuilles

Certes mais cela n'est pas viable d'avoir 350 onglets pour moi.

Perso je préférè cette approche :

*Merci de ton retour

@Phil69970

cp4 · 26 Novembre 2021

Phil69970 à dit:
Re

Certes mais cela n'est pas viable d'avoir 350 onglets pour moi.

Perso je préférè cette approche :

*Merci de ton retour

@Phil69970

En effet, c'est la meilleure solution. On ne surcharge pas le feuille pour rien.
Que veut exactement faire @thoch63 avec une collection d'onglets.

ps: j'ai poussé le champignon le code plante à la 6942ème feuille, soit 6943 feuilles pas plus.

Phil69970 · 26 Novembre 2021

Re

@cp4
Et comment tu fais pour retrouver la 5246eme feuille

Mais sur le principe on est d'accord je crois....
c'est bien pourquoi je ne voulais pas faire un fichier qui serait inexploitable.....
Edit :Quelle est la taille de ton fichier ?

@Phil69970

cp4 · 26 Novembre 2021

Phil69970 à dit:
Re

@cp4
Et comment tu fais pour retrouver la 5246eme feuille
Mais sur le principe on est d'accord je crois....
c'est bien pourquoi je ne voulais pas faire un fichier qui serait inexploitable.....

@Phil69970

Tu oublies que ce n'est pas mon fichier. Oui, on est d'accord sur le principe.
J'ai répondu à la demande. Le concerné fera comme il l'entend.

thoch63 · 26 Novembre 2021

Re @Phil69970 & @cp4

Merci tout d'abord de votre réactivité !

@cp4 Tout ces onglets sont des "fiches clients" pour un démarchage téléphonique pour mes études

Mon fichier compte aux alentours des 500 lignes sur l'onglet 'infos bruts'
Je vais donc me faire 10 fichiers de 50 lignes qui seront beaucoup plus buvable ! lol

Vos 2 solutions fonctionnent et ont résolu mon problème

Je vous en remercie !

cp4 · 26 Novembre 2021

thoch63 à dit:
Re @Phil69970 & @cp4

Merci tout d'abord de votre réactivité !

@cp4 Tout ces onglets sont des "fiches clients" pour un démarchage téléphonique pour mes études

Mon fichier compte aux alentours des 500 lignes sur l'onglet 'infos bruts'
Je vais donc me faire 10 fichiers de 50 lignes qui seront beaucoup plus buvable ! lol

Vos 2 solutions fonctionnent et ont résolu mon problème

Je vous en remercie !

Content pour toi. Il ne te reste plus qu'à cliquer sur la solution (à droite du message).

Phil69970 · 26 Novembre 2021

Re

Oui je sais bien mais c’était juste pour démontré au demandeur que cela n'est pas viable

cp4 à dit:
Tu oublies que ce n'est pas mon fichier.

@thoch63 : Merci de passer en résolu la solution que tu as retenue (cela ne devrait pas étre la tienne car tu n'avais pas de solution)

@Phil69970

thoch63 · 26 Novembre 2021

Re,

Je vais valider vos 2 solutions car les 2 fonctionnent !

Je vais utiliser celle de @cp4 car elle est plus rapide

merci à vous

thoch63 · 29 Novembre 2021

Re @cp4 !

Excuse moi de te relancer le sujet mais je me suis rendu compte que la macro me fait 50 onglets avec les infos uniquement de la ligne 2

As tu une solution ?

Merci

cp4 · 29 Novembre 2021

Re @toch63, oups! Code corrigé.

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
            Sheets("template").UsedRange.Copy    'on copie la feuille template
            ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll    'on colle tout
            ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths    'on adapte la largeur

            'on recopie les cellules
            .Range("A" & i).Copy ActiveSheet.Range("B22")
            .Range("B" & i).Copy ActiveSheet.Range("B23")
            .Range("C" & i).Copy ActiveSheet.Range("B3")
            .Range("D" & i).Copy ActiveSheet.Range("B8")
            .Range("E" & i).Copy ActiveSheet.Range("B11")
            .Range("F" & i).Copy ActiveSheet.Range("B10")
            .Range("G" & i).Copy ActiveSheet.Range("B4")
            .Range("H" & i).Copy ActiveSheet.Range("B7")

        Next i
        .Activate
    End With
    Application.DisplayAlerts = True
    MsgBox "Traitement terminé!", vbInformation + vbOKOnly, "TRAITEMENT DONNEES"
End Sub

thoch63 · 29 Novembre 2021

cp4 à dit:

Re @toch63, oups! Code corrigé.

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
            Sheets("template").UsedRange.Copy    'on copie la feuille template
            ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll    'on colle tout
            ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths    'on adapte la largeur

            'on recopie les cellules
            .Range("A" & i).Copy ActiveSheet.Range("B22")
            .Range("B" & i).Copy ActiveSheet.Range("B23")
            .Range("C" & i).Copy ActiveSheet.Range("B3")
            .Range("D" & i).Copy ActiveSheet.Range("B8")
            .Range("E" & i).Copy ActiveSheet.Range("B11")
            .Range("F" & i).Copy ActiveSheet.Range("B10")
            .Range("G" & i).Copy ActiveSheet.Range("B4")
            .Range("H" & i).Copy ActiveSheet.Range("B7")

        Next i
        .Activate
    End With
    Application.DisplayAlerts = True
    MsgBox "Traitement terminé!", vbInformation + vbOKOnly, "TRAITEMENT DONNEES"
End Sub

Merci beaucoup

Phil69970 · 29 Novembre 2021

Re

@cp4 :

Je suis tombé sur ce lien pour un autre pb et cela m'a rappelé ta remarque :

cp4 à dit:
ps: j'ai poussé le champignon le code plante à la 6942ème feuille, soit 6943 feuilles pas plus.

Nombre maximal de feuilles par classeur

Limité par la quantité de mémoire disponible (valeur par défaut 1 feuille)

Spécifications et limites relatives à Excel - Support Microsoft

Dans Excel 2010, la taille maximale des feuilles de calcul est de 1 048 576 lignes par 16 384 colonnes. Cet article décrit les limites et spécifications des fonctionnalités, des classeurs et des feuilles de calcul.

support.microsoft.com

PS:Je maintiens que découper le fichier en petit bout de 50 onglets (feuilles) n'est pas la meilleure façon de faire et n'est pas viable dans la durée
Par exemple , je verrais mieux une colonne supplémentaire avec le nom des agents qui devront s'occuper des x clients chacun.
Chaque agent est responsable de son groupe de client avec pour avantage 1 seul fichier pour tout le monde et non pas x fichiers....qui se baladent.

@Phil69970

Effectuez une recherche sur Excel Downloads...

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

thoch63

XLDnaute Nouveau

cp4

thoch63

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

thoch63

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

thoch63

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Spécifications et limites relatives à Excel - Support Microsoft

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums