Macro Fusion et concatenation

Version imprimable

23/03/2011, 19h37
Jacky2010

1 pièce(s) jointe(s)

Macro Fusion et concatenation

Bonjour,

Voilà ma question:
J'ai un tableau qui liste par colonne :
-une date sur la première ligne uniquement
-une réference sur la première ligne uniquement
-Des informations sur plusieurs lignes (nombre alétaoire) mais rattachées à la date et à la référence sur la première ligne.

Je souhaiterais trouver une macro qui permettrait de :
-fusionner toutes les lignes pour les colonnes date et référence (par exemple sur la première colonne "DATE" fusionner toutes lignes vides en dessous de la date.
Idem pour les lignes "références"
-fusionner les cellules informations en concaténant le contenu
Et ceci jusqu'à la prochaine date.
C'est un peu compliqué à expliquer. Je vous fais passer en pièce jointe un fichier test beaucoup plus parlant que mes explications.
Je ne sais même pas si une macro peut réaliser ce type d'action.
Je fais donc appel à vos connaissances pour me dire si cela vous semble faisable.
Merci d'avance
Cordialement

Bonsoir
Une usine à gaz (les trim sont dues aux espaces superflus dans tes cellules)

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
Dim LastLig As Long, i As Long
Dim C(3 To 5) As String
Dim j As Byte
 
Application.ScreenUpdating = False
With Sheets("fichier brut")
    LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
    For i = LastLig To 2 Step -1
        If Trim(.Range("B" & i).Value) = "" Then
            For j = 3 To 5
                If Trim(.Cells(i, j).Value) <> "" Then C(j) = Trim(.Cells(i, j).Value) & Chr(10) & C(j)
            Next j
            .Rows(i).Delete
        Else
            For j = 3 To 5
                C(j) = Trim(C(j))
                C(j) = IIf(C(j) <> "", Left(C(j), InStrRev(C(j), Chr(10)) - 1), "")
                .Cells(i, j).Value = Trim(.Cells(i, j).Value) & Chr(10) & C(j)
                C(j) = ""
            Next j
        End If
    Next i
    With .UsedRange
        .EntireRow.AutoFit
        .VerticalAlignment = xlTop
    End With
End With

26/03/2011, 09h06
Jacky2010

Merci pour cette usine à gaz

Cela fonctionne très bien. Je suis impressionnée.
Merci encore mercatog