scinder un fichier excel en plusieurs onglets Fermé

Question

Bonjour !

Je cherche une macro qui permettrait de scinder un fichier excel en autant d'onglets qu'il y a de valeurs pour la variable Dossier Groupe.

Mes données se présentent comme ça :

N° Compagnie        Nom Compagnie	Dossier Commercial	Dossier Groupe	N° Client
5312	               CCPMA PREVOYANCE	     35308	                4262	                933615 
5312	               CCPMA PREVOYANCE	     43873	                4264	                1001564
5312	               CCPMA PREVOYANCE	     4259	                4267	                900803
5312	               CCPMA PREVOYANCE	     11910	                4262	                900464
5312	               CCPMA PREVOYANCE	     35308	                4263	                933615
5312	               CCPMA PREVOYANCE     32581	                4264	                932300
...
...

Merci pour votre aide !
Gaëtan

Configuration: Windows XP / Internet Explorer 6.0

pijaku · Accepted Answer

Bonjour,
Par VBA, tu peux utiliser ce code :
Sub creation_onglets()
Dim Ws As Worksheet
Dim trouve As Boolean
Dim contenu As String
Dim lig, derlig As Integer
With Sheets("Feuil1") 'à adapter Feuil1 = feuille ou sont vos données
derlig = .Range("E65536").End(xlUp).Row 'à adapter, E = colonne "Dossier groupe"
For lig = 2 To derlig
contenu = .Cells(lig, 5).Value 'à adapter 5 = 5ème col cf E ci dessus
For Each Ws In ThisWorkbook.Worksheets
trouve = False
        If StrComp(Ws.Name, contenu, vbTextCompare) = 0 Then
            trouve = True
            Exit For
        End If
Next Ws
If trouve = True Then
        .Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
    Else
        Sheets.Add
        ActiveSheet.Name = contenu
        .Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
End If
Next lig
End With
End Sub
Les commentaires (textes apparaissant en vert sous VBA) sont à adapter à vos besoins.
A insérer dans un module : sous la feuille Excel taper ALT+F11 puis Insertion/Module. Copier coller ce code dans la fenêtre Visual Basic, fermer visual basic. Pour la "lancer" , taper ALT+F8 dans la feuille Excel, choisir "creation_onglets" et cliquer sur exécuter...

TShisha · Answer

Bonjour,

J'aurais besoin svp de votre aide au sujet du code
J'ai un fichier excel à scinder en plusieur onglets ou plusieur fichiers par rapport à une colonne qui ne contient que les pays. Je souhaiterais faire un onglet par pays.
J'ai donc utilisé votre code en faisant quelques modifications afin de l'adapter à mon fichier. Cela fonction bien, j'ai un fichier pas pays mais je n'ai pas le nom des champs dans les onglets. Voici le code modifié


Sub creation_onglets()
Dim Ws As Worksheet
Dim trouve As Boolean
Dim contenu As String
Dim lig, derlig As Integer
With Sheets("Détail Clients - Carnet T1") 'à adapter Feuil1 = feuille ou sont vos données
derlig = .Range("U65536").End(xlUp).Row 'à adapter, E = colonne "Dossier groupe"
For lig = 1 To derlig
contenu = .Cells(lig, 21).Value 'à adapter 5 = 5ème col cf E ci dessus
For Each Ws In ThisWorkbook.Worksheets
trouve = False
        If StrComp(Ws.Name, contenu, vbTextCompare) = 0 Then
            trouve = True
            Exit For
        End If
Next Ws
If trouve = True Then
        .Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
    Else
        Sheets.Add
        ActiveSheet.Name = contenu
        .Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
End If
Next lig
End With
End Sub

Etant donné que le nom des champs se trouvent sur la première ligne j'ai remplacé le 2 par 1 sur la ligne "For lig = 1 To derlig"

Je vous remercie d'avance pour votre aide.
Bien cordialement,

TShisha · Answer

Bonjour,

Merci d'avoir répondu.
En colonne U j'ai la liste des pays. Je souhaiterais créer un onglet par pays avec les données associées.
La plage des données est de A à AB et les nom des champs se trouvent sur la première ligne de A1 à AB1.

Je vous remercie d'avance pour votre aide
Bien cordialement

TShisha · Answer

J'ai testé le code et ça marche. 
Je vous remercie infiniment pour votre aide. 

Bien cordialement,

TShisha · Answer

Excusez moi, j'ai une autre question à vous poser sur le même sujet 

Dans le fichier initial, j'ai en réalité 2 onglets le permier comporte les données de cette années et le second les données de l'année  dernière avec le même nombre de colonnes et la liste pays.
Est-ce qu'il est possible d'avoir une macro qui scinde les 2 onglets en meme temps par pays, voir par exemple un fichier par pays avec 2 onglets comportant les données de chaque pays.
 ou dois-je excécuter le code une seconde fois en modifiant les paramètres.

Je vous remercie d'avance pour votre aide.
Bien cordialement,

TShisha · Answer

Désolé si la formulation de ma requête vous a blessé. 
Bien cordialement,

Boisgontierjacques · Answer

Bonsoir,

Une méthode plus rapide. Le transfert se fait par blocs et non pas par ligne.

http://boisgontierjacques.free.fr/fichiers/Cellules/ExtraitBDOnglets.zip

Boisgontier

Scinder un fichier excel en plusieurs onglets

7 réponses

Discussions similaires