réduction combinaisons

[kakachi]

Bonjour à tous les excelnautes :

je sollicite votre aide afin de m'aider a résoudre mon problème.
Mon objectif est de réduire mes combinaisons grâce a un code VBA ou des formules excel
Je vous joins mon fichier afin de visualiser mon problème.

Bonne journée à tous et à toutes

à+!!!!

 

[Softmama]

Re : réduction combinaisons

Bonjour,

Une proposition par macro en PJ :

Sub gozyva()
Dim conc()
Dim c As Range
Dim dec&
Set c = Range("A10"): Set d = Range("G9")
Do While c <> ""
    ReDim Preserve conc(c.Row)
    conc(c.Row) = c & c(1, 2) & c(1, 3) & c(1, 4)
    If conc(c.Row) <> conc(c.Row - 1) Then
        dec = 0
        Set d = d(2, 1)
        c.Resize(, 4).Copy Destination:=d
        d(1, 5) = "/"
        d(1, 6) = c(1, 5)
    Else
        d(1, 7 + dec) = c(1, 5)
        dec = dec + 1
    End If
    Set c = c(2, 1)
Loop
End Sub

 

[kakachi]

Re : réduction combinaisons

Bonjour,

Merci Softmama pour ta proposition par macro

je vais étudier ta proposition de plus près après le boulot

Bonne après-midi

@+!!!

 

[kakachi]

Re : réduction combinaisons

Bonsoir Softmama

j'ai regarder ta proposition par macro et c'est super

c'est exactement ça que je souhaitais avoir

Merci a toi pour ton aide

Bonne soirée

@+!! Kakachi