Discussion :

[arthur.g]

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 :

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

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

[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.

[arthur.g]

Bonjour,

En gros cela ressemble à ça :



et la cible c'est ça

[BENNASR]

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

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
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

[arthur.g]

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 !

[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