Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel TRANSPOSE

TRANSPOSE

12 réponses
Avatar
laplesse
Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville) pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JB
Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville) po ur
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Avatar
laplesse
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes
verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville) pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Avatar
JB
Bonjour,

http://cjoint.com/?brjZecgLbd

JB
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes
verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville) pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com



Avatar
garnote
Bonjour,

Et pourquoi pas une tite macro ?

Un exemple :
Sub Transposer()
Set ici = Range("A1:A250")
ici.Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, transpose:=True
Application.CutCopyMode = False
ici.Clear 'Pas obligé
End Sub

Serge

"laplesse" a écrit dans le message de news: 45addfd1$0$27396$
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:
Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville) pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Avatar
laplesse
Merci

"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?brjZecgLbd

JB
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes
verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville)
pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:57:57
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:59:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Avatar
laplesse
Non cela ne peut pas marcher ce que je veux c'est passer d'un tableau
a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune
a un tableau
a1 nom b1 prénom c1 adresse d1 commune
a2 nom b2 prénom c2 adresse d2 commune


"garnote" a écrit dans le message de news:

Bonjour,

Et pourquoi pas une tite macro ?

Un exemple :
Sub Transposer()
Set ici = Range("A1:A250")
ici.Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, transpose:=True
Application.CutCopyMode = False
ici.Clear 'Pas obligé
End Sub

Serge

"laplesse" a écrit dans le message de news:
45addfd1$0$27396$
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes
verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville)
pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:13:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:21:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com



Avatar
Trirème
Bonjour tous,
Sur ce genre de réorganisation j'utilise Word.
En sélectionnant toutes les lignes tu lui demandes de transformer le texte en tableau
(menu tableau). Il faut lui préciser le nb de colonnes du futur tableau (ici 4) et il
répartit le tout en 4 colonnes en autant de lignes que nécessaire.
Puis rapatriement sur Excel.

Cordialement,
Trirème

Non cela ne peut pas marcher ce que je veux c'est passer d'un tableau
a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune
a un tableau
a1 nom b1 prénom c1 adresse d1 commune
a2 nom b2 prénom c2 adresse d2 commune


"garnote" a écrit dans le message de news:

Bonjour,

Et pourquoi pas une tite macro ?

Un exemple :
Sub Transposer()
Set ici = Range("A1:A250")
ici.Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, transpose:=True
Application.CutCopyMode = False
ici.Clear 'Pas obligé
End Sub

Serge

"laplesse" a écrit dans le message de news:
45addfd1$0$27396$
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes
verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville)
pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:13:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:21:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








Avatar
garnote
Alors, quelque chose du genre :
Je suppose ton tableau dans les deux premières colonnes.

Sub Transposer()
Application.ScreenUpdating = False
Set ici = Range("tableau")
NL = ici.Rows.Count
For i = 1 To NL Step 4
j = j + 1
Range(ici(i, 1), ici(i + 3, 2)).Copy
Cells(2 * j - 1, 6).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
Application.CutCopyMode = False
ici(1, 1).Select
End Sub

Serge


"laplesse" a écrit dans le message de news: 45adea82$0$5102$
Non cela ne peut pas marcher ce que je veux c'est passer d'un tableau
a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune
a un tableau
a1 nom b1 prénom c1 adresse d1 commune
a2 nom b2 prénom c2 adresse d2 commune


"garnote" a écrit dans le message de news:
Bonjour,

Et pourquoi pas une tite macro ?

Un exemple :
Sub Transposer()
Set ici = Range("A1:A250")
ici.Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, transpose:=True
Application.CutCopyMode = False
ici.Clear 'Pas obligé
End Sub

Serge

"laplesse" a écrit dans le message de news: 45addfd1$0$27396$
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:
Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville) pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:13:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:21:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








Avatar
garnote
ReBonjour,

Inutile de répéter les en-têtes; donc mieux ainsi :
Je suppose tes valeurs dans la colonne B.
J'entre Nom Prénom Adresse Commune
dans F1:I1 et j'appelle :

