Aide création macro
Résolu
kassarasta
Messages postés
25
Statut
Membre
-
kassarasta Messages postés 25 Statut Membre -
kassarasta Messages postés 25 Statut Membre -
Bonjour a tous,
Je refait une nouvelle conversation car je me suis aperçu que je m'exprimé mal sur l'ancienne.
Etant nul en conception de macro ( limite j'y connais rien ) j'aurai besoin d'un coup de main.
Ce dont j'ai besoin c'est que la macro recherche les doublons de la colonne A à D et que si c'est un doublons qu'il concatener la ligne entière! Et ce la jusqu’à la fin de mon fichier qui comporte pour le moment 96000 lignes et ou il risque y en avoir plus au final.
Mon patron me demande cela aujourd'hui pour hier ( façon de parler ) donc c'est relativement urgent!!
Merci d'avance à tous.
Je refait une nouvelle conversation car je me suis aperçu que je m'exprimé mal sur l'ancienne.
Etant nul en conception de macro ( limite j'y connais rien ) j'aurai besoin d'un coup de main.
Ce dont j'ai besoin c'est que la macro recherche les doublons de la colonne A à D et que si c'est un doublons qu'il concatener la ligne entière! Et ce la jusqu’à la fin de mon fichier qui comporte pour le moment 96000 lignes et ou il risque y en avoir plus au final.
Mon patron me demande cela aujourd'hui pour hier ( façon de parler ) donc c'est relativement urgent!!
Merci d'avance à tous.
A voir également:
- Aide création macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Création compte google - Guide
- Creation compte vinted - Guide
- Creation compte gmail - Guide
- Création site web - Guide
2 réponses
Voilà un code qui devrait faire l'affaire avec 2 prérequis :
1) vous partez des mêmes dispositions que le document joint par vous-memes : https://www.cjoint.com/c/FBzkXf1Udxi
2) Veuillez d'abord trier l'ensemble du tableau par ordre alphabétique de votre colonne A:A de concaténation pour identifier les doublons.
Le code s'applique par défaut sur la 1ère feuille et s'arrête à la colonne V:V
1) vous partez des mêmes dispositions que le document joint par vous-memes : https://www.cjoint.com/c/FBzkXf1Udxi
2) Veuillez d'abord trier l'ensemble du tableau par ordre alphabétique de votre colonne A:A de concaténation pour identifier les doublons.
Le code s'applique par défaut sur la 1ère feuille et s'arrête à la colonne V:V
Sub test()
With Sheets(1)
Dim DernLigne As Long
DernLigne = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To DernLigne
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
For j = 6 To 22 'de la col F:F à V:V
Cells(i - 1, j).Value = Cells(i - 1, j).Value & " ; " & Cells(i, j).Value
Next j
Rows(i).Delete
i = i - 1
End If
Next i
End With
End Sub
En fait mon fichier est un fichier clients que je viens de récupérer et qui a besoin d'un traitement de doublon mais en gardant toute les données car ces clients sont deja distribuer a des personnes!! Donc j'ai des observations a conserver ( créer par la vendeuse ) l'origine de la fiches mais aussi ou elle se trouve ..... enfin bref toutes les sont a garder!!
Mettez des "XXXX" au lieu des données confidentielles/nominatives si besoin.
- Vous utilisez les filtres ou recherche/remplace pour supprimer tous les contenus de cellule qui ne correspondent à aucune donnée, par exemple : "IMPOSSIBLE A VOIR" doit devenir une cellule vide pour tout le tableau
- Ensuite vous ajouter une colonne en début de tableau (en A:A) dans laquelle vous faites la concaténation des données qui serviront d'identification pour les doublons. par exemple les colonnes A à D actuelles (donc B à E après ajout de la colonne en A:A)
-> conseil : séparer par un point virgule vos cellule : en A2 :
2solutions :
- Je vous fais enfin un code qui pour plusieurs lignes doublons n'en gardera qu'une en prenant la première information pour chaque colonne que les doublons proposent.
- Je vous fais enfin un code qui pour plusieurs lignes doublons n'en gardera qu'une en prenant la concaténation des informations disponibles sur la même colonne.
A vous de choisir :-)