Voila, j'ai un classeur avec 167 feuilles (remplies sur une seule colonne) qui ont une structure comme nom Ntxt avec N pour le numéro de feuille avec pour chaque feuille de 1 à 60 données.
Comment en VBA avec une macro sympa puis-je concaténer les 167 feuilles les unes à la suite des autres dans une feuille que je rajouterai au début de la macro et qui s'appelera Données?
Pierrot: 3.4 secondes (rapide ) Geo: 11,9 secondes (un peu à la traîne, mais acceptable ) Efgé1: 2.8 secondes (rapide ) Efgé2: 0.4 secondes (très rapide )
Afin de répondre à cette attaque, GeoTrouvePas sort sa caisse à outils et invoque deux fonctions VBA concoctées par ses soins et qu'il affectionne particulièrement :JaitoujoursRaison() et Mauvaisefoi().
Attention ! C'est parti ! :
Code:
Sub JeRepondaMJ13
Dim Message as String
Dim MessageDeforme as String
Dim MessageVraimentDeforme as String
Message = "Bon ok j'ai perdu"
MessageDeforme = MauvaiseFoi(Message)
MessageVraimentDeforme = JaitoujoursRaison(MessageDeforme)
Msgbox MessageVraimentDeforme
End Sub
Résultat de cette procédure dans le fichier image joint.
Comme quoi vous voyez bien. Pour être le meilleur, il suffit d'avoir de bonnes fonctions à poter de main. Jusqu'à preuve du contraire .
Sur ce, j'espère que vous aurez apprécié la plaisanterie, c'est la fin de la semaine, je pars en vacances pour 3 semaines et j'ai donc le droit de craquer et de me lacher un peu quand même !
Je vous souhaite un excellent week end à vous trois ! Bye
Edit : Tu as vu Pierrot, ce coup - ci j'ai bien déclaré mes variables
J'adore l'humour sur les fofo avec les gens qu'on commence à connaître, les petites private joke. Si j'ai l'occasion de repasser de temps en temps après les vacances, on va bien se marrer MJ
Merci mais vu la quantité de travail que j'ai fait cette semaine, je mérite pas vraiment mes vacances. Par contre, c'est mes collègues qui méritent que je parte en vacances. Les pauvres, ils en peuvent plus Soit je pars, soit ils me passe par la fenêtre.
T'inquiète je repasserai surement sur le fofo pendant mes vacances car j'ai toujours pas fini mon application qui doit être opérationnelle début septembre.......
En tout cas bon week end à toi et à tous les autres !
Re : Concaténer des feuilles xls dans une seule feuille
Re
Je vais de ce pas, mettrre de coté ces fonctions dont on ne pourra bientot plus se passer .
Merci Géo de ce post, bonne vacances.
Je reviendrai fin Août, avec ces nouvelles procédures dans ma besace ça va dépoter...
Bon courage à MJ et Pierrot.
Cordialement
Re : Concaténer des feuilles xls dans une seule feuille
Bonjour,
Et si on avait plusieurs colonnes dans chaque feuille comment adapter le programme euuuh j'ai essayé de changer la boucle for sauf que j'ai fait de la merde ça marche pas du tout.
es ce que je pourrai avoir de l'aide.
Merci.
PS: je suis vraiment nulle en VBA
Voici déjà, après recherches sur le net et quelques légères modifications, de quoi regrouper plusieurs (feuilles de) classeurs en un seul : ouvrir le dossier "GrouperClasseursExcel" puis le classeur nommé "COL_RecapReleveProprietes2015.xlsm" (pas les autres) et essayer toutes les macros en cliquant sur les boutons de la 1ère feuille nommée "COL_Releve_Proprietes2015". En n'oubliant pas, avant d'essayer la suivante, d'effacer les onglets (feuilles) crées après l'exécution de la macro précédente, sauf évidement la 1ère feuille nommée "COL_Releve_Proprietes2015" car il faut la réutiliser pour exécuter les autres macros !
Mes sources (les plus compréhensibles pour moi) : http://www.developpez.net/forums/d1...r-plusieurs-classeurs-seul-1-classeur-onglet/ http://forum.excel-pratique.com/exc...hiers-excel-sous-un-seul-classeur-t40408.html
Je vous joindrai le dossier dès que je saurai comment faire...