Transposer DONNE vers RESULTAT

MAZETTE

XLDnaute Occasionnel

• 25 Juin 2008

• #2

Re : Transposer DONNE vers RESULTAT

Bonjour le Forum,

Mon projet est sans doute un peu compliqué alors j'ai commencé à écrire un bout de code afin de faliciter la suite.

Je me suis dit qu'il était sans doute plus simple de:

- copier les données vers la Feuil1
- supprimer les lignes vides dasn la Feuil1 pour avoir une feuille plus clair
- de comparer sur la colonne A les noms et de copier la plage en fonction des noms vers la feuille "RESULTAT".

Pour la 1er et la 2nd étape, la macro tourne bien, par contre là où je bloque c'est sur l'écriture de la 3eme étape .

Je vous laisse regarder le code sur le fichier en exemple.

Merci à vous

 

Pièces jointes

• ESSAI.zip

  15.4 KB · Affichages: 23
• ESSAI.zip

  15.4 KB · Affichages: 21
• ESSAI.zip

  15.4 KB · Affichages: 18

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juin 2008

• #3

Re : Transposer DONNE vers RESULTAT

Bonjour Mazette,
Avec ce nouveau fichier, on comprend maintenant ce que vous voulez faire.
On ne voit pas trop ce qu'apporte la nouvelle feuille.
L'écriture d'une macro pour transposer les tableaux (de vertical à horizontal, on ne voit pas trop l'intérêt...) est laborieuse pour ne pas dire plus. Mais peut-être qu'un VBAiste sera inspiré.
A+

 

Dernière édition: 25 Juin 2008

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 25 Juin 2008

• #4

Re : Transposer DONNE vers RESULTAT

Salut Job

L'intéret de cette nouvelle feuille est de pouvoir ensuite nommer des champs et ainsi traiter les données ...

Si un VBAiste est interessé???

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juin 2008

• #5

Re : Transposer DONNE vers RESULTAT

Finalement l'inspiration est arrivée : j'ai pensé à créer 2 collections ce qui donne une macro assez simple. Vous trouverez ci-joint le fichier avec la macro dans le module. Vous pouvez la lancer par Ctrl+A.
A+

 

Pièces jointes

• ESSAI.xls

  39.5 KB · Affichages: 61
• ESSAI.xls

  39.5 KB · Affichages: 55
• ESSAI.xls

  39.5 KB · Affichages: 63

Dernière édition: 26 Juin 2008

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 25 Juin 2008

• #6

Re : Transposer DONNE vers RESULTAT

Re,

L'inspiration est presque bonne car le soucis est que les noms n'apparaissent pas sur la feuille Résultat

@+

 

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 25 Juin 2008

• #7

Re : Transposer DONNE vers RESULTAT

Re job75

Autant pour moi, j'ai adapter la macro et tout est nickel

Toutefois pour ne pas ignare et assouvir ma soif de connaissance, pourrais-tu s'il te plait m'expliquer en détail le code...

Declaration de variable ...collection etc et ainsi de suite

Merci encore à toi et bonne soirée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Juin 2008

• #8

Re : Transposer DONNE vers RESULTAT

Une collection, c'est un groupe d'objets comme Windows, Workbooks, Sheets, un élément étant donné par son indice : sheets(1), sheets(2)...
Pour créer une collection, il faut d'abord la déclarer (As New Collection). Puis, et c'est là tout l'intérêt, on ajoute des éléments par la méthode Add. La taille de la collection est donc extensible. Tous les éléments doivent être de même nature.
Pour le reste regardez l'Aide VBA et si des points demeurent obscurs, vous pouvez me contacter par message privé.
Bonne nuit.

 

Vote positif 0 Vote négatif