Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

A tester :

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

Bonjour chris

Salut suistrop

Je l'ai fait , je le propose

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

Merci PierreJean

Cela fonctionne vriment bien.
Merci également suistrop de m'avoir appoetée ton aide

Bonne fin d'après midi

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

PierreJean

Pourriez-mettre des commentaires dans le code car j'ai déplacé ma plage en C2 (au lieu de B2) et je parviens pas à adapter la macro

Merci

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

Re

Voila avec commentaires (j'ai fait au mieux mais ce n'est pas ma specialité !!)

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

Re Pierrejean
Ca fait un moment que je me creuse avec ce code qui dépasse mon petit niveau débutant

J'ai essayé de le modifier suite au changement de plage C2 à C50 mais il me remonte aussi les valeurs de la colonne C. Je ne comprends pas pourquoi

Je mets le code modifié


Sub test()
Application.ScreenUpdating = False
'parcourir les lignes de la derniere a a la seconde
For n = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
'si la concatenation de la ligne n (colonnes B à D) est egale a la concatenation de la ligne n-1 (colonnes de B à D) alors
If Range("C" & n) & Range("D" & n) & Range("E" & n) = Range("C" & n - 1) & Range("D" & n - 1) & Range("E" & n - 1) Then
'chercher la derniere colonne ecrite de la ligne n-1 et ajouter 1 (pour avoir la premiere cellule vide de la ligne n-1)
col = Range("IV" & n - 1).End(xlToLeft).Column + 1
'chercher la derniere colonne ecrite de la ligne n et alouter 1 poiur avoir la premiere cellule vide de la ligne n
col2 = Range("IV" & n).End(xlToLeft).Column + 1
'copier les cellules de la ligne n de la 5eme colonne a la colonne col (voir plus haut)
Range(Cells(n, 5), Cells(n, col2)).Copy
'selectionner la premiere cellule vide de la ligne n-1
Cells(n - 1, col).Select
'coller
ActiveSheet.Paste
'effacer la ligne n
Rows(n).Delete
End If
'ligne suivante
Next
Application.ScreenUpdating = True
End Sub

C'est tellement frustrant d'être aussi nul!

Si tu peux me venir en aide
Merci

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

Re

Remplace

Range(Cells(n, 5), Cells(n, col2)).Copy par
Range(Cells(n, 6), Cells(n, col2)).Copy

Re : Suppression de doublons après avoir récupérér des données : UN VRAI CASSE TETE

Merci encore pour ton aide Pierre jean