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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas