Discussion :

[fardivx]

Bonjour a tous, tout d'abord je tiens à vous remercier pour le travail merveilleux que vous fournissez sur ce forum, je l'utilise depuis très longtemps et j'ai résolu beaucoup de mes problèmes grâce aux solutions que vous proposez donc tout ça pour dire que je suis un grand fan Mais cette fois ci j'ai un petit problème, je suis encore étudiant et étant une véritable bille en VBA je me tourne vers vous pour un problème qui je pense sera d'une trivialité affligeante pour la plupart d'entre vous.

Je souhaiterai pouvoir copié collé plusieurs feuilles les une à la suite des autres dans une feuille récapitulative appelé "chemin des attentes". Je sais bien il existe beaucoup de sujet sur le forum à ce propos et je les ai consulté mais en vain je n'arrive pas à reproduire les mises en forme et le résultat obtenu est pour le moins pathétique.

Je m'explique, dans ce fichier Excel on y trouve une feuille appelé "base" (placé en 1ère position) que je ne souhaite pas copié collé dans la fiche récapitulatives puis des feuilles appelées "poste 1", "poste 2" etc. Le principe est que l'utilisateur peut si il le souhaite ajouter autant de "postes" dont il a besoin (enfin avec un maximum de 30 ce qui n'arrive presque jamais) et une fois qu'il a fini de détailler ces "postes" il déplace la feuille "chemin des attentes" (par exemple si il a besoin de deux "postes" on trouverait la feuille "base","poste 1", "poste 2","chemin des attentes","poste 3", "poste 4" etc. (les postes 3, 4 etc ne sont pas utilisés) puis clique sur la macro et celle ci lui ajoute l’entête avec le numéro de devis le nom etc (tiré de la première ligne de "base" et présente dans "poste 1" et "poste 2" via une formule) puis ce qui suit dans la feuille (avec la mise en forme c'est à dire des tableaux avec quelques formules et des lignes avec des fonds coloré ce genre de chose). Elle passe alors à la feuille suivante (sans ajouter l’entête) et lorsque que la macro arrive à la feuille de récapitulation ("chemin des attentes") elle se stoppe.

En gros j'arrive a peu près à naviguer entre les feuilles mais la mise en forme est immonde et je ne sais pas pour quelle raison je n'arrive à copier que les 5 premières lignes de chaque feuilles dans mon "chemin des attentes". Si quelqu'un aurait une petite idée de la solution du bout de code avec les explications pour que je comprenne et ainsi augmente mes connaissances cela serait très sympa de sa part pour ne pas dire salutaire !

Merci beaucoup d'avance pour le temps que vous consacrez à tous les noob dans mon genre sur ce forum en espérant avoir une réponse de votre part

[eric4459]

Bonjour,
Fais un test avec ton enregistreur de macro en copiant/collant avec collage special pour garder ton format et regarde le code tu devrais y trouver ton bonheur.
Eric

[fardivx]

D'accord j'essaye ça tout de suite merci !

[RyuAutodidacte]

Bonjour,
Une fois le code fait avec l'enregistreur de macro je te conseil de revenir avec le code obtenu (cf ma signature pour insérer le code), car celui-ci ne donne pas un code optimisé.
Si tu as des difficultés avec l'enregistreur de macro, il y a un très bon tuto sur celui-ci dans la faq.

[fardivx]

Bon ba je n'y arrive pas... il ne me copie toujours que mes 5 premières lignes alors que j'en ai un peu plus de 100 dans chaque feuilles (cela varie parfois 112 parfois 113...) un peu d'aide ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Sub RegroupeFeuilles()
    Dim Lg&, Sh As Worksheet, f As Worksheet
            Set f = Sheets("Chemin des Attentes")
        f.Range("a2:m" & f.[a65000].End(xlUp).Row).ClearContents
 
        For Each Sh In Worksheets
            If Sh.Name <> f.Name And Sh.Name <> "Base" Then
               Lg = Sh.Range("a" & Rows.Count).End(xlUp).Row
                Sh.Range("a2:m" & Lg).Copy Destination:= _
                f.Range("a" & Rows.Count).End(xlUp)(2)
            End If
            If Sh.Name = f.Name Then
                Exit For
            End If
        Next
    End Sub

Et le j'ai essayé avec l'enregistreur cela fonctionne mais je ne vois pas comment l'automatiser car comme je l'ai dit juste avant le nombre de lignes varie et le nombre de pages aussi donc comment peut il deviner que la prochaine fois que je lance cette macro il faudra faire une pages de moins ou de plus et même chose pour les lignes. Je suis obligé de faire une petite procédure non ?

[RyuAutodidacte]

C'est l'une des raisons, que je t'ai conseillé de poster ton code ok avec l'enregistreur de macro , bien sûr il faut que cela soit accompagné d'une explication claire => tenants / aboutissants ou spécificités
afin de prendre la bonne direction

[fardivx]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub Fusion()
'
' Fusion Macro
'
 
'
    Sheets("Poste 1").Select
    Selection.Copy
    Sheets("Chemin des Attentes").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Poste 2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Chemin des Attentes").Select
    ActiveWindow.SmallScroll Down:=90
    Range("A113").Select
    ActiveSheet.Paste
    Sheets("Poste 3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Chemin des Attentes").Select
    ActiveWindow.SmallScroll Down:=111
    Range("A225").Select
    ActiveSheet.Paste
End Sub

Donc voila le code de l'enregistreur de macro tout en sachant que le nombre de "poste" peut varier comme je l'explique dans mon premier message ainsi que le nombre de ligne et il faut que lorsque la macro arrive à la feuille "chemin des attentes" celle ci se stoppe cela t'aide un peu à comprendre mon problème ?