Transposition Automatique

druchmoain · 13 Juin 2013

Bonjour,

comment faire pour la ligne 9, puis la ligne 10 ….(le fichier complet comprend 18000 lignes)

pour que je transpose AUTOMATIQUEMENT, la ligne9 en U9, puis la ligne10 (20 lignes plus bas) en U29 …

Le plus serait que losque la cellule est vide (ex: L9), on ne laisse pas de lignes vides.

Merci d'avance, si vous avez des idées pour solutionner le problème.

PS: j'explique très TRES mal, mais c'est plus comprehensible avec le fichier joint

mromain · 13 Juin 2013

Re : Transposition Automatique

Bonjour le forum, Voici un essai avec cette formule à saisir en U9 et à tirer vers le bas :

Code:

=DECALER($A$9;ENT((LIGNE()-9)/20);MOD(LIGNE()-9;20))

A+ Miki

Efgé · 13 Juin 2013

Re : Transposition Automatique

Bonjour druchmoain

Une proposition par macro :

VB:

Sub test()
Dim I&, X&, T As Variant
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For I = 9 To .Cells(.Rows.Count, 1).End(3).Row
        T = .Range(.Cells(I, 1), .Cells(I, 20))
        X = .Cells(.Rows.Count, 21).End(3)(2).Row
        X = IIf(X < 9, 9, X)
        .Cells(X, 21).Resize(UBound(T, 2), 1) = Application.Transpose(T)
    Next I
End With
Application.ScreenUpdating = True
End Sub

Pour lancer le code Alt + F8 et lancer Test.

Cordialement

EDIT Bonjour MRomain

druchmoain · 13 Juin 2013

Re : Transposition Automatique

Merci pour vos 2 réponses ultra-rapide,

effectivement Efgé, ta macro est rapide et répond parfaitement à ce que je cherche à faire,

mais la méthode de Mromain sans macro marche aussi !

druchmoain · 13 Juin 2013

Re : Transposition Automatique

La même macro, mais en laissant les lignes vides !

Merci Efgé

Efgé à dit:

Bonjour druchmoain

Une proposition par macro :

VB:

Sub test()
Dim I&, X&, T As Variant
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For I = 9 To .Cells(.Rows.Count, 1).End(3).Row
        T = .Range(.Cells(I, 1), .Cells(I, 20))
        X = .Cells(.Rows.Count, 21).End(3)(2).Row
        X = IIf(X < 9, 9, X)
        .Cells(X, 21).Resize(UBound(T, 2), 1) = Application.Transpose(T)
    Next I
End With
Application.ScreenUpdating = True
End Sub

Pour lancer le code Alt + F8 et lancer Test.

Cordialement

EDIT Bonjour MRomain

Efgé · 13 Juin 2013

Re : Transposition Automatique

Re

Pour garder les "Balncs" :

VB:

Sub test2()
Dim I&, X&, T As Variant
Application.ScreenUpdating = False
X = -11
With Sheets("Feuil1")
    For I = 9 To .Cells(.Rows.Count, 1).End(3).Row
        T = .Range(.Cells(I, 1), .Cells(I, 20))
        X = X + 20
        .Cells(X, 21).Resize(UBound(T, 2), 1) = Application.Transpose(T)
    Next I
End With
Application.ScreenUpdating = True
End Sub

Cordialement

druchmoain · 13 Juin 2013

Re : Transposition Automatique

Merci infiniment,
bonne soirée !

Efgé à dit:

Re

Pour garder les "Balncs" :

VB:

Sub test2()
Dim I&, X&, T As Variant
Application.ScreenUpdating = False
X = -11
With Sheets("Feuil1")
    For I = 9 To .Cells(.Rows.Count, 1).End(3).Row
        T = .Range(.Cells(I, 1), .Cells(I, 20))
        X = X + 20
        .Cells(X, 21).Resize(UBound(T, 2), 1) = Application.Transpose(T)
    Next I
End With
Application.ScreenUpdating = True
End Sub

Cordialement

Transposition Automatique

druchmoain

XLDnaute Junior

Pièces jointes

mromain

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Pièces jointes

druchmoain

XLDnaute Junior

druchmoain

XLDnaute Junior

Efgé

XLDnaute Barbatruc

druchmoain

XLDnaute Junior

Discussions similaires