Discussion :

[Jacky2010]

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

[mercatog]

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

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

[Jacky2010]

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