La petite macro ci-dessous résout un problème récurent, celui de la fusion de plusieurs feuilles en une seule (pour importation "one shot" dans la BD) :
Exemple : N listes de tarifs pour N fournisseurs
Donc pour vous éviter des copier/coller fastidieux et source d'erreur :
1 - Ajouter une feuille [Recap] à votre classeur
2 - Copiez en [A1] l'entête des champs (Je pars du principe que toutes les feuilles ont la même structure)
3 - Ajouter la macro ci-dessous
4 - Lancer la macro depuis [A2] de la feuille [Recap]
5 - Appréciez la rapidité et l'efficacité du traitement
L'Admin
Sub recap()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Recap" Then
sh.[A2].Resize(sh.[A65536].End(xlUp).Row - 1, 15).Copy Destination:=Worksheets("Recap").[A65536].End(xlUp).Offset(1, 0)
End If
Next sh
End Sub
PS :
- Il vous faudra probablement adapter le Nb de Colonnes (15 dans l'exemple)
- Aucun contrôle de dépassement de lignes n'est effectué (mais avec 1 048 576 ligne pour Excel 2013 ...)