VBA - Concaténer sous condition

Bonsoir

J'aurais besoin du code pour concaténer sous condition.

Explications dans ce fichier :

Merci de votre aide.

Amicalement

Nad

Bonsoir Nad,

Dans ton exemple, il ne manquerait pas : à la ligne 80 (colonne D) : édit colonne D

ENTRE : 5U10Rattrapage-ASSR2 et 5G1Rattrapage-ASSR1

4G1Rattrapage-ASSR1

4G2Rattrapage-ASSR1

4G3Rattrapage-ASSR1

4G4Rattrapage-ASSR1

4G5Rattrapage-ASSR1

4G6Rattrapage-ASSR1

4S7Rattrapage-ASSR1

4S8Rattrapage-ASSR1

4U10Rattrapage-ASSR1

??

Cordialement

code un peu moche mais dans l'idée c'est ça

Bonsoir

Un essai

J'ai triché (Ordonné la liste autrement) Important ?

Re

ketamacanna, effectivement j'avais oublié les 4.

Banzai64 a écrit :

J'ai triché (Ordonné la liste autrement) Important ?

Pas du tout pour cette colonne. J'ai modifié mon fichier original en conséquence.

Merci à tous les deux.

Amicalement

Nad

Bonsoir à tous,

Un peu tard, mais bon !

Sub Classement()
Dim A As Byte, T As Byte, i%, x$, Y%
    Columns("e").Clear
    Y = 3: x = Range("a3")      'départ

    For A = 1 To 4
        For T = Y To Y + 2
            For i = 2 To Range("c65536").End(xlUp).Row
                Select Case Left(Cells(i, "c"), 1)
                    Case Is = T: x = x
                    Range("e65536").End(xlUp)(2) = Cells(i, "c") & x
                End Select
            Next i
        Next T
            Select Case A
                Case Is = 1: Y = Y + 1: x = Range("a2")
                Case Is = 2: Y = 3: x = Range("a5")
                Case Is = 3: Y = 4: x = Range("a4")
            End Select
    Next A
End Sub

Amicalement

Claude

Bonjour Claude

Merci de t'être penché sur mon problème.

Amicalement

Nad