Discussion :

[Theologie]

Bonjour à tous,

J'essaye de faire une macro qui, après quelques manipulations que j'ai réussi à implémenter, copierait chaque ligne à partir de la 5ème jusqu'à la fin de la feuille (le nombre de ligne dépend de chaque onglet et est variable), dans ma dernière feuille "Récapitulatif".

Merci à tous ceux qui m'aideront, cela me sera d'une grande utilité!

Cordialement,

Théo

[nouveauvba]

Bonjour,
essai cela

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Range("A5:C5").Select 'exemple sur 3 colonnes
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Récapitulatif").Select
ActiveSheet.Paste 'éventuellement selectionne la cellule pour coller
 
End Sub

[riaolle]

Bonjour,

Je te propose d'améliorer le code precedent en n'utilisant PAS Select, Activate, ActiveSheet... qui sont des fonctionnalités qui entraînent souvent des problèmes difficilement gérables.

Code :

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

1
2
3
4
5
Sub test()
    Dim derLig As Long
    derLig = Sheets("feuille source").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("feuille source").Range("A5:C" & derLig).Copy destination:=Sheets("Récapitulatif").Range("A1")
End Sub

il faut bien sûr modifier le nom de la feuille source ou ne pas spécifier le nom de la feuille si tu veux tout simplement copier la feuille active.

[Theologie]

Bonjour et merci à tous les deux,

riaolle, j'avais quelque chose de semblable à ton code, sauf que le problème qui m'est apparu est que si je change le code pour qu'il agisse sur tous les onglets, je n'arrive pas à coller les valeurs de chaque onglet après celles de l'onglet précédent : En clair, avec ton code tout sera copié sur A1 et le reste sera écrasé.

Verrais-tu une solution éventuelle ?

[riaolle]

Verrais-tu une solution éventuelle ?

Oui
Pour récupérer la première cellule non vide de la colonne A :

Code :

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

Sheets("Récapitulatif").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

Ainsi, le code sera :

Code :

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

1
2
3
4
5
Sub test()
    Dim derLig As Long
    derLig = Sheets("feuille source").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("feuille source").Range("A5:C" & derLig).Copy destination:=Sheets("Récapitulatif").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

[Theologie]

Merci encore riaolle,

Mon code adapté à mon classeur donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim derLig As Long
    Dim Ws As Worksheet
 
 Application.ScreenUpdating = False
 For Each Ws In Worksheets
     Ws.Select
 
    derLig = Ws.Cells(Rows.Count, 1).End(xlUp).Row
    Ws.Range("A5:AN5" & derLig).Copy Destination:=Sheets("Récapitulatif").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 
Next Ws
 
End Sub

Je pensais que tout marchait bien mais malheureusement je ne comprends pas pourquoi mais le code copie des lignes en plus répétées de certains onglets.

Aurais-tu une fois de plus une idée d'où le problème pourrait venir ?

Merci encore toutefois pour ta réponse qui m'a bien fait avancer.

EDIT : Je me rends compte que c'est ma boucle qui agit sur tous les onglets dont le dernier "Récapitulatif", provocant ces lignes indésirables. Je n'arrive pas à modifier ça, si mon code est :

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
Sub test()
    Dim derLig As Long
    Dim Ws As Worksheet
 
 
 Application.ScreenUpdating = False
 
For i = 1 To Sheets.Count - 1
 
    Ws.Select
 
    derLig = Ws.Cells(Rows.Count, 1).End(xlUp).Row
    Ws.Range("A5:AN5" & derLig).Copy destination:=Sheets("Récapitulatif").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 
  Next 
 
End Sub

Il me sort l'erreur : "Variable objet ou variable de bloc With non définie."