VBA: modification d'un prgm.

[gg77]

Bonjour le forum

Encore merci au forum qui m'a permis de progresser en VBA même si le chemin reste encore long.

J'ai un petit souci au sujet d'une macro que je vous joints.

Dans mon classeur j'ai plusieurs feuilles et toutes les données de mes feuilles se retouve en feuille 1 lorsque j'appuie sur le bouton de commande.

Cependant je voudrais qu'il n'y ait pas que les 5 premières colonnes qui se transferent mais de la colonne A jusqu'à la colonne AD.

Et là je n'arrive pas à faire marcher la macro.
J'ai l'impression que ca ne marche plus si je lui demande de transferer trop de colonnes.

Merci pour votre aide.
[file] 🙂

 

[JC de Lorient]

salut,
le fichier s'est perdu ?

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

 

[gg77]

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]

 

[gg77]

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

 

[gg77]

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

 

[Hervé]

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

 

[gg77]

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é

 

[Hervé]

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

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

salut

 

[gg77]

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.

 

[Hervé]

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

 

[PascalXLD]

Bonjour

pour les limites de Transpose voir ce fil

Lien supprimé

 

[gg77]

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