Discussion :

[yalefe]

bonjour,

j'ai sur une feuille des données comme suit


SANDRA 9806 15.25
GERARD 68 8.06
PATRICE 37 49.12
AUDREY 44 49.85
LAURENT 95 34.51
RACHID 91 22.91
DIDIER 33 28.08
JULIEN 31 12.08
EMERIC 79 83.37
ARNAUD 69 29.1
STEPHANE 34 47.22
MAUD 95 24.77

j'ai ecrit une macro qui me permet de créer et de renommer des onglets d'après les valeurs de la colonne B.
la macro copie et colle ensuite dans chaque onglet les données correspondantes ( ex ligne 1 de l'onglet 9806 la macro colle SANDRA 9806 15.25 ; ligne 1 de l'onglet 68 la macro colle GERARD 68 8.06 )

mon seul problème est que la macro créee autant d'onglets qu'il y a de données dans la colonne B ( 423 lignes) alors qu'il y a beaucoup de doublons.

et là je coince , je ne vois pas comment créer un onglet unique même si j'ai plusieurs doublons dans la colonne B ( je ne peux pas supprimer les doublons , j'ai besoin de récupérer toutes les données de la feuille .

Si l'un d'entre vous a une idée

par avance, merci

[mercatog]

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
16
17
18
19
20
21
22
23
24
25
Sub Dispatch()
Dim Sh As Worksheet
Dim LastLig As Long, NewLig As Long, i As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil5")
   LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
   For i = 1 To LastLig
      If Trim(.Range("B" & i).Value) <> "" Then
         On Error Resume Next
         Set Sh = Worksheets(CStr(.Range("B" & i).Value))
         On Error GoTo 0
         If Sh Is Nothing Then
            Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count))
            Sh.Name = CStr(.Range("B" & i).Value)
            NewLig = 1
         Else
            NewLig = Sh.Cells(Sh.Rows.Count, "B").End(xlUp).Row + 1
         End If
         .Rows(i).Copy Sh.Range("A" & NewLig)
      End If
      Set Sh = Nothing
   Next i
End With
End Sub

[rvtoulon]

Bonsoir,
tu peux t'inspirer du ce Code de la FAQ pour créer une liste sans doublons et boucler sur chaque éléments de cette liste pour créer tes feuilles.

[yalefe]

Merci à vous deux ...