Discussion :

[ericdev67]

Bonjour,

J'ai un planning (format du planning imposé), je cherche à récupérer toutes les données et les mettre en ligne, j'ai fait (merci JB pour tes tutos) :

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
 
Sub ColonnesArray3()
  Set f = Sheets("Planning")
  Tbl1 = f.Range("A3:BA" & f.[A65000].End(xlUp).Row).Value
 Dim Tbl2
  For l = 0 To 5
 
  ReDim Tbl2(1 To UBound(Tbl1), 1 To 53)
  j = 0
  For Each k In Array(1, 2, 3, 4, 5, l + 6, l + 7, l + 8)
      j = j + 1
      For i = 1 To UBound(Tbl1): Tbl2(i, j) = Tbl1(i, k):  Next i
   Next k
   Sheets("Feuil3").Cells(1, 3).Resize(UBound(Tbl2), UBound(Tbl2, 2)) = Tbl2
 
   Stop
 
   Next l
End Sub

mais la boucle L ne fonctionne pas.... : comme il faut récupérer chaque demi journée, je pensais que la boucle résoudrait le problème, mais....marche pas et je ne sais pas pourquoi.....cela fonctionne bien pour la première demi journée, mais pas pour les autres...

Je mets en PJ, exceptionnellement au premier post, pour une compréhension plus rapide....La feuille "Compil" est le résultat recherché...mon résultat obtenu en Feuil3,

En vous remerciant par avance,