Réorganiser des lignes en colonnes pour une exportation SQL
S
Bonjour à tous !
Merci de vous intéresser à mon poste.
Je sollicite votre aide car j'ai environs 200 tableaux de ce genre :
| Titre 1 | A 1 | A 1b |
| Titre 2 | A 2 | A 2b |
| Titre 3 | A 3 | A 3b |
| Titre 4 | A 4 | A 4b |
| Titre 5 | A 5 | A 5b |
| Titre 6 | A 6 | A 6b |
| Titre 7 | A 7 | A 7b |
| Titre 8 | A 8 | A 8b |
| Titre 9 | A 9 | A 9b |
| Titre 1 | B 1 | B 1b |
| Titre 2 | B 2 | B 1b |
| Titre 3 | B 3 | B 1b |
| Titre 4 | B 4 | B 1b |
| Titre 5 | B 5 | B 1b |
| Titre 6 | B 6 | B 1b |
| Titre 7 | B 7 | B 1b |
| Titre 8 | B 8 | B 1b |
| Titre 9 | B 9 | B 1b |
A rendre comme ceci :
| Titre 1 | Titre 2 | Titre 3 | Titre 4 | Titre 5 | Titre 6 | Titre 7 | Titre 8 | Titre 9 |
| A 1 | A 2 | A 3 | A 4 | A 5 | A 6 | A 7 | A 8 | A 9 |
| B 1 | B 2 | B 3 | B 4 | B 5 | B 6 | B 7 | B 8 | B 9 |
Bien sûr avec des données qui changent (A1 et B1....)
Est-il possible de le faire en excel ?
Je dois importer ces données dans une table de ma base de données et je galère de fou à le faire.
Merci infiniment pour votre aide et vos conseils.
Bien à vous
E
Bonjour,
Dans votre fichier, j'ai remplacé votre tableau résultat par un tableau structuré nommé t_Data.
Option Explicit
Sub Test()
Dim Sh As Worksheet
Dim I As Long, J As Long, DerniereLigne As Long
Dim TabData As ListObject
Dim LigneData As ListRow
Dim AireTableaux As Range
Set Sh = Sheets("Feuil1")
With Sh
Set TabData = .ListObjects("t_Data")
DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
Set AireTableaux = .Range(.Cells(1, 1), .Cells(DerniereLigne, 1))
End With
For I = 1 To AireTableaux.Count
Select Case AireTableaux(I)
Case "Titre 1"
Set LigneData = TabData.ListRows.Add
With LigneData
.Range.Clear
For J = 0 To 8
.Range(1, J + 1) = AireTableaux(I).Offset(J, 1)
Next J
End With
Set LigneData = Nothing
End Select
Next I
Set Sh = Nothing
Set TabData = Nothing
Set AireTableaux = Nothing
End Sub