Eclater un tableau excel en plusieurs fichiers

  • Initiateur de la discussion Initiateur de la discussion jaba
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jaba

XLDnaute Junior
Bonjour,

Je voudrais savoir s'il est possible d'éclater un tableau excel en plusieurs fichiers en fonction d'un critère.

exemple : j'ai un tableau regroupant plusieurs clients. chaque colonne donne un renseignement sur un lcient. Je voudrais créer un fichier par client aves les renseignements relatifs à ce client.

Merci pour votre aide!
 
Re : Eclater un tableau excel en plusieurs fichiers

En utilisant l'enregistrement macro tu peux créer un nouveau fichier et positionner les données du 1er fichier dans le nouveau.
Cela te fait un programme dans lequel tu insère une boucle pour répéter l'opération
 
Re : Eclater un tableau excel en plusieurs fichiers

Merci pour ta réponse,

mais j'ai trouvé la macro suivante qui éclate en plusieurs onglets. et je voudrais du coup la transformer pour éclater en plusieurs fichiers.

Macro :

Sub Eclater()
'
' Macro2 Macro
' Macro enregistrée le 06/10/2009 par FORCET
'
i = 2
Do While i < Sheets("Inventaires Conso").Range("A65535").End(xlUp).Row + 1
For j = 1 To Sheets.Count
If Sheets(j).Name = Sheets("Inventaires Conso").Range("A" & i) Then
Existant = 1
Exit For
End If
Next
A = Sheets("Inventaires Conso").Range("A" & i)
If Existant = "" Then
Sheets.Add.Name = Sheets("Inventaires Conso").Range("A" & i)
End If
Sheets("Inventaires Conso").Range("A" & i).EntireRow.Copy Sheets("" & Sheets("Inventaires Conso").Range("A" & i) & "").Range("A65535").End(xlUp).Offset(1, 0)
Existant = ""
i = i + 1
Loop
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
237
Réponses
3
Affichages
488
Retour