Discussion :

[SYCAM49300]

Bonjour à toutes et à tous.

Dans le cadre de mon travail, nous travaillons sur des tableaux exel que nous devons modifié pour pouvoir créer un autre fichier de données (en csv) qui lui est intégré dans un logiciel propre à l'entreprise.
Existe t'il une macro qui permet de passer des données horizontales en données verticales. Le tableau d'origine fait 357 lignes et peut aller de 12 à 120 colonnes selon les périodes de l'année.
Je joins un exemple de tableau et j'y ai ajouté des codes couleurs pour que vous compreniez.
Si des fois quelqu'un a une solution.

Merci.

[Fab_de_chez_PERFORM]

Bonjour
je vous propose l'aide ci jointe

le fichier dispose de 3 feuilles :

• 1 feuille PARAM avec des cellules nommées qui récupèrent les différentes infos dont on a besoin
• 1 feuille HORIZ
• 1 feuille VERTIC

La difficulté de votre problème est que pour chaque ligne il faut en réalité reporter autant de lignes que de produits. Ce n'est donc pas vraiment du TRANSPOSER

Sur la feuille "HORIZ" j'ai mis un smiley pour exécuter la macro avec une double boucle (une pour chaque ligne de Horiz et une pour chaque REF produit)
A la fin, j'ai viré les lignes où il n'y avait pas de quantités

Voilà donc un exemple de ce comment je répondrais à la problématique. Le tout est à réadapter évidemment.

[BENNASR]

bonjour
tester :

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
30
31
32
33
34
35
36
37
38
39
Sub test()
 
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim f2 As Worksheet
Dim plage As Range
Set F1 = Sheets("TABLEAU HORIZONTAL")
Set f2 = Sheets("RESULTAT")
f2.Cells.ClearContents
Dim i As Long
Dim dercol As Long
Dim A As Long
Dim lig As Long
dercol = F1.Cells(1, F1.Cells.Columns.Count).End(xlToLeft).Column
derlig = F1.Range("A" & Rows.Count).End(xlUp).Row
 
Set d = CreateObject("Scripting.Dictionary")
lig = 1
  TblBD = F1.Range(F1.Cells(11, "A"), F1.Cells(derlig, dercol))
          For i = 1 To UBound(TblBD)
 
          For A = 8 To dercol
          If TblBD(i, A) <> "" Then
          clé = lig & "|" & TblBD(i, 4) & "|" & TblBD(i, 1) & "|" & "U" & "|" & TblBD(i, 3) & "|" & F1.Cells(1, A) & "|" & TblBD(i, A)
          d(clé) = lig & "|" & TblBD(i, 4) & "|" & TblBD(i, 1) & "|" & "U" & "|" & TblBD(i, 3) & "|" & F1.Cells(1, A) & "|" & TblBD(i, A)
          End If
          Next A
          lig = lig + 1
          Next i
  f2.Range("A2").Resize(d.Count) = Application.Transpose(d.items)
  Application.DisplayAlerts = False
  f2.Range("A2").Resize(d.Count).TextToColumns Other:=1, DataType:=xlDelimited, OtherChar:="|"
 
   f2.Select
 
  Application.ScreenUpdating = True
 
 
End Sub

[Fab_de_chez_PERFORM]

En essayant la macro sur un fichier avec 357 lignes et 120 refs, je me suis aperçu que je n'avais pas vérifié si les déclarations collaient
il faudra donc changer la ligne

Code :

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

Dim ligne_départ As Integer

en

Code :

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

Dim ligne_départ As Variant

Sorry

[SYCAM49300]

Bonsoir, je vais tester vos deux solutions dans la semaine et je vous tiens au courant.

Merci beaucoup pour votre aide.

[SYCAM49300]

Bonsoir. C'est ok pour moi. Tout fonctionne quelle que soit la solution utilisée et évidemment adaptée à mes besoins. Merci encore.

Bonsoir, je vais tester vos deux solutions dans la semaine et je vous tiens au courant.

Merci beaucoup pour votre aide.

[Promethee25]

Bonjour,

Tableau structuré et Power Query sont les outils idéaux pour dépivoter:

Code :

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

1
2
3
4
5
6
let
    Source = Excel.CurrentWorkbook(){[Name="TableauHorizontal"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"CODE CLIENT", type text}, {"ID", Int64.Type}, {"DIV", type text}, {"REP.", Int64.Type}, {"S/A", type text}, {"C", type text}, {"CLIENT", type text}, {"REF 1", Int64.Type}, {"REF 2", Int64.Type}, {"REF 3", Int64.Type}, {"REF 4", Int64.Type}, {"REF 5", Int64.Type}, {"REF 6", Int64.Type}, {"REF 7", Int64.Type}, {"REF 8", Int64.Type}, {"REF 9", Int64.Type}}),
    #"Tableau croisé dynamique des colonnes supprimé" = Table.UnpivotOtherColumns(#"Type modifié", {"CODE CLIENT", "ID", "DIV", "REP.", "S/A", "C", "CLIENT"}, "Attribut", "Valeur")
in
    #"Tableau croisé dynamique des colonnes supprimé"