Discussion :

[jeremy lr]

bonjour casefayere, piloupilou,

Je dois réaliser la même chose que piloupilou dans cette discussion, j'ai donc tenté d'exécuter la macro attachée dans le fichier zip.
J'ai supprimé les onglets générés et exécuté la macro mais ça ne fait rien (m^me pas message d'erreur).

Je débute en excel et donc j'implore votre indulgence..

[casefayere]

Bonjour Jeremy,
il ne faut pas reprendre le fichier zip qui n'est pas abouti, mais si j'imagine que ta structure est la même que ce fichier, il faut simplement copier le code que j'ai proposé (code qui mérite des améliorations mais.......manque de temps), d'autre part je te fais remarquer que les onglets à piloupilou existent bel et bien, ils ne sont pas créés mais alimentés.

Bonne soirée

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
26
27
28
29
Sub AlimenteOnglet()
Dim Tbl, x As Long, Dl As Range, y As Long, z As Long
Dim Ws As Worksheet
With Sheets("Feuil1")
  Set Dl = .Range("E" & .Rows.Count).End(xlUp)
  Tbl = .Range("A1", Dl(1, 8))
End With
For Each Ws In Worksheets
  z = 1
  For x = 1 To UBound(Tbl, 1)
    With Ws
      If Trim(.Name) = Trim(Tbl(x, 5)) Then
        If z = 1 Then
          Set Dl = .Range("E" & .Rows.Count).End(xlUp)
          .Range("A1", Dl(1, 8)).ClearContents
        End If
        For y = 1 To 12
          .Cells(1, y) = Tbl(1, y)
        Next y
        z = z + 1
        For y = 1 To 12
          .Cells(z, y) = Tbl(x, y)
        Next y
      End If
    End With
  Next x
Next Ws
 
End Sub

[jeremy lr]

Bonjour Dominique,

Merci pour ta réponse,
En effet je m'étais imaginé naïvement que la macro créait aussi les onglets... en réessayant ce matin, je me suis rendu compte que ça fonctionnait très bien. Un grand merci donc.

Par contre j'ai essayé de l'adapter à mon problème mais je coince directement.
Dans le problème de pilou pilou, chaque ligne réfère à un numéro unique et on trie donc toujours sur la même colonne.
Dans mon cas, une ligne peut avoir plusieurs références et donc je trie sur plusieurs colonnes, et je souhaiterais que dans chaque onglet soit copié le résultat du tri de la colonne concernée.

Test_DP.xlsx

C'est certainement trop complexe pour être résolu en 2 secondes mais si tu pouvais simplement me dire si c'est réalisable je pourrais être fixé.

Merci,

Jeremy