Discussion :

[piloupilou82]

Bonjour,

je n'ai pas réussi à trouver d'aide pour créer une macro m'évitant 150 copier/coller de données d'un tableau vers 150 onglets différents .... donc je sollicite votre aide, merci !

J'ai donc un tableau de 15000 lignes, avec des colonnes allant de A à L.
Sur la colonne E, j'ai un numéro.
Je souhaite extraire toutes les lignes correspondant à un même numéro dans la colonne E vers un onglet portant le nom de ce numéro, et ceci pour tous les différents numéros de cette colonne E, vers autant d'onglets distincts.

J'ai réussi à créer avec un début de macro, les onglets portant comme nom les numéros.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CreationOnglet()
   ActiveCell.CurrentRegion.Select
   Dim Tableau() As String
   ReDim Tableau(1 To ActiveCell.CurrentRegion.Count)
 
   For Ctr = 1 To ActiveCell.CurrentRegion.Count
     Tableau(Ctr) = ActiveCell.CurrentRegion(Ctr)
   Next
 
   For Ctr = 1 To ActiveCell.CurrentRegion.Count
     Sheets.Add , Sheets(Sheets.Count)
     Sheets(Sheets.Count).Name = Tableau(Ctr)
   Next
 
End Sub

Pourriez-vous m'aider à la compléter pour réaliser le copier/coller des lignes du tableau initial correspondant à chaque numéro vers l'onglet correspondant ? (j'ai mis un exemple en Pièce Jointe). Idéalement, il faudrait aussi recopier la première ligne d'entête du tableau de la feuil1 dans chaque onglet.

Un grand merci pour votre aide !