Regroupement sur un seul onglet

Bonjour à tous,

Je suis nouveau sur le forum, et novice dans l'utilisation d'Excel.

Voici mon problème :

J'ai un fichier Excel composé d'environ 200 Onglets. Chaque Onglet est un "Client", et dedans il y a tous les renseignements propre à ce client (Nom, Prénom, Adresse, Tel, Email….)

Ma question est la suivante : Est il possible de regrouper sous un seul onglet (par ex : Emails) Tous les Emails de tous les onglets clients de mon fichier Excel. De même pour les adresses, téléphones….

Dans le but de les exploités dans le cadre de mon activité professionnel.

Merci beaucoup de votre aide,

Louis

Il te suffit de boucler sur tes onglets... sinon avec powerpivot tu peux faire des cubes

EngueEngue a écrit :

Il te suffit de boucler sur tes onglets... sinon avec powerpivot tu peux faire des cubes

"Boucler sur tes onglets…. …faire des cubes….."

Je suis vraiment débutant sur Excel….Il me faudrait des mots un peu moins techniques pour résoudre mon problème.

Merci de ta réponse dans tous les cas….

Louis

Soit tu achètes power pivot, soit tu codes...

Ne connaissant pas la structure de ton fichier il m'est difficile de t'aider.

Supposons que ton classeur ne contienne QUE des fiches clients...

Supposons que ton adresse mail se situe en A1

Tu crees une nouvelle feuille qui s'appelle compil

Et tu fais tourner le code suivant qui va boucler sur tes feuilles de ton workbook actif

Sub toto
dim ws as worksheet, i as integer
i = 1
For each ws in activeworkbook.worksheets
Sheets("compil").cells(i,1) = ws.range("A1")
i=i+1
next ws
end sub

EngueEngue a écrit :

Soit tu achètes power pivot, soit tu codes...

Ne connaissant pas la structure de ton fichier il m'est difficile de t'aider.

Supposons que ton classeur ne contienne QUE des fiches clients...

Supposons que ton adresse mail se situe en A1

Tu crees une nouvelle feuille qui s'appelle compil

Et tu fais tourner le code suivant qui va boucler sur tes feuilles de ton workbook actif

Sub toto
dim ws as worksheet, i as integer
i = 1
For each ws in activeworkbook.worksheets
Sheets("compil").cells(i,1) = ws.range("A1")
i=i+1
next ws
end sub

Bonsoir ENgueEngue,

J'ai appliqué ton code comme tu me l'as expliqué, mais une fois en route, mon fichier Excel mouline mouline mouline sans que je ne puisse agir par la suite….

Peut être que je m'y prend mal….?

Je l'ai copié dans macro, dans un nouvel Onglet nommé "compil"

Mais ça rame, et me bloque Excel….

Que faire…??

Merci de ta réponse

Louis

Aucune raison que ça boucle à l'infini. Passe ton fichier

Ok,

Voici un exemple avec quelques fiches clients. (en fichier joint)

Je souhaite regrouper toutes les adresses mails ici en D6 sur un seul onglet…pour pouvoir faire des envois de mails groupés…

Ton code tourne en boucle et rien ne ce passe….

Merci encore pour ton aide…

Mon fichier clients de base contient plusieurs centaines d'onglets…

Louis

Sub toto()
Dim ws As Worksheet, i As Integer
i = 1
For Each ws In ActiveWorkbook.Worksheets
Sheets("Feuil1").Cells(i, 1) = ws.Range("D6")
i = i + 1
Next ws
End Sub

EngueEngue a écrit :

Sub toto()
Dim ws As Worksheet, i As Integer
i = 1
For Each ws In ActiveWorkbook.Worksheets
Sheets("Feuil1").Cells(i, 1) = ws.Range("D6")
i = i + 1
Next ws
End Sub

C'est presque bon,

J'ai un message d'erreur qui c'est affiché lors du lancement de la Macro

Le voici : "Erreur de compilation"

"Seuls des commentaires peuvent apparaitre après End Sub, End Functions ou End Property"

J'ai vraiment du mal à comprendre la programmation….

Merci pour tes explications

Louis

Tu as écrit des trucs après le end sub.... Vire les...

Re Bonjour,

Alors le code fonctionne mais pas complètement.

Je m'explique :

Si je prend mon classeur complet, il bug et tourne en boucle.

Si je prend une 10zaines d'onglets, il tourne une fois sur trois. Qu'est ce qui peut faire que le code se bloque ?

J'ai regardé…mais je ne trouve pas..

On va y arriver….

Merci de ton aide

Louis