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 Lignes en colonnes

Lignes en colonnes

8 réponses
Avatar
Luc Grangier
Bonjour,

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans les
cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance
Signaler un problème avec ce contenu

8 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
Avatar
Jacky
Bonjour Luc

Copier/Collage spécial==>Transposé

Salutations
JJ

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

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans les
cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance


Avatar
Pierre Fauconnier
Bonjour

Sans macro, tu peux



Sélectionner A1:R1, copier
Sélectionner A2
Collage spécial/Transposé.
Supprimer ligne1

Ok?


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

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

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans les
cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance


Avatar
Céline Brien
Salut Luc,
Pour obtenir ce que tu souhaites, il faut effectuer le collage spécial
transposé dans la cellule A2 et ensuite effacer la ligne 1.
Tu trouveras les codes macro ci-dessous.
Si tu as besoin d'aide pour insérer ces codes dans ton fichier,
reviens-nous.
Bonne chance,
Céline
-----------------------------
Sub Transpose()
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:úlse _
, Transpose:=True
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
-------------------------------------

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

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans
les

cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance


Avatar
MichDenis
Bonjour Luc,

Si tu veux une macro :

'-----------------------------
Sub Déplacer()

Dim Tblo As Variant
Application.EnableEvents = False
With Worksheets("Feuil1")
Tblo = .Range("A1:R1")
.Range("A1:R1").Clear
.Range("A1:A" & UBound(Tblo, 2)) = _
WorksheetFunction.Transpose(Tblo)
End With
Application.EnableEvents = True

End Sub
'-----------------------------

Salutations!



"Luc Grangier" a écrit dans le message de news:

Bonjour,

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans les
cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance
Avatar
Luc Grangier
Hello,
Merci pour ta réponse, ça fonctionne bien mais je n'ai pas été assez précis
dans ma question:
Je n'ai pas seulement du contenu dans la ligne A1:R1 mais également A2:R2,
An:Rn.
La macro que tu m'as transmis ne gère que la ligne A1:R1 (comme je l'avais
demandé). J'aurais juste besoin que chaque ligne ayant du contenu soit
transposé en colonne, une par ligne...


"Céline Brien" wrote:

Salut Luc,
Pour obtenir ce que tu souhaites, il faut effectuer le collage spécial
transposé dans la cellule A2 et ensuite effacer la ligne 1.
Tu trouveras les codes macro ci-dessous.
Si tu as besoin d'aide pour insérer ces codes dans ton fichier,
reviens-nous.
Bonne chance,
Céline
-----------------------------
Sub Transpose()
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:úlse _
, Transpose:=True
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
-------------------------------------

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

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans
les

cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance






Avatar
Philippe.R
Bonjour Luc,
Cette évolution convient elle ?

Sub Transpose_bis()
'MPFE 04/05/2005
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("S1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:=True
Columns("A:R").Select
Selection.Delete Shift:=xlToLeft
Application.CutCopyMode = False
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Luc Grangier" a écrit dans le message de news:

Hello,
Merci pour ta réponse, ça fonctionne bien mais je n'ai pas été assez précis
dans ma question:
Je n'ai pas seulement du contenu dans la ligne A1:R1 mais également A2:R2,
An:Rn.
La macro que tu m'as transmis ne gère que la ligne A1:R1 (comme je l'avais
demandé). J'aurais juste besoin que chaque ligne ayant du contenu soit
transposé en colonne, une par ligne...


"Céline Brien" wrote:

Salut Luc,
Pour obtenir ce que tu souhaites, il faut effectuer le collage spécial
transposé dans la cellule A2 et ensuite effacer la ligne 1.
Tu trouveras les codes macro ci-dessous.
Si tu as besoin d'aide pour insérer ces codes dans ton fichier,
reviens-nous.
Bonne chance,
Céline
-----------------------------
Sub Transpose()
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:úlse _
, Transpose:=True
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
-------------------------------------

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

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans
les

cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance








Avatar
Luc Grangier
Merci c'est parfait!!!!


"Philippe.R" wrote:

Bonjour Luc,
Cette évolution convient elle ?

Sub Transpose_bis()
'MPFE 04/05/2005
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("S1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:=True
Columns("A:R").Select
Selection.Delete Shift:=xlToLeft
Application.CutCopyMode = False
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Luc Grangier" a écrit dans le message de news:

Hello,
Merci pour ta réponse, ça fonctionne bien mais je n'ai pas été assez précis
dans ma question:
Je n'ai pas seulement du contenu dans la ligne A1:R1 mais également A2:R2,
An:Rn.
La macro que tu m'as transmis ne gère que la ligne A1:R1 (comme je l'avais
demandé). J'aurais juste besoin que chaque ligne ayant du contenu soit
transposé en colonne, une par ligne...


"Céline Brien" wrote:

Salut Luc,
Pour obtenir ce que tu souhaites, il faut effectuer le collage spécial
transposé dans la cellule A2 et ensuite effacer la ligne 1.
Tu trouveras les codes macro ci-dessous.
Si tu as besoin d'aide pour insérer ces codes dans ton fichier,
reviens-nous.
Bonne chance,
Céline
-----------------------------
Sub Transpose()
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:úlse _
, Transpose:=True
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
-------------------------------------

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

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans
les

cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance












Avatar
Michel NOLF
Une autre methode avec VBA
avec le fichier http://cjoint.com/?fexqhrnQZS
amicalement Michel

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

J'aimerais déplacer le contenu des cellules de la ligne A1 à R1 dans les
cellules de la colonne A1 à A18, ceci de manière automatique (macro?)
Merci d'avance