[phpBB Debug] PHP Warning: in file /includes/session.php on line 1035: Cannot modify header information - headers already sent by (output started at /config.php:16)
[phpBB Debug] PHP Warning: in file /includes/session.php on line 1035: Cannot modify header information - headers already sent by (output started at /config.php:16)
[phpBB Debug] PHP Warning: in file /includes/session.php on line 1035: Cannot modify header information - headers already sent by (output started at /config.php:16)
[phpBB Debug] PHP Warning: in file /includes/functions.php on line 4586: Cannot modify header information - headers already sent by (output started at /config.php:16)
[phpBB Debug] PHP Warning: in file /includes/functions.php on line 4588: Cannot modify header information - headers already sent by (output started at /config.php:16)
[phpBB Debug] PHP Warning: in file /includes/functions.php on line 4589: Cannot modify header information - headers already sent by (output started at /config.php:16)
[phpBB Debug] PHP Warning: in file /includes/functions.php on line 4590: Cannot modify header information - headers already sent by (output started at /config.php:16)
1er forum multi-éditeurs d'utilisateurs de *Progiciels de Gestion Intégrée • Consulter le sujet - EXCEL - Fusion de feuilles

EXCEL - Fusion de feuilles

      Espace de téléchargement collaboratif

  
Reports en tout genre, Modèles de Documents, Modèles d'Import/Export, Etats Statistiques, Tableaux croisés, Requêtes Sql (Trigger, Procédures), Add-ons (Excel, WinDev, ...), Outils & Liens utiles, ...
Ce forum est dédié aux liens & téléchargement libre de fichiers mis à disposition (et valides SVP) par les membres du forum sous leur seule responsabilité.
  

EXCEL - Fusion de feuilles

Messagepar admin » Lun Jan 26, 2015 1:56 pm

Bonjour,
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 ...)
Saari (GC, Négoce, Intégrale) - Sybel (Intégrale 500) - Ciel - Microland - Business Soft - Sage (100, 500) - Cote Ouest (Maxima) - Microsoft Dynamics NAV - Xlsoft - Gestimum - Divalto Infinity - EBP OpenLine PME - WaveSoft - Magento - Oxatis - ...
admin
Site Admin
 
Message(s) : 81
Inscrit le : Mer Fév 16, 2011 1:36 pm
Localisation : 92 - Issy-les-Mx

Retour vers       Rubrique à Brac

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité

cron