Discussion :

[Kaytilou]

Bonjour,
Dans le cadre de l'aide au soignants, j'ai construis un tableau (regroupant déjà plusieurs tableaux notamment un extra de google sheet) mis sur un espace partagé

• Plusieurs personnes vont devoir travailler en même temps sur un des onglets du fichier (un onglet par personne, 9 au total + onglet synthèse).

• A chaque ligne mise à jour par une personne sur son onglet, cette ligne doit être incorporée à l'onglet récapitulatif sur la dernière ligne du tableau.

• Il faut ensuite que l'on puisse faire un tri sur l'onglet récapitulatif sur la colonne A.

J'ai besoin de votre aide pour construire cette macro. Je déjà tester plusieurs solutions, mais je me rends compte que je ne pourrais pas finaliser l'intégralité de la conception du tableau si je me penche uniquement sur la macro (mais cela va me prendre un temps énorme). J'ai besoin de rendre ce tableau pour l'association qui gère l'aide aux soignants avant 16h00

Je sais qu'il existe bien des experts sur ce forum, que je remercie infiniment, qui en deux trois manipulations vont pouvoir m'aider.

Merci pour votre aide
Prenez soin de vous et de vos proches

Mieux vaut être optimiste et se tromper, que pessimiste et avoir raison ! Jack Penn

[Philippe Tulliez]

Bonjour,
Voici deux contributions avec fonction "clé sur porte"

• Regrouper plusieurs feuilles sur une autre. (2003-2010)
• CopyRange - Copie de liste de données (source) dans une feuille cible

[Kaytilou]

Bonjour,
Voici deux contributions avec fonction "clé sur porte"

• Regrouper plusieurs feuilles sur une autre. (2003-2010)
• CopyRange - Copie de liste de données (source) dans une feuille cible

Bonjour Philippe,
Merci pour vous deux liens, je me suis plongée dans vos ressources que je trouve fantastique. J'ai essayé de reproduire une de vos macros en ajoutant ma petite touche finale. Bien évidement, je buggue :-)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub TestCopyRange_2()
  ' Feuilles du même classeur mais ListObject
  Dim oListSource As ListObject
  Dim rng As Range
  Dim tbl()
  Dim Elem As Integer
  Dim addr As String
  '
  tbl = Array("Bruxelles", "Londres", "Athenes")
  If Start(tbl) Then
    '
    For Elem = 0 To UBound(tbl)
      Set oListSource = ThisWorkbook.Worksheets(tbl(Elem)).ListObjects(1)
      ' Importation
      If Elem = UBound(tbl) Then
         Set rng = mStdCopyRange.CopyRange(oListSource, shtTarget, ClearSheet:=Elem = 0, AddLabel:=oListSource.Parent.Name)
       Else
         CopyRange oListSource, shtTarget, ClearSheet:=Elem = 0, AddLabel:=oListSource.Parent.Name
      End If
    Next
    shtTarget.Cells.EntireColumn.AutoFit
 
 
'TRI Macro
    ActiveWorkbook.Worksheets("tbl").ListObjects(1).Sort. _
        SortFields.Add2 Key:=Range("ListObjects(1)[IdClient]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("tbl").ListObjects("ListObjects(1)"). _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    MsgBox rng.Address(external:=True)
  End If
 
  ' End of process
  Set rng = Nothing: Set oListSource = Nothing
End Sub

Le début de la macro est votre source, la deuxième partie est la mienne, à savoir je voulais intégrer la fonction de tri en fonction de ma première colonne IdClient. J'ai du faire une erreur. Impossible de trouver le buggue.

Merci pour tout

« La persévérance est une force mentale unique. Vous êtes confronté à des montagnes tous les jours. Vous pouvez escalader ces montagnes, ou rester dans les contreforts. La persévérance est absolument essentielle pour escalader les montagnes et changer vos résultats. »