Transposer des lignes avec données partiellement identiques

Fermé
creator3_1969 Messages postés 13 Date d'inscription vendredi 25 janvier 2019 Statut Membre Dernière intervention 9 avril 2020 - 25 janv. 2019 à 19:00
titeufdu89 Messages postés 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 26 janv. 2019 à 10:59
Bonjour,

Je ne suis pas un expert d'excel et afin de pouvoir faire un rapport qui puisse me donner les informations dont j'ai besoin, il faudrait que j'arrive à transposer les lignes dont la référence en colonne C est identique en colonne mais cela doit se reproduire à chaque fois que la référence de la colonne C change.

Ci-dessous mes données



et j'aimerais arriver à ce résultat (que j'ai fait manuellement bien sûr) :



et ainsi de suite pour toutes les autres lignes du fichier.

Pouvez-vous m'aider ?

merci beaucoup

Laurent

1 réponse

titeufdu89 Messages postés 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 38
26 janv. 2019 à 10:59
Bonjour Laurent,

Voici une macro qui devrait faire l'affaire :
Sub suppr_doublon()
Application.ScreenUpdating = False
For i = 2 To Range("C65536").End(xlUp).Row
    If Range("C" & i).Value <> "" And Range("D" & i).Value <> "" Then
        cod = Range("C" & i).Value
        dest = Range("D" & i).Value
            Do While Range("C" & i + 1) = cod And Range("D" & i + 1).Value = dest
            Rows(i + 1).EntireRow.Delete
            Loop
    End If
Next i
End Sub


A coller dans le module VBA de la feuille contenant le tableau à analyser puis l’exécuter

Bonne journée

Jc
0