Discussion :

[flostralian]

Bonjour a tous,
Je souhaite copier des informations dans lignes et les coller par la suite en colonne dans une autre page?
Je vous explique mon problème.... j'ai des informations dans des lignes structurée de la façon suivante:

1 . Nom1
2 . Adresse1
3 . Tel1
4 . Fax1
5 . Mail1
1 . Nom2
2 . Adresse2
3 . Tel2
4 . Fax2
5 . Mail2

La première colonne correspond a 1,2,3,4,5.
La deuxième: des informations correspondant au nom, adresse.....
C'est une base de donnée de 1000 lignes.

Et je voudrai passer ces informations en colonne dans une autre page.

Est ce possible ?
Merci de votre aide ...
Aplus
Florian

[Jean-Philippe André]

Bonjour,
Edition>Collage Spécial>transposé
le macro recorder fera le reste

[flostralian]

Salut,
Merci de ton aide ...
La fonction "Transposer" ne marche pas ma base de donnée.... en fin je crois pas ....
Je souhaite copier des informations de chaque ligne et les coller par la suite en colonne dans une autre page?
ma feuille est structurée de la façon suivante:

1 . Nom1
2 . Adresse1
3 . Tel1
4 . Fax1
5 . Mail1
1 . Nom2
2 . Adresse2
3 . Tel2
4 . Fax2
5 . Mail2
........etc....

La première colonne correspond a 1,2,3,4,5.
La deuxième: des informations correspondant au nom, adresse.....
C'est une base de donnée de 1000 lignes.


----------------------------------------------
Copier toutes ces informations en 5 colonnes dans une autre feuille.

1 2 3 4 5
.. .. .. .. ..
.. .. .. .. ..
.. .. .. .. ..
.. .. .. .. ..
.. .. .. .. ..
.......


Et je voudrai passer ces informations en colonne dans une autre page.

Mais j'arrive pas a trouver le code vba.....
T'as une idee....?
Merci beaucoup .....
Florian

[ilank]

bonjour,

l'idée c'est de transformer les indices des lignes lues en indice de ligne et colonne à écrire. En divisant chaque ligne par le nombre de colonnes à obtenir, tu obtiens l'indice des nouvelles lignes, le numéro de colonnes correspond au reste de cette division, qui est obtenue par la fonction mod (modulo).

la formule est :

Code :

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

1
2
Indice Ligne à écrire=Y+Int((LigneLue-PremiereLigneLue)/5)
ou Y représente la première ligne d'écriture

Code :

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

1
2
Indice Colonne à écrire=X+((LigneLue-PremierLigneLue) Mod 5)
où X représente la première colonne d'écriture

exemple de code : Pour un tableau en Feuille1 à transformer en feuille2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub SetPivot()
 Dim PrLigSrc As Long 'Première ligne de la source
 Dim DeLigSrc As Long 'Dernière ligne de la source 
 Dim Cellule As Range 'Cellule courante de lecture
 
 Const PrLigDst=2 'Première ligne de la destination =2
 Const PrColDst=2 'Première colonne de la destination "B"
 
 DeLigSrc=Worksheets("Feuille1").Range("A65536").End(xlUp).Row
 PrLigSrc=WorkSheets("Feuille1").Range("A" & DeLigSrc).End(xlUp).Row
 
 For Each Cellule In WorkSheets("Feuille1").Range("B" & PrLigSrc & ":B" & DeLigSrc)
 WorkSheets("Feuille2").Cells(PrLigDst + Int((Cellule.Row - PrLigSrc)/5), PrColDst +((Cellule.Row - PrLigSrc) mod 5))=Cellule
 Next
End sub

[flostralian]

Merci beaucoup c genial ....
Ca marche nickel ...
Merci ...
Vraiment cool de ta part ...
Florian