XL 2010 Extraire 3 colonnes d'un champ au-delà de 65536 lignes

patricktoulon à dit:

re
woawh!!!! t es pas en forme
allez relis attentivement le post 9 essaie au cas ou

Cliquez pour agrandir...

patricktoulon à dit:

re
d'abords c'est pas index mais evaluate qui est limité

et oui j'ai bien lu ton post 15
si tu vais essayé tu aurais vu que le résultat n'est pas dans les cellules et que tbl contient bien tes 3 colonnes
mais bon tu es comme @laurent950 tu comprends la moitié et eurêka tu pense avoir tout compris c'est exténuant

Cliquez pour agrandir...

Non, j'ai testé et il y a bien une copie qui s'effectue et ensuite on récupère dans le tableau. Ce n'est pas ce que je souhaite.

Cliquez pour agrandir...

patricktoulon à dit:

re
b = Application.Index(Rng, tmp, Array(2, 3, 16))

déjà ici en gras ça doit être un tableau pas un range donc rng.value


et bien si tu a ou trouve une autre solution autre que les deux que je t'ai présenté sans boucle allant plus loin que 65536 lignes
fait nous le savoir

Cliquez pour agrandir...

Sub test1()
   Dim i As Long, Tb1(), Tb2()

   With Feuil1
      Tb1 = .Range("A2:P" & .Range("A" & Rows.Count).End(xlUp).Row).Value
      ReDim Tb2(1 To UBound(Tb1), 1 To 3)
      For i = 1 To UBound(Tb1)
         Tb2(i, 1) = Tb1(i, 2)
         Tb2(i, 2) = Tb1(i, 3)
         Tb2(i, 3) = Tb1(i, 16)
      Next i
   End With
End Sub

ChTi160 à dit:

Bonjour cp4
Bonjour le Fil(Patrick) ,le Forum
Ce que pourrait faire Patrick par exemple c'est te demander pourquoi "dl"dans cette partie du code.
Juste pour faire avancer le schimilimblick lol

VB:

dl = .Range("A" & Rows.Count).End(xlUp).Row
      Tb1 = .Range("A2:P" & .Range("A" & Rows.Count).End(xlUp).Row).Value

Bonne journée
Jean marie

Cliquez pour agrandir...

1. 2 boucle imbriquée
2. le copy (clipboard)
3. la recup de l'union dans une plage temporaire

et si par mon expérience je peut t’empêcher de passer des étapes inutiles comme j'ai pu le faire dans le passé ben pour moi c'est ça transmettre avec bienveillance

Cliquez pour agrandir...

dl = .Range("A" & Rows.Count).End(xlUp).Row
      Tb1 = .Range("A2:P" &  dl).Value

      Tb1 = .Range("A2:P" & .Range("A" & Rows.Count).End(xlUp).Row).Value

patricktoulon à dit:

bonjour ChTi160
je pige pas ton intervention là
le problème n'est pas de déterminer une limite de ligne
la demande est de récupérer 3 colonne sur 16
et par fonction vba ou evaluate sans boucle si on dépasse le rows.count de XL2003 on est mort
les seules solution alors sont

1. 2 boucle imbriquée
2. le copy (clipboard)
3. la recup de l'union dans une plage temporaire

[edit]
ca y est je percute
oui bon ben il est parti a coder séquentiellement puis il a compacté c'est pas bien grave juste un petit calcul pour rien

je me demande si je pourrais faire quelque chose avec Ado

la je suis sur un exercice de chiffrement,j'essaierais dans la matinée

Cliquez pour agrandir...

Sub ExtraitCol136Champ()
 Set Rng = [A2:F65537]
 Dim tmp(): ReDim tmp(1 To Rng.Rows.Count, 1 To 1): For i = 1 To Rng.Rows.Count: tmp(i, 1) = i: Next
 b = Application.Index(Rng, tmp, Array(1, 3, 6))'plante ici'
 [M2].Resize(UBound(b), UBound(b, 2)) = b
End Sub
Sub ExtraitCol136Champ2()
 Set Rng = [A2:F65536]
 b = Application.Index(Rng, Evaluate("Row(1:" & Rng.Rows.Count & ")"), Array(1, 3, 6))'ne plante pas car L=65536'
 [M2].Resize(UBound(b), UBound(b, 2)) = b
End Sub
Sub ExtraitCol136Tableau()
 a = [A2:F65537].Value
 Dim tmp(): ReDim tmp(1 To UBound(a), 1 To 1): For i = 1 To UBound(a): tmp(i, 1) = i: Next
 b = Application.Index(a, tmp, Array(1, 3, 6)) 'plante ici'
 [M2].Resize(UBound(b), UBound(b, 2)) = b
End Sub
Sub ExtraitCol136Tableau2()
 a = [A2:F65536]
 b = Application.Index(a, Evaluate("Row(1:" & UBound(a) & ")"), Array(1, 3, 6))'ne plante pas car L=65536'
 [M2].Resize(UBound(b), UBound(b, 2)) = b
End Sub