Discussion :

[coolman53]

Bonjour à tous

Voici mon probleme qui doit etre simple mais meme avec les recherches j'arrive pas!!!!

J'ai 5 onglets : Planif D/Planif F/Command D/Command F/Recap

Les données dans Planif D et Command D sont pris sur un fichier externe et illimité en nb de données

Les tableaux dans Planif F et Command F sont identique il ya juste les données qui change

Je voudrai que les données de ces 2 onglets se copie l'un derriere l'autre dans l'onglet Recap

J'ai essaye un bout de code que j'ai trouve mais j'arrive pas

Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Recap()
  Application.ScreenUpdating = False
Sheets("Planif F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Command F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Recap").Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.Paste
Application.ScreenUpdating = True
 
End Sub

[Fvandermeulen]

Salut,

C'est pas trop étonnant que le résultat souhaité ne soit pas obtenu, dans ton code tu fais deux copier successif sans collage.
Si tu fais ça manuellement dans Excel, seul la dernière plage sélectionnée sera copiée...idem en VBA

Voici un petit code à tester avec une variable qui détermine la dernière ligne et pas que pour les versions antérieures à 2007 ou il n'y a que 65536 lignes.

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
Sub Recap()
Dim DerLigS as long, DerLigC as long 'S pour source, C pour Cible
Application.ScreenUpdating = False
 
DerLigS = Sheets("Planif F").cells(columns(1).cells.count,1).end(xlup).row
DerLigC = Sheets("Recap").cells(columns(1).cells.count,1).end(xlup).row
 
Sheets("Planif F").Range(Sheets("Planif F").cells(1,1),Sheets("Planif F").cells(DerLigS,1).Copy destination:=Sheets("Recap").cells(DerLigC,1)
 
DerLigS = Sheets("Command F").cells(columns(1).cells.count,1).end(xlup).row
DerLigC = Sheets("Recap").cells(columns(1).cells.count,1).end(xlup).row
 
Sheets("Command F").Range(Sheets("Command F").cells(1,1),Sheets("Command F").cells(DerLigS,1).Copy destination:=Sheets("Recap").cells(DerLigC,1)
 
 
Application.ScreenUpdating = True
 
End Sub

A+

P.S. J'ai une grosse requête qui tourne, du coup j'ai fait le code à main levée, j'espère ne pas avoir fait de coquille...