Discussion :

[franval]

bonjour à tous
je cherche un petit script VBA pour me permette de fusionner de lignes avec concaténation de cellules. Voici un exemple de données issues d'un copier/Coller de plusieurs fichiers.

genre	espèce	année1	année2	année3
A	B	vide	vide	i
A	B	vide	j	vide
A	B	k	vide	vide
C	D	vide	vide	i
E	F	vide	vide	i
E	F	vide	j	vide
...	...	...	...	...

voici ce que je voudrais après la macro, pour toutes les lignes où genre et espèce sont identiques, mettre à plat toutes les cellules dont une seule est non vide par ligne. le nombre de lignes identiques est au max de 52, le nombre total de lignes de l'ordre 5000

A	B	k	j	i
C	D	vide	vide	i
E	F	vide	j	i

Quelqu'un aurait une piste pour m'aider.
merci d'avance
Cordialement
Franval

[ARTURO83]

Bonjour,

Ceci
Pièce jointe 579722

Le code

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
Sub Fusion()
    Dim DerLig As Long, i As Long, j As Long
    Application.ScreenUpdating = False
    Columns("J:N").ClearContents
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Columns("A:E").Copy Columns("J:J")
 
    For i = DerLig - 1 To 2 Step -1
        If Cells(i, "J") = Cells(i + 1, "J") And Cells(i, "K") = Cells(i + 1, "K") Then
            For j = 12 To 14
                If Cells(i + 1, j) <> "" Then
                    Cells(i, j) = Cells(i + 1, j)
                End If
            Next j
            Range(Cells(i + 1, "J"), Cells(i + 1, "N")).Delete
        End If
    Next i
End Sub

Cdlt

[franval]

Bonjour Arturo83
Merci beaucoup, ça marche super bien pour mon petit exemple mais le fichier va s'élargir avec des colonnes année, donc le code devra être modifié en conséquence.
J'ai compris presque tout (enfin je le pense) ce qui concerne les lettres des colonnes à adapter, sauf la ligne "for j = 12 To 14".
Qu'est ce représente 12 et 14 ?
merci d'avance
cordialement
Franval

[franval]

Je crois que j'ai compris. c'est le rang des colonnes L à N qui contiennent les années.