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

[cp4]

Bonjour,

En fouinant sur le site de Boisgontier, j'ai trouvé des codes permettant de récupérer des colonnes choisies d'une plage.
Dans mon cas colonnes: 2, 3 et 16.
Cependant, ces codes plantent si la plage contient plus de 65536 lignes.
Comment contourner cette limitation à 65536 lignes.
Avec mes remerciements anticipés.

nb: je répondrai ce soir car très occupé ces derniers jours.

 

[Staple1600]

Bonjour

Petite précision avant de télécharger ou installer.

Gardez à l’esprit que la mise à jour du Microsoft Download Center s’applique à Microsoft Installer (.msi)-en fonction de l’édition d’Office 2013. Il ne s’applique pas aux éditions Office 2013-clic, tel que Microsoft Office 365 Home.

=>patricktoulon
Tu n'as donc pas une version Click-To-Run
(Quand j'ai acheté mon Office 2013 Famille, ils ne vendaient que des "clés" en supermarché (Leclerc Fnac ou) et ensuite il fallait télécharger l'install
(A l'époque pas vu de version CD/DVD d'Office 2013 en magasin)

 

[patricktoulon]

moi j'ai téléchargé l'iso avec le Windows-ISO-Downloader.exe (outils officiel pour les pros pour téléchargement d'iso MS)

et j'ai acheté la licence sur version-complete.fr 59.90€

quand je pense que j'avais payé a l’époque 219€ a planète saturne mon coffret 2007

[edit]
maintenant que je sais que de 2013 à 2019 il y a un correctif pour le LAA ,JE vais peut être m’intéresser au version supérieures

je suis content de cette trouvaille ça m'a quand même miné de passer par ado pour mes grosse bases

 

[patricktoulon]

tiens ChTi160
j'en reviens pas !!!!même cette version néandertalienne qui est lourde; fuse de feu de dieu

Public Property Get presse_papier_Mac_window()
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: presse_papier_Mac_window = .GetText(1): End With
End Function

Sub test()
    Range("b1:c" & Rows.Count).Copy: x1 = Split(presse_papier_Mac_window, vbCrLf)
    Range("p1:p" & Rows.Count).Copy: x2 = Split(presse_papier_Mac_window, vbCrLf)
    ReDim tbl(LBound(x1) To UBound(x1), 3)
    For i = LBound(tbl) To UBound(tbl) - 1
        tbl(i, 0) = Split(x1(i), vbTab)(0)
        tbl(i, 1) = Split(x1(i), vbTab)(1)
        tbl(i, 2) = Split(x2(i), vbTab)(0)
    Next
    [r1].Resize(UBound(x1), 3) = tbl
End Sub
Sub rempli()
    ReDim tbl(1 To Int(70000 + (Rnd * 9000)), 1 To 16)
    For i = 1 To UBound(tbl)
        tbl(i, 1) = "toto" & Int(1 + (Rnd * 10000))
        tbl(i, 2) = "tutu" & Int(1 + (Rnd * 10000))
        tbl(i, 15) = Int(1 + (Rnd * 10000))
    Next
    [B1].Resize(UBound(tbl), 15) = tbl
End Sub

 

[ChTi160]

Re
Merci Patrick
Tu penseras à moi lorsque tu auras fini ton travail sur Ado lol
Bonne fin de journée
Jean marie

 

[patricktoulon]

@ChTi160 oui
des que je fait un code solide si ça marche sur fichier ouvert je te donne y a pas de soucis
je teste toutes mes astuces evaluate là
pour l'instant pour la plus part je reviens a la vitesse 2007 quasiment
c'est long je compare sur 2 pc l'un 2013 l'autre 2007 mais c'est un vieux portable un peu déglingué
j'y vais avec précautions

 

[ChTi160]

Te
Ok merci
Jean marie

 

[patricktoulon]

avec ces deux là c'est toi qui gagne

Sub test2() 'patrick
Dim tabl, plage As Range, tim, colonnes
tim = Timer
Set plage = [A1:p1].Resize(Cells(Rows.Count, 2).End(xlUp).Row, 16)
colonnes = Array(2, 3, 16) 'il est possible de les mettres dans l'ordre que l'on veut
tabl = Application.Index(plage.Value, Evaluate("ROW(" & plage.EntireRow.Address & ")"), colonnes) 'mettre les colonnes que l'on veut dans l'ordre voulues
[r1].Resize(UBound(tabl), 3) = tabl
 MsgBox "pour patricktoulon : " & Format(Timer - tim, "0.000\ sec.")
 End Sub
Sub ExtraitCol1316Champ() 'ChT160
 Dim tim
 tim = Timer
 Set Rng = [A1:p1].Resize(Cells(Rows.Count, 2).End(xlUp).Row, 16)
 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(2, 3, 16)) 'plante ici'
 [r1].Resize(UBound(b), UBound(b, 2)) = b
 MsgBox "pour ChTi160 : " & Format(Timer - tim, "0.000\ sec.")
End Sub

le redim temp est donc plus rapide tester 20 fois

 

[patricktoulon]

1 ere conclusion
evaluate un poil moins rapide avec le correctif LAA mais je vais plus loin que 65535 je pense que c'est normal finalement
je vais chercher pour 2007 je crois que cp4 tourne avec

 

[cp4]

Bonsoir l'équipe,

J'ai bien rempli ma journée mais dans la poussière.
Je constate que la vôtre aussi a été bien remplie. Je vous remercie tous autant que vous êtes.
Mais spécialement @ChTi160 pour avoir relancé Patrick.
Et @patricktoulon pour son entêtement et sa persévérance. Moi content de toi

Mais pour moi pas de bol, car j'ai Excel 2010 32 bits sur Win7 64 bits.
Et je ne suis pas sûr de trouver le correctif qui convient à ma version.

En tout cas bravo!

 

[ChTi160]

Re
Bonsoir cp4
Attend Attend !!!!! Lol
Patrick n'a peut être pas dit son dernier mot lol

Et je ne suis pas sûr de trouver le correctif qui convient à ma version.

Jean marie

 

[cp4]

Re
Bonsoir cp4
Attend Attend !!!!! Lol
Patrick n'a peut être pas dit son dernier mot lol

Jean marie

Merci Jean Marie de me donner espoir.
Pour le moment je me contente de ce code

Sub ExtraireColonnes()
t = Timer
   Dim Tsource, Col, Tb(), dl As Long, i As Long, j As Integer
   dl = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
   Tsource = Feuil1.[A2].Resize(dl, 16)
   Col = Array(2, 3, 16) 'colonnes à extraire

   ReDim Tb(LBound(Tsource) To UBound(Tsource), 1 To UBound(Col) + 1)
   For i = LBound(Tsource, 1) To UBound(Tsource, 1)
      For j = LBound(Col) To UBound(Col)
         Tb(i, j + 1) = Tsource(i, Col(j))
      Next j
   Next i
Debug.Print Timer - t
'   Feuil2.[A1].CurrentRegion.ClearContents
'   Feuil2.[A1].Resize(UBound(Tb), UBound(Tb, 2)) = Tb
End Sub

Je suis crevé, j'ai juste suivi le lien de Patrick. J'ai fait un effort de lire jusqu'au bout et je crois que ça ne concerne que les versions supérieures à 2013.
On ne sait jamais ce que va nous dénicher Patrick.
Bonne soirée.

 

[patricktoulon]

hoh!! les gars vous avez pas le meme moteur de recherche que moi ou quoi ??

https://support.microsoft.com/fr-fr/help/3115162/june-7-2016-update-for-excel-2013-kb3115162

donc mon cher cp4 si tu a le service pack 2 sur ton 2010 ben y a plus qu'a
t'a intérêt a me l'installer sinon tu va m'entre chanter toi !!!!
et si t'a pas le sp2 ben c'est ici et depeche toi il vont certainement virer cette page vu que 2010 n'est plus suivi que tu ai au moins a jour ta version d'office

Download Service Pack 2 pour Microsoft Office 2010 (KB2687455) Édition 32 bits from Official Microsoft Download Center

Service Pack 2 (SP2) pour Microsoft Office 2010 Édition 32 bits contient de nouvelles mises à jour améliorant la sécurité, les performances et la stabilité. De plus, le SP cumule toutes les mises à jour précédentes.

www.microsoft.com

 

[soan]

Bonsoir Patrick, cp4, Jean-marie,

@patricktoulon : merci pour toutes les infos de ton post #44.

@cp4 : quand j'ai vu « [Clôturé] » dans le titre du sujet, j'étais sûr que c'était la modération
qui l'avait mis ! (et j'me suis demandé pour quelle raison) ; j'ai été vraiment très surpris de
voir qu'il y avait de nouveaux posts malgré la Clôture, mais avec toutes les infos de Patrick,
j'ai compris pourquoi, et ça explique que moi aussi, j'ai pu valider mon post #43 ; si c'est
vraiment toi qui a mis « [Clôturé] » dans le titre du sujet, pourquoi donc ? tu ne veux plus
recevoir de posts dans cette discussion ? ou du moins, tu pensais que ça allait bloquer les
futurs posts ? ce que j'ai écris dans mon post #43 est uniquement par rapport au système
de gestion des posts, ce n'est pas par rapport à toi, et j'aurais écris la même chose avec
n'importe quel auteur d'une discussion où j'aurais vu dans le titre « [Clôturé] ».

@ChTi160 : tiens, c'est bizarre : pour une fois, j'ai rien de spécial à te dire, lolllllll !
bon, ben bonne soirée quand même, et profite bien de ta retraite chanceuse ; oh,
ça m'y fait penser : Luke le chançard, on l'appelle Lucky Luke ; alors peut-être
Lucky ChTi ? (mais si tu m'dis qu'tu tires plus vite que ton ombre, j'te croirais pas ! )

soan

 

[Staple1600]

Bonsoir le fil

Bonsoir aussi à toi soan....

[aparté]
Pour les versions C2R d'Office 2013 ne sont pas concernées par cette mise à jour !!! (cf message#47)
Alors qu'une version antérieure (2010) peut être mise à jour !
[/aparté]

 

[soan]

oh, désolé Staple, je t'ai oublié ! mea culpa !

soan