Discussion :

[juju2662]

Bonjour à tous et toutes,

Je me tourne vers vous car je suis complètement désemparée. Je n'avais jamais utilisé VBA auparavant. Je vous explique mon problème:

Voici la forme de ma feuille (les lettres et les chiffres correspondent à des valeurs et non aux libellés des lignes et colonnes):

A B C D ...
1 x x x x
2 x x x x
3 x x x x
4 x x x x
.
.

Je dois réaliser une macro qui permet dans un premier temps de couper-coller (ou copier ce n'est pas bien grave) la ligne A B C D etc. en colonne.
Déjà cette partie là me pose des problèmes car le paste special ne fonctionne pas..
La deuxième partie consisterait à insérer ces valeurs entre les lignes, ce qui donnerait:

A
1 x x x x
B
2 x x x x
etc.

Je suis désolée je n'ai pas vraiment de code à vous fournir vu que rien ne fonctionne.

Je ne cherche pas forcément un code tout beau tout prêt, mais juste quelques aides et explications qui m'aideraient à obtenir quelque chose.
Pour informations mon fichier est assez grand.

Je vous remercie d'avance pour votre aide.

Ju'

[Menhir]

Déjà cette partie là me pose des problèmes car le paste special ne fonctionne pas..

Tu pourrais être plus explicite ? "ne fonctionne pas", c'est assez vague comme explication de problème.
Comment l'as-tu utilisé ? Quelle plage as-tu utilisé pour la copie ? Quelle plage as-tu utilisé pour le PasteSpecial ? As-tu passé à True son quatrième paramètre ?
Quel résultat as-tu obtenu ? Pourquoi ce résultat ne te satisfait-il pas ?

La deuxième partie consisterait à insérer ces valeurs entre les lignes, ce qui donnerait:
A
1 x x x x
B
2 x x x x
etc.

Après le PasteSpecial, tu sélectionnes les lignes une par une (boucle "For to" ou "For Each") et tu insère une ligne dans laquelle tu copy les données, soit par un Copy + PasteSpecial avec transposé, soit en ajoutant une seconde boucle "For to" et en appliquant les valeurs.

Excuse-moi, je n'avais pas bien lu ton problème. C'est ton explication sur les transposés qui m'a fait partir sur une mauvaise piste.
En fait, c'est bien plus simple puisqu'il y a juste à insérer les valeurs de la première ligne entre les lignes suivantes. C'est bien ça ?

On va bien sûr partir du principe qu'il y a autant de lignes 1,2,3 qu'il y a de colonnes A,B,C (sinon, je ne vois pas comment ça pourrait marcher)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For YY=Cells(1,1).End(xlDown).Row to 2 step -1
    Row(YY+1).Insert
    Cells(YY+1,1).Value = Cells(1,YY).Value
End

Ca devrait suffire.

[juju2662]

Bonjour,

Merci beaucoup pour ton aide. Désolée de ma réponse tardive.

En fait je me suis un peu trompée, ce n'est pas tout à fait ça qu'il faut faire. Voici le tableau de départ:

A B C
1 x y z
2 x y z
3 x y z

J'ai complètement oubliée de préciser qu'il faut insérer chacune des colonnes, comme ceci:

A
1 x
2 x
3 x
B
1 y
2 y
3 y
C
1 z
2 z
3 z

Il faut peut-être simplement remplacer la variable YY par une colonne au lieu d'une cellule... N'ayant jamais fait de vba, je suis un peu perdue dans la syntaxe et je n'ai pas vraiment le temps de m'y plonger.

Ah et oui il y a bien autant de lignes que de colonnes.

Je te remercie d'avance.

[Marc-L]

et je n'ai pas vraiment le temps de m'y plonger.

Lire les règles de ce forum !

[Menhir]

N'ayant jamais fait de vba, je suis un peu perdue dans la syntaxe et je n'ai pas vraiment le temps de m'y plonger.

On peut dire que dans ton genre, tu ne manques pas d'air.

Non seulement, tu demandes aux autres de faire ton boulot et tu ne veux surtout pas y consacrer du temps toi-même, mais en plus, ça ne te dérange pas de demander aux autres de perdre du temps pour rien à résoudre un problème que tu as mal énoncé.

Un champion.

Désolé de te décevoir mais je crois qu'il va falloir que tu t'y colles quand même.

[juju2662]

Désolée, je me suis mal exprimée. Juste que je dois rendre ce travail pour très bientôt c'est pour cela qu'il me manque du temps. Je suis en train de voir évidement comment cela fonctionne mais quand on débute tout juste ça prend beaucoup de temps pour tout assimiler.

Tant pis ce n'est pas grave.

Je vous remercie quand même, j'ai déjà un début.

[Menhir]

c'est pour cela qu'il me manque du temps.

Etant donné que tu as mis deux jours à répondre au messages précédent, cette urgence doit être très relative.