Transformer un tableau a entrée multiple en base de données exploitable

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Première bouteille à la mer, je ne sais pas si je peux avoir de l'aide sur ce type de demande. Je reçois mensuellement un compte rendu comme en copie et je voudrais le transformer en données brut pour suivre l'évolution sur un power BI.
J'aimerai donc créer une feuille et reprendre les informations et je suis bloqué rapidement par mon niveau sur Excel.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Bouton2_Cliquer() 'ajouter une nouvelle Feuille à la fin du Classeur, la nommer et créer les colonnes Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Table de donnée" Range("1:1").HorizontalAlignment = xlCenter Cells(1, 1).Value = "Date" Cells(1, 2).Value = "Type" Cells(1, 3).Value = "Receiver" Cells(1, 4).Value = "Pays" Cells(1, 5).Value = "Hébergement" Cells(1, 6).Value = "Nombre"
idéalement cette deuxième feuille ressemblerait à l'onglet "cible" et j'aurais bien la différence entre la valeur "0" et "null" car mon 0 correspond a une création en cours.

Bonne journée à vous et merci a ceux qui prendront le temps de me lire :D

24/11/2021, 13h31
ChristianBosch

Bonjour,

ton compte rendu est sous quelle forme ? (je n'ouvre pas les PJ)

Si c'est un tableau tu peux faire une importation de données par "dossier" avec power query, ca va compiler tous tes fichiers dans un tableau.

Tu peux egalement le faire avec des fichiers CSV.
24/11/2021, 13h36
arthur.g

2 pièce(s) jointe(s)

Bonjour,

En gros cela ressemble à ça :

Pièce jointe 609160

et la cible c'est ça

Pièce jointe 609161

1 pièce(s) jointe(s)

bonjour
Une réponse dans une "Premiere bouteille a la mer" :aie::aie::aie: je propose :

Code:

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
Sub testt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim lig As Long
Set F1 = Sheets("rapport mensuel")
Set F2 = Sheets("cible")
lig = F2.Cells(Rows.Count, 1).End(xlUp).Row + 1
 
Dim i As Long
Dim C As Long
Set d = CreateObject("Scripting.Dictionary")
    '**********************************************************
    TblBD = F1.Range("A4:F" & F1.Range("D" & Rows.Count).End(xlUp).Row)
 
    For i = 1 To UBound(TblBD)
    For C = 3 To 6
         clé = F1.Cells(1, 1) & "|" & TblBD(i, 1) & "|" & TblBD(i, 2) & "|" & F1.Cells(3, C) & "|" & F1.Cells(2, 3)
         d(clé) = d(clé) + CDbl(TblBD(i, C))
    Next C
    Next i
    F2.Range("A" & lig).Resize(d.Count) = Application.Transpose(d.keys)
 
    F2.Range("A" & lig).Resize(d.Count).TextToColumns Other:=1, DataType:=xlDelimited, OtherChar:="|"
    F2.Range("F" & lig).Resize(d.Count) = Application.Transpose(d.items)
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
End Sub

24/11/2021, 15h53
arthur.g

1 pièce(s) jointe(s)

Incroyable votre aide, merci !
J'ai renseigné votre macro et c'est exactement ce que je souhaite, il manque lorsque je lance la macro cependant les données pour deux type d'hébergements cloud et ECC, encore merci !

Pièce jointe 609165
24/11/2021, 16h26
BENNASR

1 pièce(s) jointe(s)

je ne suis qu'un bricoleur donc testez et re testez
j'ai fait en 3 macro alors normalement c'est faisable avec un seul mais c'est le bricolage d'un autodidacte
testez et dite si ça te convient
25/11/2021, 10h51
arthur.g

Citation:

Envoyé par BENNASR

je ne suis qu'un bricoleur donc testez et re testez
j'ai fait en 3 macro alors normalement c'est faisable avec un seul mais c'est le bricolage d'un autodidacte
testez et dite si ça te convient

Parfait merci !