Discussion :

[Alqualonde]

Bonjour,

J'ai effectué une macro afin d'automatiser des tâches qui se répétent à dates fixes. Pour une de ces tâches, je voudrais récupérer les données présentes dans ma dernière ligne, les copier et les coller à la ligne d'en dessous (sachant que les cellules contiennent des formules qui doivent donc "s'incrémenter").
Jusqu'ici pas de problème sauf que mes données vont par exemple de la colonne A à la colonne AL mais au milieu il y a une colonne vide. Afin d'atteindre les données de la dernière colonne j'utilise un Selection.End(...) par trois fois. J'ai fait cette manipulation à la main, et avec l'enregistreur de macros. Pourtant quand je lance mon programme, il ne sélectionne les données que jusqu'à la colonne vide... Quelqu'un aurait-il une idée ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Set Onglet2 = Worksheets("Récap")
Onglet2.Select
DerLigne2 = Range("B65536").End(xlUp).Row
Onglet2.Cells(DerLigne2, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Onglet2.Cells(DerLigne2 + 1, 1).Select
ActiveSheet.Paste

PS : je me rappelle avoir lu que les Select pouvaient être évités dans la plupart des cas, est-ce possible ici ?

Merci d'avance

[LeForestier]

bonjour
essaye avec

Code :

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

1
2
3
4
   Onglet2.Rows(DerLigne2 ).Select
    Selection.Copy
    Onglet2.Rows(DerLigne2 +1).Select
    ActiveSheet.Paste

A+

[Alqualonde]

Merci pour cette réponse, ça résoudra au moins le problème temporairement (jaurais préféré avoir quelque chose de propre qui ne prenne pas toute la ligne au cas où d'autres données soient plus loins, mais bon c'est déjà mieux comme ça...)

[LeForestier]

Je ne vois vraiment pas où est le problème pour copier une plage même s'il y à des cellule vide.

Code :

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

1
2
3
4
    Range("A3:K3").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste

copie toute la sélection même s'il y a 'des trous'.
A+

[Alqualonde]

Le problème c'est que je connais pas la taille de ma plage, donc je ne connais pas les bornes à l'avance. D'où mon utilisation de Selection.End(xlToRight). Tout ce que je connais c'est la structure :
- x colonnes remplies
- 1 colonne vide
- y colonnes remplies.

En utilisant le Selection.End ça me permettait de retrouver à coup sûr toute ma sélection sans prendre de données éventuellement placées encore plus à droite. Après pas de problème, je copie le tout y compris les trous !