Transposer des lignes avec données partiellement identiques
creator3_1969
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
titeufdu89 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
titeufdu89 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Transposer des lignes avec données partiellement identiques
- Fuite données maif - Guide
- Trier des données excel - Guide
- Partager des photos en ligne - Guide
- Sauvegarde des données - Guide
- Supprimer les données de navigation - Guide
1 réponse
Bonjour Laurent,
Voici une macro qui devrait faire l'affaire :
A coller dans le module VBA de la feuille contenant le tableau à analyser puis l’exécuter
Bonne journée
Jc
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