Discussion :

[Jiprès]

Bonjour,

J'ai plusieurs feuilles mensuelles avec une liste, dont une colonne qui contient un nom d'agent.
J'aimerais avoir toutes les données des feuilles mensuelles dans un recap (Feuille "ANNUEL"), et j'aimerais m'en servir pour créer deux TCD, un par agent, dans deux feuilles différentes.
J'ai essayé d'utiliser le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub recap2()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "ANNUEL" And sh.Name <> "NATHALIE" And sh.Name <> "CELINE" Then
            sh.Activate
            sh.Range("A2").End(xlDown).Select.Copy
            Sheets("ANNUEL").Select
            Range("A2").PasteSpecial
        End If
    Next sh
End Sub

Mais je n'arrive pas à la faire fonctionner.
Quelqu'un aurait une solution ?

Merci de votre aide.
Julien

[Pierre Dumas]

Bonjour

A priori, c'est normal que "ça ne marche pas" car, à chaque fois, le code revient coller dans la feuille ANNUEL dans la cellule A2. Et non pas de plus en plus en dessous.

Je vous propose, sans avoir essayé, de remplacer la ligne 8 de votre code Range("A2").PasteSpecial par ces deux nouvelles lignes :

Code :

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

1
2
LigneAEcrire = Sheets("ANNUEL").Range("A" & Rows.Count).End(xlUp).Row
Range("A" & LigneAEcrire).PasteSpecial

En espérant que cela aide.

Bonne journée

Pierre Dumas

[Jiprès]

Merci de votre réponse,

J'ai remplacé les lignes que vous m'avez indiqué, mais j'ai toujours une erreur 424 Objet requis, il semblerait qu'il s'agisse de

Code :

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

sh.Range("A2").End(xlDown).Select.Copy

mais je ne vois pas où est le problème ^^

[Pierre Dumas]

Rebonjour

Effectivement, cela n'est pas bon comme instruction.
Voici votre module entièrement corrigé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub recap2()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "ANNUEL" And sh.Name <> "NATHALIE" And sh.Name <> "CELINE" Then
            sh.Activate
            sh.Range("A2", Range("A2").End(xlDown)).Copy
            Sheets("ANNUEL").Select
            LigneAEcrire = Sheets("ANNUEL").Range("A" & Rows.Count).End(xlUp).Row + 1
            Range("A" & LigneAEcrire).PasteSpecial
         End If
    Next sh
End Sub

En espérant toujours que cela aide.

Bonne journée

Pierre Dumas

[Jiprès]

Merci beaucoup, ça m'aide énormément, mais j'ai encore deux problèmes :


Et j'ai essayé de modifier la portée de A2 en A2:Q2 pour ensuite faire le xlDown, mais ça m'affiche également un message d'erreur.

Voyez-vous une solution ?

[Pierre Dumas]

Concernant la première erreur, sur quelle ligne cela se déclenche ? C'est à dire, quand vous cliquez sur "Débogage", quelle est la ligne qui se met en jaune ?

Concernant la deuxième erreur, il ne faut pas modifier A2 par A2:Q2 pour aller en bas. Excel s'en occupera tout seul.
Dans la ligne de code qui a été donnée, Excel copie toutes les cellules de la A2 et jusqu'à la dernière en bas de la colonne A (à la restriction prés qu'il ne FAUT PAS de cellules vides dans cette colonne).

Est-ce que vous avez essayer d'exécuter le code donné tel quel pour savoir s'il fonctionne avant de le modifier ?

Bonne journée

Pierre Dumas