copier coller transpose

B

bloublou

XLDnaute Occasionnel

• 9 Avril 2013

• #2

Re : copier coller transpose

Hello,

Personne pour m'aider ?

🙁 🙁 🙁

BlouBlou

 

Vote positif 0 Vote négatif

G

gmb

XLDnaute Junior

• 9 Avril 2013

• #3

Re : copier coller transpose

Bonjour
cela te convient-il ?

 

Pièces jointes

• maison - Copie.xlsm

  25.8 KB · Affichages: 73

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 10 Avril 2013

• #4

Re : copier coller transpose

Bonjou gmb,

Ah ouiii merci 🙂

C'est super bien, merci beaucoup de ton aide

BlouBlou

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 10 Avril 2013

• #5

Re : copier coller transpose

Bonjour à tous,

Une solution parmi d'autres...(avec des tableaux car c'est plus rapide)

J'ai mis le résultat dans une autre feuille mais on peut le mettre ailleurs...

Les cellules vertes sont nommées.

Cordialement

 

Pièces jointes

• Maison1.xlsm

  35.3 KB · Affichages: 63

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 10 Avril 2013

• #6

Re : copier coller transpose

J'ai oublié : tu peux ajouter des colonnes (produits) ou des lignes (groupe de 1+4 avec un nom de lieu, comme dans l'existant) , cela fonctionne quand même...

Cordialement

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 10 Avril 2013

• #7

Re : copier coller transpose

Bonjour Mécano41,

Merci beaucoup pour ton travail 🙂 effectivement il semble plus dynamique que la solution de gmb mais qui m'a convenu parfaitement 🙂 🙂


J'avais néanmoins 2 questions :

Est-ce que l'on peut changer la nomenclature du 1 2 3 4 par d'autres sigles ? ex : 12 24 36 48 ? cela ne pose pas pb ?

Egalement les montants ne se trouvent pas arrondis dans la cellule seulement dans l'affichage.

Est-ce que tu as une petite astuce ?

Merci en tout cas pour toute ta solution

BlouBlou

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 10 Avril 2013

• #8

Re : copier coller transpose

Voici le fichier modifié.

Tu peux mettre ce que tu veux en tête des 4 lignes (je ne prends que les 4 premières comme modèle)

Les valeurs dans les cellules résultats sont maintenant arrondies à 2 décimales par le code.

Cordialement

 

Pièces jointes

• Maison2.xlsm

  36.5 KB · Affichages: 59

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 10 Avril 2013

• #9

Re : copier coller transpose

Re-bonjour Mécano41,

Ca marche nickel 🙂 🙂 🙂 Trop fort

BlouBlou

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 10 Avril 2013

• #10

Re : copier coller transpose

Mecano41,

Je revenais vers toi, quand je transpose ta macro à mon fichier, cela ne marche pas 🙁
ce qui change c'est que j'ai plusieurs feuilles dans mon classeur et j'ai 30 colonnes au lieu de 17 colonnes.

Il plante dès le début :

With Worksheets(Feuil19.Name)
.Range(.Range("Annee").Offset(1, 0), .Range("Annee").End(xlDown).Offset(0, 3)).ClearContents

J'ai changé Feuil2 en Feuil19 pour correspondre à mon classeur mais même avant ca il plantait quand même.

As-tu une idée ?

Merci

BlouBlu

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 10 Avril 2013

• #11

Re : copier coller transpose

Attention! dans :

"With Worksheets(Feuil2.Name)", Feuil2 est le nom de code de la feuille c'est à dire le nom qui n'est pas inscrit entre parenthèses lorsque tu es dans la colonne de gauche de l'environnement VBA. Dans ton fichier, as-tu bien pris ce nom? (ce n'est pas forcément Feuil19...)

Edit : pour les 30 colonnes, normalement, il n'y a rien à modifier...

Cordialement

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 10 Avril 2013

• #12

Re : copier coller transpose

Oui c'est bien le nom Feuil1 :
Mécano41,

c'est la ligne qui plante :

.Range(.Range("Annee").Offset(1, 0), .Range("Annee").End(xlDown).Offset(0, 3)).ClearContents


il me dit erreur d'éxecution 1004
Erreur définie par l'application ou par l'objet

Je ne vois pas ce que je fais de faux 🙁

BlouBlou

mécano41 à dit:

Attention! dans :

"With Worksheets(Feuil2.Name)", Feuil2 est le nom de code de la feuille c'est à dire le nom qui n'est pas inscrit entre parenthèses lorsque tu es dans la colonne de gauche de l'environnement VBA. Dans ton fichier, as-tu bien pris ce nom? (ce n'est pas forcément Feuil19...)

Edit : pour les 30 colonnes, normalement, il n'y a rien à modifier...

Cordialement

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 10 Avril 2013

• #13

Re : copier coller transpose

As-tu bien nommé les 4 cellules de titre de la feuille réceptrice comme dans mon fichier (cellules vertes)? (je parle du nom - toujours sans accent - pas du titre lui-même...)

Cordialement

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 11 Avril 2013

• #14

Re : copier coller transpose

Bonjour,

Voici une version améliorée qui devrait pouvoir être plus facilement adaptée. Pour l'appliquer à ton fichier, il suffit de :

- créer un bouton dans la feuille de la base d'origine (ici Feuil1)
- copier le code du bouton (celui qui est ici dans Feuil1 du VBA)
- copier le code du module (ici Module1)
- dans le Sub Initialisation du module, remplacer les noms actuels Feuil1 et Feuil2 par les tiens (nota : tu peux éventuellement les personnaliser à l'aide de la fenêtre Propriétés)
- nommer Debut (sans accent) la cellule verte de la base d'origine (c'est le premier montant)
- nommer Annee (sans accent), Produit, Montant et Lieu les cellules vertes en en-têtes de colonnes de la nouvelle base (colonnes qui ne sont pas forcément A, B, C et D)

Le code s'adapte seul au nombre lignes et de de colonnes dans la mesure où :

- il y a toujours : une première colonne pour les années, X colonnes de produits et une dernière colonne pour les lieux
- les lignes sont toujours par groupes de 5 : 1 ligne de noms de produits + 4 lignes de montants

J'espère ne rien avoir oublié...

EDIT 7:37 attention j'ai fait une petite modif dans le fichier (code de la Feuil1)

Cordialement

 

Pièces jointes

• Maison3.xlsm

  33.2 KB · Affichages: 59

Dernière édition: 11 Avril 2013

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 11 Avril 2013

• #15

Re : copier coller transpose

Salut Mecano41,

J'espère que tu as pas passé la nuit à coder pour moi 🙂

Ca marche nickel, merci pour ton travail c'est super bien 🙂

Trop Fort :]

Bonne journée

BlouBlou

 

Vote positif 0 Vote négatif