Microsoft 365 renvoi sur des feuilles en fonction des clients

  • Initiateur de la discussion Initiateur de la discussion eric123
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eric123

XLDnaute Occasionnel
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,
 

Pièces jointes

Bonsoir.
Proposition :
VB:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
590
Réponses
26
Affichages
1 K
Retour