Re : Selection.End(xlDown).Select +1
Bonjour.
Je vous avertis, je suis tout à fait néophyte dans vba.
Je voudrais pouvoir extraire les données d’une plage dans ce cas-ci "am25:y2" de réservation de salles pour en établir la facture. Il y a donc, par fichier, une trentaine de feuilles, à récapituler sur une feuille cible afin de pouvoir la trier et établir une facture mensuelle par usager… J’ai tenté ceci :
Sub Transfert()
Windows("2013-10-Facturation Réservations octobre 2013.xlsm").Activate
Sheets("1").Select
Range("am25:y2").Select
Selection.Copy
Windows("2013-10-Facturation Réservations octobre 2013.xlsm").Activate
Sheets("Feuil2").Select
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Windows("2013-10-Facturation Réservations octobre 2013.xlsm").Activate
Sheets("2").Select
Range("am25:y2").Select
Selection.Copy
Windows("2013-10-Facturation Réservations octobre 2013.xlsm").Activate
Sheets("feuil2").Select
Range("a25").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
A reproduire autant de fois qu'il y a de jours...
Mais
1° message d’erreur sur la ligne : Selection.End(xlDown).Offset(1, 0).Select
2° Je me rends compte qu’il y a sûrement une routine possible pour aller successivement sur chaque feuille ??
Vous voyez hélas l'étendue de mon ignorance mais bon j'apprends...
Si quelqu'un peut m'aider : merci