Tableau double entrée vers fichier en ligne
Bonjour,
Je dispose d'Excel 2003
Je voudrais mettre en lignes des données qui sont présentées dans un tableau double entrée, "un tableau croisé".
Quelqu'un a t'il une idée ?
Soit dans une formule soit en VBA
Je vous joins un fichier pour plus d'explications.
Merci d'avance
Bonjour Bansai64 et merci pour ta réponse rapide.
Ta réponse correspond bien à ma demande.
J'ai modifié certaines valeurs (j'ai 45 colonnes et plus de 500 lignes) et ça fonctionne bien
Cependant, dans mon fichier réel j'ai quelques difficultés avec la ligne :
Sheets("Fichier à plat").Range("A20").Resize(Indice, 5) = Application.Transpose(Tablo)
Elle boque et je ne vois pas pourquoi.
indice 5 = Ok = nombre de colonnes. Mais il y a autre chose...
Peux-tu me donner un coup de main ?
Merci d'avance
Bonjour
PECHEURD'ISLANDE a écrit :Cependant, dans mon fichier réel j'ai quelques difficultés avec la ligne :
Lesquelles ?
Avec les données la macro construit un tableau virtuel
Indice : donne le nombre de ligne
5 c'est le nombre de colonne
PECHEURD'ISLANDE a écrit :indice 5 = Ok = nombre de colonnes. Mais il y a autre chose...
Non juste ce que j'ai dit
Bansai64
Je ne sais d'où vient le problème car dans le fichier de test, tout fonctionne le nombre de colonnes nécessaire et le collage final dans "Fichier à plat" (j'ai copier-coller quelques lignes du fichier réel) mais çà bogue dans mon fichier réel.
La macro s'arrête à deux niveaux :
Tablo(4, Indice) = CDate(Year(Date) & "/" & I - 3 & "/1")
Sheets("Fichier à plat").Range("A20").Resize(Indice, 5) = Application.Transpose(Tablo)
Pour info, j'ai mis à jour les indices et les nombres de colonnes.
Je pense que c'est le passage au fichier réel qui est à l'origine de ces problèmes mais je ne vois pas pourquoi.
J'ai enregistré cette macro dans perso.xls et je créé une feuille "Fichier à plat" avant de lancer "Sub Organise()"
Désolé, je ne peux t'envoyer un fichier plus récent car je ne l'ai pas sous la main.
Cordialement
Bonjour, Bansai64
J'ai toujours le pb sur la date : Tablo(4, Indice) = CDate(Year(Date) & "/" & I - 3 & "/1"). Et je dois l'annuler pour faire "passer" la macro.
Mais, en ce qui concerne
Sheets("Fichier à plat").Range("A20").Resize(Indice, 5) = Application.Transpose(Tablo)
je pense que j'ai avancé sur les raisons du plantage :
Mon fichier réel fait ennviron 600 lignes sur 39 colonnes. Ce nombre de données est sans doute trop important pour la mémoire de mon PC, et la macro plante.
En revanche, tout fonctionne bien à moins de 18 lignes.
Y-a-t'il une solution ?
Cordialement
Super !
Cà marche trés bien et c'est trés rapide.
Je te remercie Banzai64 pour le temps que tu as passé sur mon problème !