Microsoft 365 renvoi sur des feuilles en fonction des clients

[eric123]

Bonjour les amis du forum,
je bloque sur un petit soucis, j'ai une liste de client 1/2/3/4/5 ect....
avec différents volumes a reporter sur une feuille distincte par client. Feuille 1 BD; feuille 2= client 1. feuille 3= client 2 etc.... et cela avec a chaque feuille les entêtes.
quelqu'un d'entre vous a une idée pour traiter cette problématique ? fichier exemple de l'attendu en pj
par avance merci,
Eric,

 

[Dranreb]

Bonsoir.
Proposition :

Private Sub Worksheet_Deactivate()
Dim SGrClient As SsGr, TRésu(), L As Long, Détail, C As Integer, Wsh As Worksheet
For Each SGrClient In Gigogne(Me.[A2:M2], 1)
   ReDim TRésu(1 To SGrClient.Count, 1 To 13): L = 0
   For Each Détail In SGrClient.Co: L = L + 1
      For C = 1 To 13: TRésu(L, C) = Détail(C)
         Next C, Détail
   On Error Resume Next
   Set Wsh = Worksheets(SGrClient.Id)
   If Err Then
      Set Wsh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
      Wsh.Name = SGrClient.Id
      Wsh.[A1:M1].Value = Me.[A1:M1].Value: End If
   On Error GoTo 0
   Wsh.Rows(UBound(TRésu, 1) + 2).Resize(10000).Delete xlShiftUp
   Wsh.[A2].Resize(UBound(TRésu, 1), 13).Value = TRésu
   Next SGrClient
   End Sub

 

[Phil69970]

Bonjour à tous les deux

@eric123

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[eric123]

Bonjour,
un grand merci a vous cela fonctionne parfaitement.
J'espère que cela servira à d'autre personnes.