Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Suppression doublons avec critère sur le début de la ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Fred51
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

Fred51

Guest
Bonjour,

débutant en VB, je dois faire une macro qui me supprime certaines lignes doublons.
Mon fichier ne comporte qu'une seule colonne, chaque cellule contenant une chaîne de caractères, que l'on distingue grâce au premier caractère : 1, 2 ou 3 :

10|reference|...|...
10|reference|...|...
10|reference|...|...
20|reference|...|...
20|reference|...|...
30|reference|...|...
30|reference|...|...
30|reference|...|...
30|reference|...|...
[...]
Cliquez pour agrandir...

Il faudrait que je puisse supprimer tous les doublons pour les lignes commençant par 1 ou 2 uniquement. J'ai essayé avec le filtre élaboré, ça marche si l'on sélectionne à la main uniquement les lignes désirées bien sûr, mais j'aimerais pouvoir faire ça de manière automatisée.

Si quelqu'un a une idée... Merci ! 🙂
 
Trier par date Trier par votes
Re : Suppression doublons avec critère sur le début de la ligne

Bonjour Fred, le forum,

Avec une macro, ce n'est guère compliqué (on suppose les données en colonne A et triées) :

Code: 
Sub SupDoublon()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If UCase(Cells(i, 1)) = UCase(Cells(i - 1, 1)) And Left(Cells(i, 1), 1) < "3" And Left(Cells(i, 1), 1) > "0" Then Rows(i).Delete
Next
End Sub

Edit : j'ai mis UCase pour le cas où l'on ne tient pas compte de la casse (majuscules ou minuscules)

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Suppression doublons avec critère sur le début de la ligne

Merci pour ta réponse ^^

En fait, mon fichier d'entrée n'est pas trié, et il ne doit pas l'être. Ces données sont destinées à être intégrées ligne par ligne dans une appli en vue de créer des objets, et l'ordre de création est très important.

J'avais pensé récupérer les lignes 30 de la feuille principale F1, les copier dans une nouvelle feuille F2, puis revenir à F1, supprimer les lignes 30, faire sur ce qui reste une extraction sans doublon, copier le résultat dans une troisième feuille F3, et concaténer à la fin de F3 les lignes 30 sauvegardées dans F2.

J'ai réussi à coder certains de ces traitements, mais à mon avis je suis en train de faire une usine à gaz alors que je suis sûr qu'il y a bien plus simple...
 
Vote positif 0 Vote négatif
Re : Suppression doublons avec critère sur le début de la ligne

Re,

Si le fichier ne peut pas être trié :

Code: 
Sub SupDoublon()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If IsNumeric(Application.Match(Cells(i, 1), Range(Cells(i - 1, 1), Cells(1, 1)), 0)) And Left(Cells(i, 1), 1) < "3" And Left(Cells(i, 1), 1) > "0" Then Rows(i).Delete
Next
End Sub

Application.Match (EQUIV) ne tient pas compte de la casse.

Edit : il ne faut pas qu'il y ait les caractères ~, * ou ?, sinon il faut compliquer un peu la macro :

Code: 
Sub SupDoublon()
Dim i As Long, txt$
For i = Range("A65536").End(xlUp).Row To 2 Step -1
txt = Replace(Cells(i, 1), "~", "~~")
txt = Replace(txt, "*", "~*")
txt = Replace(txt, "?", "~?")
If IsNumeric(Application.Match(txt, Range(Cells(i - 1, 1), Cells(1, 1)), 0)) And Left(txt, 1) < "3" And Left(txt, 1) > "0" Then Rows(i).Delete
Next
End Sub

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Suppression doublons avec critère sur le début de la ligne

Merci, j'ai testé ta première macro et ça a marché nikel. 😉

Il est possible en effet que dans une cellule on retrouve le caractère * dans la chaîne de caractères.
Je viens de tester ta seconde requête, et les doublons contenant * ne sont pas supprimés. 😕
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Suppression doublons avec critère sur le début de la ligne

Re,

