comment fusionner 2 feuilles en une sans vide

[saverloo]

bonjour,

voila j'ai sur une feuille1 excell des données de la ligne 1 a 418 le nombre de ligne varie donc parfois 418 parfois 589,.... et j'ai une autre feuille2 dans le meme classeur qui elle aussi est variable en ligne. j'aimerais en faite faire un macro qui lorsque je clic dessus dans la feuille 1 prenne toutes les données de la feuilles 2 et les colles sous la derniere ligne de la feuille 1 sans avoir de vide entre la fusion des deux feuille en une.

 

[Staple1600]

Re : comment fusionner 2 feuilles en une sans vide

Bonsoir


Voici une solution possible

Sub Macro1()
Feuil2.UsedRange.Copy Feuil1.[A65536].End(xlUp)(2)
End Sub

et sa variante (ici on traite la colonne 1 de la feuille 2 )

Sub Macro1a()
Feuil2.Columns(1).SpecialCells(xlCellTypeConstants, 23).Copy Feuil1.[A65536].End(xlUp)(2)
End Sub