Retraitement base données Excel 2007

Version imprimable

25/01/2016, 07h15
shaman78240

Retraitement base données Excel 2007
Bonjour,

J'utilise un logiciel de gestion des paies "COALA" à partir duquel j'extrais dans Excel les écritures comptables afin de pouvoir construire un tableau synthétique par salarié.

Le problème réside dans le format du fichier extrait qui se présente comme suit :

Données brutes extraites
```
Compte	Libellé			Montant
641	libellé 641		100
642	libellé 642		100
643	libellé 643		200
644	libellé 644		300
	Total Nom salarié A	700
641	libellé 641		300
642	libellé 642		500
643	libellé 643		100
644	libellé 644		50
	Total Nom salarié B	950
```
Je recherche une solution qui me permettrais d'obtenir le résultat suivant :

Données Retraitées
```
Nom Salarié	Compte	Libellé		Montant
Nom salarié A	641	libellé 641	100
Nom salarié A	642	libellé 642	100
Nom salarié A	643	libellé 643	200
Nom salarié A	644	libellé 644	300
Nom salarié B	641	libellé 641	300
Nom salarié B	642	libellé 642	500
Nom salarié B	643	libellé 643	100
Nom salarié B	644	libellé 644	50
```
Les données ainsi retraitées me permettront de générer, par exemple, un tableau croisé dynamique faisant apparaître le coût global par salarié.

Merci d'avance pour vos solutions.

FL
25/01/2016, 16h15
parmi

Bonjour,

Le fichier extrait de Coala est au format Excel ou bien texte simple ?
25/01/2016, 16h39
Menhir

Si c'est du texte, quel est le séparateur ? Un simple espace ?
25/01/2016, 21h50
shaman78240

1 pièce(s) jointe(s)

Bonjour,

Le fichier est au format excel.

Vous trouverez un exemple de fichier extrait.

Merci d'avance,

Ceci devrait donner le résultat attendu, mais inversé puisque je pars du bas vers le haut.
Par contre, si nécessaire, tu peux trier la liste obtenue par la suite.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Replacer()
    Dim I As Long, nbLignes As Long
    Dim LigneDest As Long
    Dim Nom As String
 
    nbLignes = Cells(Rows.Count, "B").End(xlUp).Row
    LigneDest = 5
 
    For I = nbLignes To 5 Step -1
        If Left(Range("B" & I), 5) = "Total" Then
            Nom = Right(Range("B" & I), Len(Range("B" & I)) - 18)
        ElseIf IsNumeric(Range("A" & I)) Then
            Range("E" & LigneDest) = Nom
            Range("F" & LigneDest) = Range("A" & I)
            Range("G" & LigneDest) = Range("B" & I)
            Range("H" & LigneDest) = Range("C" & I)
            LigneDest = LigneDest + 1
        End If
    Next
End Sub

27/01/2016, 07h06
shaman78240

Bonjour,

Merci pour le retour. :D

Je vais tester et te tiens au courant.

Bonjour,

une autre approche :

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
Sub Demo()
         Dim Rd As Range, Rf As Range
         L& = [A4].CurrentRegion.Rows.Count + 3
         R& = 5
         Application.ScreenUpdating = False
         [G4].CurrentRegion.Clear
         [A4:C4].Copy [H4]
         Set Rd = [A5]
    Do Until Rd.Row > L
         Set Rf = Rd.End(xlDown)
          If Rf(2, 2) Like "Total *" Then
              N& = Rf.Row - Rd.Row + 1
              Cells(R, 7).Resize(N).Value = Mid(Rf(2, 2).Value, 7)
              Rd.Resize(N, 3).Copy Cells(R, 8)
              R = R + N
          End If
         Set Rd = Rf.End(xlDown)
    Loop
         Set Rd = Nothing:  Set Rf = Nothing
    With [G4].CurrentRegion.Columns
        .Item(1).AutoFit
        .Item(2).HorizontalAlignment = xlCenter
    End With
         Application.ScreenUpdating = True
End Sub

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, Charlie, …

Formidable !

Cela fonctionne comme je l’espérais.

Merci !:)

Citation:

Envoyé par parmi

Ceci devrait donner le résultat attendu, mais inversé puisque je pars du bas vers le haut.
Par contre, si nécessaire, tu peux trier la liste obtenue par la suite.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Replacer()
    Dim I As Long, nbLignes As Long
    Dim LigneDest As Long
    Dim Nom As String
 
    nbLignes = Cells(Rows.Count, "B").End(xlUp).Row
    LigneDest = 5
 
    For I = nbLignes To 5 Step -1
        If Left(Range("B" & I), 5) = "Total" Then
            Nom = Right(Range("B" & I), Len(Range("B" & I)) - 18)
        ElseIf IsNumeric(Range("A" & I)) Then
            Range("E" & LigneDest) = Nom
            Range("F" & LigneDest) = Range("A" & I)
            Range("G" & LigneDest) = Range("B" & I)
            Range("H" & LigneDest) = Range("C" & I)
            LigneDest = LigneDest + 1
        End If
    Next
End Sub