VBA: modification d'un prgm.

JC de Lorient

XLDnaute Impliqué

• 12 Juin 2006

• #2

salut,
le fichier s'est perdu ?

fichier zippé <50k sana accents ni caract spéciaux

 

Vote positif 0 Vote négatif

G

gg77

Guest

• 12 Juin 2006

• #3

ca y est!
excuse moi JC

[file name=v1.zip size=46171]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/v1.zip[/file]

 

Pièces jointes

• v1.zip

  45.1 KB · Affichages: 14
• v1.zip

  45.1 KB · Affichages: 14
• v1.zip

  45.1 KB · Affichages: 15

Vote positif 0 Vote négatif

G

gg77

Guest

• 12 Juin 2006

• #4

autre souci

si la somme des lignes ainsi obtenues dans la feuille 1 est > à 500 (environ) ca ne marche plus.
Mais mon plus gros souci c'est pour les colonnes.

Merci

 

Vote positif 0 Vote négatif

G

gg77

Guest

• 12 Juin 2006

• #5

ok j'ai réussi mais je pense que des que j'ai trop de lignes de rempli ca ne marche plus.
Je ne sais pas d'ou ca vient.
Peut etre dans la déclaration des variables.

j'ai modifier:

Tabtemp = .Range('A9:AD' & Derlgn).Value 'ici on rempli un tableau temporaire des valeurs _

ReDim Preserve TabRecap(34, x) 'on dimensionne un tableau

Si quelqu'un à une idée.

Merci

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 12 Juin 2006

• #6

bonjour gg, JC


pour ta deuxieme modification, utilise plutot :

ReDim Preserve TabRecap(UBound(Tabtemp, 2), x)

un peu plus dynamique si un jour tu ajoutes des colonnes.

pour ton nouveau souci, combien de lignes à tu a traiter.

Il me semble que le transpose génere des problèmes au delà de 5000 lignes.


essayes de passer par une boucle pour tester.

salut

 

Vote positif 0 Vote négatif

G

gg77

Guest

• 12 Juin 2006

• #7

je peux avoir plus de 200 lignes par feuilles.

j'ai mis pour essayer 200 ou 300 lignes par feuilles et la ca coince.

je dois soit me limiter en nombre de colonnes soit en lignes.

Sinon pour la boucle je ne sais pas du tout comment on fait.

Tu peux m'orienter?

Merci Hervé

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 12 Juin 2006

• #8

re


vite fait, mais alors tres vite fait :


remplace la fin de ton code apres Next Ws_Source par ceci :

With Ws_Base 'avec la feuille 'Feuil1'
Derlgn = IIf(.Range('A65536').End(xlUp).Row < 9, 9, .Range('A65536').End(xlUp).Row) 'on recherche la deniere ligne non vide _
si inférieure a 9 =9
'ici on va transposer le tableau monté a l'envers les lignes vont devenir les colonnes _

ReDim tablo(UBound(TabRecap, 2), UBound(TabRecap, 1))

For L = 0 To UBound(TabRecap, 2)
        For x = 0 To UBound(TabRecap, 1)
                tablo(L, x) = TabRecap(x, L)
        Next x
Next L

.Range('A' & Derlgn).Resize(UBound(tablo, 1) + 1, UBound(tablo, 2)) = tablo
End With

Cliquez pour agrandir...

et ajoute dans les déclarations de variables : dim tablo()

salut

 

Vote positif 0 Vote négatif

G

gg77

Guest

• 12 Juin 2006

• #9

merci hervé

je vient de remplacer mais ca ne marche pas.

je suis en train d'essayer de faire une boucle.
C'est peut-etre plus simple.

Encore merci et si tu as d'autres idées n'hésite pas.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 12 Juin 2006

• #10

re

bizarre

je viens de tester ton code sur 23000 lignes et ne rencontre pas de souci.

merci de nous précisez l'erreur engendré, et la ligne du code en déboggage.

salut

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 12 Juin 2006

• #11

Bonjour

pour les limites de Transpose voir ce fil

Lien supprimé

 

Vote positif 0 Vote négatif

G

gg77

Guest

• 12 Juin 2006

• #12

Excuse moi hervé

ca marche très bien avec ta modification.
C'est vraimenr super!

Ca faisait 2 jours que je galèrais!

MERCI HERVE!

pascal 76 ton lien me resservira. Merci aussi

 

Vote positif 0 Vote négatif