XL 2013 Codes VBA et macros

OCS

XLDnaute Nouveau
Bonjour à tous,

Cela fait quelque temps que j'essaie de trouver une manière de faire mais je bloque, donc je fais appel a vos lumières.
Dans le classeur ci-joint j'ai répertorié une liste de personne avec des informations diverses (liste participants) qui sont ensuite ventilées dans différents "rayons", (rayon 1 et rayon2) ....
Jusque là aucun problème ...
Mais il arrive.... :)
Ces personnes qui sont ventilées par "rayon" mais sont amenées a en changer assez régulièrement. Y a t'il une solution pour qu'elles permutent d'un rayon (onglet rayon1 et rayon2) automatiquement lorsque je procède à la modification dans l'onglet (liste participant) ?
J'espère avoir été claire et je vous remercie d'avance pour votre aide
 

Fichiers joints

Jacky67

XLDnaute Accro
Bonjour à tous,

Cela fait quelque temps que j'essaie de trouver une manière de faire mais je bloque, donc je fais appel a vos lumières.
Dans le classeur ci-joint j'ai répertorié une liste de personne avec des informations diverses (liste participants) qui sont ensuite ventilées dans différents "rayons", (rayon 1 et rayon2) ....
Jusque là aucun problème ...
Mais il arrive.... :)
Ces personnes qui sont ventilées par "rayon" mais sont amenées a en changer assez régulièrement. Y a t'il une solution pour qu'elles permutent d'un rayon (onglet rayon1 et rayon2) automatiquement lorsque je procède à la modification dans l'onglet (liste participant) ?
J'espère avoir été claire et je vous remercie d'avance pour votre aide
Bonjour,
Une proposition à tester en PJ
La mise à jour se fait à la selection des feuilles "rayon1" et "rayon 2"
Quelques modifications de structure et répartition des saisies sur la ligne1 des feuilles "rayon1" et "rayon 2"
Suppression des espaces en colonne C de la feuille "Liste Participants"
 

Fichiers joints

Dernière édition:

Dranreb

XLDnaute Barbatruc
Bonsoir.
Moi j'ai fait ce code dans le module Feuil1 (Liste Participants) :
VB:
Option Explicit
Private Sub Worksheet_Deactivate()
   Dim Ray As SsGr, Mbr As SsGr, TR(), L As Long, Détail, Wsh As Worksheet, Rng As Range
For Each Ray In Gigogne(Me.[A5:G27], 4, 3, Null, 1, 2)
   Set Wsh = ThisWorkbook.Worksheets(Replace(Ray.Id, " ", ""))
   For Each Mbr In Ray.Co
      If Mbr.Id = "B" Then Set Rng = Wsh.[M3:U15] Else Set Rng = Wsh.[B4:J36]
      ReDim TR(1 To Rng.Rows.Count, 1 To Rng.Columns.Count)
      L = 0
      For Each Détail In Mbr.Co
         L = L + 1: TR(L, 1) = Détail(1): TR(L, 2) = Détail(2)
         TR(L, 3) = Détail(6): TR(L, 4) = Détail(7)
         TR(L, 5) = Détail(7) - Détail(6)
         TR(L, 6) = Détail(5)
         Next Détail
      Rng.Value = TR: Next Mbr, Ray
End Sub
Marche avec mon complément GigIdx dont le projet doit être coché en référence.

Remarque: j'ai dû agrandir la page des MEMBRE B.
 

Fichiers joints

Discussions similaires


Haut Bas