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

2 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
MichDenis
Il y a aussi ceci en adaptant les plages de cellules et le nom de la feuille...

'-------------------------
Sub test()
Dim T As Variant
With Worksheets("Feuil1")
With Range("A1:B27")
T = .Value
.Clear
End With
.Range("A1").Resize(UBound(T, 2), UBound(T, 1)) = _
Application.Transpose(T)
End With
End Sub
'-------------------------



"laplesse" a écrit dans le message de news:
45add9e6$0$27399$
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
Avatar
laplesse
Merci,

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

Il y a aussi ceci en adaptant les plages de cellules et le nom de la
feuille...

'-------------------------
Sub test()
Dim T As Variant
With Worksheets("Feuil1")
With Range("A1:B27")
T = .Value
.Clear
End With
.Range("A1").Resize(UBound(T, 2), UBound(T, 1)) = _
Application.Transpose(T)
End With
End Sub
'-------------------------



"laplesse" a écrit dans le message de news:
45add9e6$0$27399$
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-3, 17/01/2007
Analyse le : 17/01/2007 18:28:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 0703-3, 17/01/2007
Analyse le : 17/01/2007 18:29:02
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

1 2