Copie avec matrice-array-tableau ?

[gosselien]

Bonjour,

je ne parviens pas à solutionner ce (simple problème):

je dois copier les colonnes jaunes les unes sous les autres de la feuille 1 (ligne 4) vers la feuille 2 en colonne E ensuite et les données des autres voisines dans la même feuille1 mais en colonne A et ceci avec l'aide d'un tableau pour gagner du temps car les données seront plus nombreuses sur le vrai fichier.
J'ai tenté avec une boucle entre feuille mais c'est beaucoup trop long et je ne connais pas et ne pige les tableaux malgré que je vois ça souvent ici dans des exemples.

Merci de votre aide

 

[BOISGONTIER]

Re : Copie avec matrice-array-tableau ?

Bonsoir,

Une solution Dictionary (optimisable) et une solution Array()

Sub essaiDict()
  Set d1 = CreateObject("scripting.dictionary")
  Set d2 = CreateObject("scripting.dictionary")
  For col = 1 To 9 Step 2
     For i = 4 To Cells(65000, col).End(xlUp).Row
       x = Cells(i, col).Address
       d1(x) = Cells(i, col)
       d2(x) = Cells(i, col).Offset(, 1)
     Next i
  Next col
  Sheets(2).[E2].Resize(d1.Count) = Application.Transpose(d1.items)
  Sheets(2).[B2].Resize(d2.Count) = Application.Transpose(d2.items)
End Sub

Sub essaiTableau()
  a = [A4:J100]
  nb = Application.CountA([A4:J100])
  ligne = 1
  Dim b(), c(): ReDim b(1 To nb): ReDim c(1 To nb)
  For col = 1 To 9 Step 2
     For i = 4 To Cells(65000, col).End(xlUp).Row
       b(ligne) = a(i - 3, col)
       c(ligne) = a(i - 3, col + 1)
       ligne = ligne + 1
     Next i
  Next col
  Sheets(2).[E2].Resize(nb) = Application.Transpose(b)
  Sheets(2).[B2].Resize(nb) = Application.Transpose(c)
End Sub

JB

 

[gosselien]

Re : Copie avec matrice-array-tableau ?

Merci JB !!!

Je me promenais à des kilomètres de ça 🙂 et surtout plus lentement 🙂
Je ne m'attendais pas au dictionnaire, pas pensé comme ça 🙂 mais avec 2 solutions j'ai encore de la matière à étudier !

Merci