Discussion :

[PENSEUR33]

Bonjour,

J'ai un travail à faire en urgence (pour demain - comme dans l'armée).

Le travail : Je dois transposer les prix d'un tableau que j'utilise vers un tableau qui sera réintégré dans une base de données.

Précisions : Cette base de données d'une nouvelle appli web du service est gérée par une société externe.

Impératif : Je suis donc obligé d'adapter la mise en forme des données de mon tableau pour les mettre en forme suivant le tableau fourni par la société

Voici une capture exemple du tableau que j'utilise et la mise en forme à obtenir en dessous (j'ai simplifié en enlevant des colonnes) :


J'ai utilisé la fonction TRANSPOSE pour déplacer les prix de l'horizontal vers le vertical.
Mais, cela se complique puisque dans le tableau destinataire des lignes sont à créer pour être en cohérence avec les données de la version du tableau de départ.

Si vous avez une idée comment procéder, je suis preneur d'une ou plusieurs solutions.
Encore merci de votre aide

[BENNASR]

bonjour
c'est faisable avec macro
à tester sur une copie de ton travail ... je suis qu'un autodidacte

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
Sub regroup()
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim f2 As Worksheet
Set F1 = Sheets("BASE")
Set f2 = Sheets("RESULTAT")
Application.ScreenUpdating = False
f2.Cells.ClearContents
Dim i As Long
Set d = CreateObject("Scripting.Dictionary")
    '**********************************************************
    TblBD = F1.Range("A1:D" & F1.Range("D" & Rows.Count).End(xlUp).Row)
    For i = 2 To UBound(TblBD)
    For C = 2 To 4
    clé = TblBD(1, C) & "|" & TblBD(i, 1) & "|" & TblBD(i, C)
    d(clé) = TblBD(1, C) & "|" & TblBD(i, 1) & "|" & TblBD(i, C)
    Next C
    Next i
 f2.Range("A1").Resize(d.Count) = Application.Transpose(d.keys)
 Application.DisplayAlerts = False
  f2.Range("A1").Resize(d.Count).TextToColumns Other:=1, OtherChar:="|"
  Application.ScreenUpdating = True
  f2.Select
  End Sub

[PENSEUR33]

Bonjour,

Ouf quelle rapidité!

1. Ca marche avec toutes mes 136 lignes

2. J'ai besoin de précisions svp sur ce code, pour pouvoir appliquer sur mon tableau à transposer

Pour être précis, cette ligne représente les cellules à traiter :

Code :

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

TblBD = F1.Range("A1:D" & F1.Range("D" & Rows.Count).End(xlUp).Row)

Je souhaite travailler sur mon tableau qui comporte plus de colonnes.
Et bien sur sans tout perturber sur ce code, comment puis je le modifier, svp?

Merci

[Pierre Fauconnier]

Salut.

Office365 => c'est clairement du boulot pour Power query ( 4 clics)

[PENSEUR33]

Bonjour,

Aîe, maître Pierre à frappé (comme la foudre)

Et oui en effet, vu les captures ça le fait!
Et puis c'est pas du VBA!

Je vais m'y mettre et vous donner des nouvelles

Encore merci

[BENNASR]

Code :

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

TblBD = F1.Range("A1:D" & F1.Range("D" & Rows.Count).End(xlUp).Row)

pour ton tableau de départ qui selon votre exemple commence de A à D
autre chose à mettre à jour :
la ligne 14 du code

Code :

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

 For C = 2 To 4

4 représente la dernière colonne

[PENSEUR33]

Bonjour BENNASR,

Je te remercie vivement pour cette précieuse aide!

Mais, je vais quand même suivre "l'option" plus simple de "maître Pierre". (pas lèche c*l du tout )
Nan, pour être sérieux : c'est vrai que la solution paraît logique puisqu'il existe POWER QUERY" intégré dans XL-365

Donc GRAND merci à vous deux BENNASR et Pierre!
Deux solutions pour le prix d'une! Que demander de plus

[BENNASR]

Deux solutions pour le prix d'une! Que demander de plus

ne reste que cliquer sur RESOLU en bas

Bonne continuation

[PENSEUR33]

Re-bonjour,

Oups
Si je remet le tableau avec les colonnes supprimées (colonnes B et C) : cela ne fait plus du tout le même résultat avec la requête

Besoin d'aide svp

[Pierre Fauconnier]

Tu ne dois dépivoter que les colonnes avec les distances. Dans mon exemple, j'ai montré "dépivoter les autres colonnes" parce qu'il n'y avait qu'une autre colonne en plus des trois à dépivoter, mais avec les colonnes que tu montres, tu dois soit:

• sélectionner les trois premières puis clic droit et dépivoter les autres;
• sélectionner les trois dernières puis clic droit et dépivoter les colonnes.

[PENSEUR33]

Oui en effet.
Le résultat marche en gardant les 3 premières et "dépivoter les autres colonnes"

Par curiosité : Tu connais la raison pourquoi la requête agis différemment selon le contenu des données?

[Pierre Fauconnier]

[...]
Par curiosité : Tu connais la raison pourquoi la requête agis différemment selon le contenu des données?

Désolé, je n'ai pas compris ta question

[PENSEUR33]

Bonjour,

Tu avais précisé :
"...avec les colonnes que tu montres, tu dois soit:
sélectionner les trois premières puis clic droit et dépivoter les autres;
sélectionner les trois dernières puis clic droit et dépivoter les colonnes."

Comment fonctionne cette fonction "dépivoter les autres colonnes" ?
- Est-ce que c'est selon le nombre de colonnes ?
- Est-ce que c'est suivant le type de données dans les colonnes ?
- Ou bien les deux à la fois ?