J'avais traité le tildé en dernier, il faut bien sûr le traiter en premier, voir la macro précédente modifiée.

On peut aussi utiliser Application.CountIf (NB.SI), pour lequel le tildé n'a pas besoin d'être traité :

Code: 
Sub SupDoublon()
Dim i As Long, txt$
For i = Range("A65536").End(xlUp).Row To 2 Step -1
txt = Replace(Cells(i, 1), "*", "~*")
txt = Replace(txt, "?", "~?")
If Application.CountIf(Range(Cells(i - 1, 1), Cells(1, 1)), txt) And Left(txt, 1) < "3" And Left(txt, 1) > "0" Then Rows(i).Delete
Next
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Suppression doublons avec critère sur le début de la ligne

Je viens de tester, ça a l'air de très bien marcher. Je ferai d'autres tests ce soir.
Merci beaucoup pour ton aide !

Fred
 
Vote positif 0 Vote négatif
Re : Suppression doublons avec critère sur le début de la ligne




Bonjour,

Merci pour vos macros.
Je souhaiterais faire la même chose mais sans mettre de critères, simplement supprimer les casses identiques car j'ai des données du genre "FFHSJDF51" "UHJEF9ZE65"...

Merci de votre aide
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Résolu(e)
XL 2013 Suppression ligne/colonne sur deux zone dans même onglet
Réponses
7
Affichages
1 K
Alex6942
A
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
981
oguruma
S
  • Résolu(e)
Suppression de ligne automatique suivant un critère sur cette même ligne
Réponses
4
Affichages
507
StephanC
S
B
  • Question Question
Suppression de cellules spécifiques sur ligne selectionnée
Réponses
6
Affichages
2 K
Beoden
B
B
  • Question Question
XL 2013 [VBA] Extraction de données basé sur 2 à 3 conditions
Réponses
2
Affichages
2 K
bastienb
B
  • Question Question
XL 2016 Suppression de doublons en VBA et sous conditions
2
Réponses
19
Affichages
2 K
luke3300
E
  • Question Question
Autres Changer la couleur des caractères compris entre 2 chaînes de caractères sur une ligne dans Excel 2007 avec une Macro
Réponses
6
Affichages
2 K
sylvanu
  • Question Question
probléme avec sélection de la dernière feuille
Réponses
4
Affichages
1 K
ph.vanne
C
  • Question Question
Somme.si avec deux critères pour la colonne et un critère pour la ligne
Réponses
2
Affichages
2 K
R@chid
F
  • Question Question
Suppression de lignes sous conditions
Réponses
4
Affichages
1 K
Robert
G
  • Question Question
Compter le nombre de cellules vides avec un 2ème critère d'affichage
Réponses
1
Affichages
1 K
R@chid
G
  • Question Question
Reclasser une base horizontalement avec doublons
2
Réponses
16
Affichages
7 K
david84
D
F
  • Question Question
Filtre élaboré avec critère sur colonne contenant formule datdif.
Réponses
12
Affichages
2 K
fred777
F
D
  • Question Question
pb de liaison entre feuille et classeur avec modif de ligne
Réponses
0
Affichages
1 K
donmax
D
A
  • Question Question
Séparation de lignes grâce à un marqueur
Réponses
2
Affichages
1 K
vmatthieu
V
F
  • Question Question
Suppression d'un doublon non aléatoire
2
Réponses
16
Affichages
2 K
franzoose
F
I
  • Question Question
Macro Mise en forme partielle d'un texte selon le contenu de la cellule
Réponses
3
Affichages
7 K
Besnard68
B
T
  • Question Question
[Besoin de méthode d'optimisation de temps de traitement, macro VBA][RESOLU]
2
Réponses
22
Affichages
6 K
Thibault LB
T
L
  • Question Question
Comment supprimer des lignes avec de doublons suivant certains critères ?
Réponses
6
Affichages
3 K
looping_06
L
C
  • Question Question
Problème avec une macro de suppression de ligne
Réponses
3
Affichages
1 K
corate92
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…