XL 2013 Codes VBA et macros

OCS · 19 Août 2019

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

Jacky67 · 19 Août 2019

OCS à dit:
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"

Dranreb · 19 Août 2019

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.

XL 2013 Codes VBA et macros

OCS

Guest

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2013 Codes VBA et macros

OCS

Guest

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency