Discussion :

[morgan75]

Bonjour,

Je tente de réaliser une transposition de tableau avec un code VBA que j'ai modifié mais le résultat n'est pas probant. En fait, la première colonne (N° unité) et la deuxième colonne (N° séjour) sont verticales et les valeurs (dates correspondant à la durée du séjour sont organisées horizontalement). L'objectif étant que toutes ces données soient en colonne. Je précise que ce tableau est très long (+12000 lignes) et que pour chaque ligne le nombre de colonnes disposant d'une valeur varient en fonction de la durée du séjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Transpose()
Sheets("TRANSPOSE").Cells.Clear
With Sheets("SELECTION BD")
NbCol = .Range("B1:" & .Range("IV1").End(xlToLeft).Address).Columns.Count
For Each X In .Range("A2:" & .Range("A65536").End(xlUp).Address)
    LigDest = Sheets("TRANSPOSE").Range("A65536").End(xlUp).Offset(1, 0).Row
    For Each Y In X.Offset(0, 1).Resize(1, NbCol)
        Sheets("TRANSPOSE").Cells(LigDest, 1) = X
        Sheets("TRANSPOSE").Cells(LigDest, 2) = Y
        LigDest = Sheets("TRANSPOSE").Range("A65536").End(xlUp).Offset(1, 0).Row
    Next
Next
End With
End Sub

[morgan75]

Bonjour,

Sur l'image que j'ai envoyé la source et le résultat (tableau en colonnes) sont sur la même feuille pour simplifier. En fait, ces tableaux sont sur des feuilles différentes. Le code que je vous ai présenté a comme inconvénient également de ne pas conserver les entêtes des colonnes.

En vous remerciant.

M

[Marc-L]

Bonjour,

alors présenter un code en rapport avec le fichier de travail réel …

S'intéresser par exemple à la propriété   End   permettant de trouver la dernière cellule d'une ligne
comme documentée dans l'aide VBA interne sans compter dans les discussions du bon forum,
ici étant celui des formules de calculs d'Excel et non celui dédié au VBA ! (edit : sujet déplacé dans le bon forum depuis …)

___________________________________________________________________________________________________________

Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[unparia]

Bonjour

J'utiliserais personnellement le tremplin d'un tableau
J'en connais le nombre de colonnes (trois)
J'en connais également le nombre de liges : -->> derlig étant la dernière cellule remplie de la colonne A - 1 (because entête), le nombre de lignes de ce tableau devra donc être du genre (à main levée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derlig + range("D2:X" & derlig).specialcells(xlcelltypeconstants).cells.count

Je traiterais ensuite de bas en haut avec une boucle for ... to ... Next Step -1
puis injecterais mon tableau où je le souhaite

PS : nous ne sommes pas ici dans la section VBA ...

[morgan75]

Bonsoir et merci,


Je n'avais pas connaissance de cette réorganisation du forum Excel. Excusez moi.
Quelqu'un pourrait basculer cette discussion sur la bonne rubrique, svp.

En vous remerciant,

M

[unparia]

Bon
Tu es en effet nouveau et donc excusable. Mais fais s'il te plait dorénavant le choix de la section adéquate.

Il semble que ce soit la semaine des calculs arithmétiques et je vais donc t'y inviter -->>
Il y a dans ce qui suit SURTOUT de l'arithmétique --->>
Exemple avec des données commençant à la ligne 2, colonne A de Feuil1 et à "transposer" à partir de la ligne 2, colonne A de Feuil2 --->> CommandButton1 sur Feuil1 --->>

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
Private Sub CommandButton1_Click()
  derlig = Range("A" & Rows.Count).End(xlUp).Row
  dercol = UsedRange.SpecialCells(xlCellTypeLastCell).Column
  nblig = derlig - 1 + Range(Cells(2, 4), Cells(derlig, dercol)).SpecialCells(xlCellTypeConstants).Cells.Count
  nbcol = 3
  ReDim tablo(1 To nblig, 1 To nbcol)
  ou = 1
  For k = 2 To derlig
    For j = 1 To Rows(k).SpecialCells(xlCellTypeConstants).Cells.Count - 2
       tablo(ou, 1) = Cells(k, 1)
       tablo(ou, 2) = Cells(k, 2)
       tablo(ou, 3) = Cells(k, j + 2)
       ou = ou + 1
    Next
  Next
  Worksheets("Feuil2").Range("A2:C" & ou).Value = tablo
End Sub

Tu aimes l'arithmétique ? *******

******* : si pas des masses ou que cela te donne le tournis --->> intéresse-toi à la méthode worksheetfunction.transpose, appliquée en boucle au contenu, pour chaque ligne, des cellules remplies à partir de la 3ème colonne