Sub Transposer()
Application.ScreenUpdating = False
Set ici = Range("valeurs")
NL = ici.Rows.Count
For i = 1 To NL Step 4
j = j + 1
Range(ici(i, 1), ici(i + 3, 2)).Copy
Cells(j + 1, 6).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
Application.CutCopyMode = False
ici(1, 1).Select
End Sub

Serge




"garnote" a écrit dans le message de news:
Alors, quelque chose du genre :
Je suppose ton tableau dans les deux premières colonnes.

Sub Transposer()
Application.ScreenUpdating = False
Set ici = Range("tableau")
NL = ici.Rows.Count
For i = 1 To NL Step 4
j = j + 1
Range(ici(i, 1), ici(i + 3, 2)).Copy
Cells(2 * j - 1, 6).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
Application.CutCopyMode = False
ici(1, 1).Select
End Sub

Serge


"laplesse" a écrit dans le message de news: 45adea82$0$5102$
Non cela ne peut pas marcher ce que je veux c'est passer d'un tableau
a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune
a un tableau
a1 nom b1 prénom c1 adresse d1 commune
a2 nom b2 prénom c2 adresse d2 commune


"garnote" a écrit dans le message de news:
Bonjour,

Et pourquoi pas une tite macro ?

Un exemple :
Sub Transposer()
Set ici = Range("A1:A250")
ici.Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, transpose:=True
Application.CutCopyMode = False
ici.Clear 'Pas obligé
End Sub

Serge

"laplesse" a écrit dans le message de news: 45addfd1$0$27396$
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:
Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville) pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:13:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:21:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com












Avatar
laplesse
Merci
Parfait c'est exactement cela
Pascal
"garnote" a écrit dans le message de news:

Alors, quelque chose du genre :
Je suppose ton tableau dans les deux premières colonnes.

Sub Transposer()
Application.ScreenUpdating = False
Set ici = Range("tableau")
NL = ici.Rows.Count
For i = 1 To NL Step 4
j = j + 1
Range(ici(i, 1), ici(i + 3, 2)).Copy
Cells(2 * j - 1, 6).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
Application.CutCopyMode = False
ici(1, 1).Select
End Sub

Serge


"laplesse" a écrit dans le message de news:
45adea82$0$5102$
Non cela ne peut pas marcher ce que je veux c'est passer d'un tableau
a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune
a un tableau
a1 nom b1 prénom c1 adresse d1 commune
a2 nom b2 prénom c2 adresse d2 commune


"garnote" a écrit dans le message de
news:
Bonjour,

Et pourquoi pas une tite macro ?

Un exemple :
Sub Transposer()
Set ici = Range("A1:A250")
ici.Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, transpose:=True
Application.CutCopyMode = False
ici.Clear 'Pas obligé
End Sub

Serge

"laplesse" a écrit dans le message de news:
45addfd1$0$27396$
oK merci est c'est toujours en matricielle?
Maintenant existe t'il une manip sur un tableau dont les données toutes
verticales sont sur 250 lignes
Par exemple

a1Nom
a2Prenom
a3Adresse
a4Commune
a5Nom
a6prénom
a7Adresse
a8Commune

Etc etc
"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?brjs3KFBgb

Si le champ a 4 cellule,Il faut :

-sélectionner 4 cellules
=Transpose(champ)
Valider avec Maj+Ctrl+entrée



JB


Bonjour,
J'ai un tableau avec un vingtaine de données en ligne que je voudrais
tranposer en Col (Titre, nom, prénom, adresse, code postal et ville)
pour
éviter les copier/coller.
J'ai tenté avec la fonction Transpose mais cela ne fonctionne pas.
Quelqu'un a t'il une solution?
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:10:15
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:32:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 09:35:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:13:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 10:21:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 13:40:32
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-2, 16/01/2007
Analyse le : 17/01/2007 13:44:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





1 2