Macro excel pour copier coller données à la suite

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

benouz_mw

XLDnaute Nouveau
Bonjour,

Je travaille actuellement sur un fichier excel sur lequel je dois créer une macro qui viendrait me chercher différentes données se trouvant sur 12 onglets différents et je suis débutant en VBA...

Mon souci est le suivant, je n’ai pas de problèmes afin de créer une macro allant me chercher les infos mais c’est plutôt dans la mise en forme de celles-ci

En effet, j’ai besoin que ces dernières soient collées à la suite dans la feuille de destination car elles suivent les jours de l’année de manière chronologique…mais je n’y arrive décidemment pas !!

Je vous mets ci-dessous un exemple qui correspond à mon fichier en espérant que vous disposiez d'assez d'éléments!

Merci par avance!
 

Pièces jointes

Re : Macro excel pour copier coller données à la suite

Bonjour,

Voici un bout de code qui pourrait résoudre le problème: dans la feuille REAL PROB CA, il va rendre active la première cellule vide dans la colonne B à la suite de la série de dates.
J'ai tenu compte d'une série de cellules vides au début de la colonne.

Sheets("REAL PROB CA").Select
Range("B1").Select
Range(Selection, Selection.End(xlDown)).End(xlDown).Select
Range(Selection, Selection.End(xlDown)).End(xlDown).Offset(1, 0).Select

@+
 
Re : Macro excel pour copier coller données à la suite

Bonjour benoux, Pierre

peut être une autre solution comme suit, agit sur la feuille active, sélectionne la première cellule vide après la dernière cellule non vide de la colonne B :

Code:
Range("B65536").End(xlUp)(2).Select

pour rappel, il est rarement utile de sélectionner en vba...

bon après midi
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour