Discussion :

[Rrrroh]

Bonjour/soir à tous.
Jeune utilisateur de VBA, je développe (du moins j'essaie) une macro qui doit permettre, à partir d'un tableau, de transposer l'ensemble des contenus des lignes dans une même colonne.
J'ajoute un exemple visuel:

A B C D
a a a
b
c c

devrait me donner (je le place dans une 2e feuille):

A B C D
a
a
a
b
c
c

Pour se faire, j'ai écrit ceci:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Option Base 1
Option Explicit
 
Sub TRANSPOSITION()
 
... (pour l'essentiel:)
Dim i As Long, j As Long
Dim nbcol As Integer, nblot As Long
Dim departcopiee As String, departreçu As String
 
nbcol = 10              'nbr de colonnes max/ligne tableau intial
nblot = 10000          'nbr de ligne max tableau initial
 
departcopiee = "A4"     'cellule où commence l'extraction
departreçu = "A5"        '1ere cellule de réception
 
  For j = 0 To nbcol - 1
   For i = 0 To nblot
    Sheets("Feuil4").Select
    Range(departcopiee).Offset(i, j).Copy
    Sheets("Feuil5").Select
    Range(departreçu).Offset(j + (i * j), 0).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
    xlNone, SkipBlanks:=True, transpose:=True
   Next i
  Next j
 
End Sub

Mon problème^^:
ça mouline ça mouline, et après ça affiche bien dans une colonne, mais dans un ordre douteux etc. Visiblement ça recolle où ça a déjà été collé etc

Je vous avouerai ne pas avoir bien compris ce qui se passait, surement un problème des indices i et j du offset.

Je ne m'en sors pas, je me tourne donc vers vous, en espérant avoir été le plus clair possible.
Merci d'avance à ceux qui voudront bien me donner un coup de pousse!!

[zyhack]

Bonjour

effectivement il y avait un problème d'indexage

J'ai juste ajouté une variable L pour indiquer sur quel ligne écrire et simplifié la copie.

je te laisse regarder

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
16
17
18
19
20
21
22
23
Sub TRANSPOSITION()
 
'... (pour l'essentiel:)
Dim i As Long, j As Long
Dim nbcol As Integer, nblot As Long
Dim departcopiee As String, departreçu As String
Dim L As Long
 
nbcol = 10              'nbr de colonnes max/ligne tableau intial
nblot = 10000          'nbr de ligne max tableau initial
L = 0
departcopiee = "A4"     'cellule où commence l'extraction
departreçu = "A5"        '1ere cellule de réception
 
  For j = 0 To nbcol - 1
   For i = 0 To nblot
     if Sheets("Feuil4").Offset(i, j)<>"" then _
      Sheets("Feuil4").Offset(i, j).Copy Sheets("Feuil5").Range(departreçu).Offset(L, 0)
    L = L + 1
   Next i
  Next j
 
End Sub

Edit : Attention si tout est complet 10*10000 = 100000 lignes, pour excel 2003 c'est maximum 65536

[mercatog]

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
16
17
18
19
20
21
Dim LastLig As Long, NewLig As Long, i As Long
Dim LastCol As Integer
Dim Tablo()
With Sheets("Feuil4")
   LastLig = .Cells(Rows.Count, "A").End(xlUp).Row
   For i = 4 To LastLig
      LastCol = .Cells(i, Columns.Count).End(xlToLeft).Column
      ReDim Tablo(1 To LastCol)
      If LastCol = 1 Then
         Tablo(1) = .Range("A" & i)
      Else
         Tablo = Application.Transpose(.Range(.Cells(i, 1), .Cells(i, LastCol)))
      End If
      With Sheets("Feuil5")
         NewLig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
         NewLig = IIf(NewLig < 5, 5, NewLig)
         .Range("A" & NewLig & ":A" & NewLig + LastCol - 1) = Tablo
      End With
      Erase Tablo
   Next i
End With

[Rrrroh]

Merci pour vos réponses rapides!
Je m'y penche tout à l'heure dans la soirée.

(A priori un petit truc qui cloche chez zyhack par contre, la version de Mercatog étant... "otpimisée" disons ^^)