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

doublon par colonnes sans supprimer la ligne !!!

Créer une discussion

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
E

Evelynetfrancois

XLDnaute Impliqué
bonsoir
En cherchant sur le site j'ai trouvé et adapté cette macro qui efface juste le doublon dans la colonne , sans suprimer la ligne.......

elle fonctionne , mais , elle doit etre ecrite un peu "cochonne" !!!
il y a peut-etre plus simple non ?

D'autre part , à quoi ça correspondent les % ????

un grand Merci pour tout
E et F

Dim i%, k%
Dim j%, m%

'Pour suprimer les doublons présent dans la colonne B je fais ....

For i = 2 To Range("B100").End(xlUp).Row
For k = i + 1 To Range("B100").End(xlUp).Row
If Cells(i, 2).Value = Cells(k, 2).Value Then
Cells(k, 2).Value = ""
End If
Next k
Next i

'puis
'Pour suprimer les doublons présent dans la colonne D je fais ...

For j = 2 To Range("D100").End(xlUp).Row
For m = j + 1 To Range("D100").End(xlUp).Row
If Cells(j, 4).Value = Cells(m, 4).Value Then
Cells(m, 4).Value = ""
End If
Next m
Next j
End Sub
 
Trier par date Trier par votes
Re : doublon par colonnes sans supprimer la ligne !!!

Bonjour,

je pense que ce code devrait être plus rapide, on ne fait qu'une "descente", dans ta colonne D :

Code: 
Sub supp_doublons()
Dim Doublons As Object, I As Long
Set Doublons = CreateObject("Scripting.Dictionary") 'on déclare l'objet Doublons
    For I = 2 To [D65000].End(xlUp).Row 'de la ligne 2 à la dernière ligne de D
        If Not Doublons.Exists(Cells(I, 4).Value) Then 'si la valeur n'existe pas, on l'insère dans l'objet
            Doublons.Add Cells(I, 4).Value, Cells(I, 4).Value
        Else
            Cells(I, 4).ClearContents 'si elle existe, vide la cellule
        End If
    Next I
End Sub
 
Vote positif 0 Vote négatif
Re : doublon par colonnes sans supprimer la ligne !!!

Bonsoir bhbh
Merci pour ta proposition, mais je développe l’idée ...

Ma macro est " doublée " pour traiter indépendamment la colonne B ........puis la colonne D
Ces deux colonnes n'ayant rien à voir entre elles, elles ne font que de collecter des infos, pour alimenter des combos.

[.Range("D" & .Range("D100").End(xlUp).Row + 1) =Application.Proper(ComboBox2.Text)
...........
Elles se trouvent l'une à cote de l’autre, et toutes les soluces de suppressions de doublons que j ai trouvé, suppriment les lignes complètement !!! Ce qui ne m'arrange pas du tout ....
Donc je les " traite" l'une après l’autre .....de façon indépendante,
La 1er macro efface les doublons compris dans la coll B
La 2° macro efface les doublons compris dans la coll D
Puis je trie chaque colonne indépendamment pour resserrer les infos ainsi épurées……
Voilà voilou

Bonne soirée, encore merci pour tout …… !
E et F
 
Vote positif 0 Vote négatif
Re : doublon par colonnes sans supprimer la ligne !!!

Re-,

essaie ainsi :

Code: 
Sub supp_doublons_et_tri()
Dim Doublons As Object, I As Long
Set Doublons = CreateObject("Scripting.Dictionary") 'on déclare l'objet Doublons
    For I = 2 To [B65000].End(xlUp).Row 'de la ligne 2 à la dernière ligne de D
        If Not Doublons.Exists(Cells(I, 2).Value) Then 'si la valeur n'existe pas, on l'insère dans l'objet
            Doublons.Add Cells(I, 2).Value, Cells(I, 2).Value
        Else
            Cells(I, 2).ClearContents 'si elle existe, vide la cellule
        End If
    Next I
Doublons.RemoveAll
    For I = 2 To [D65000].End(xlUp).Row 'de la ligne 2 à la dernière ligne de D
        If Not Doublons.Exists(Cells(I, 4).Value) Then 'si la valeur n'existe pas, on l'insère dans l'objet
            Doublons.Add Cells(I, 4).Value, Cells(I, 4).Value
        Else
            Cells(I, 4).ClearContents 'si elle existe, vide la cellule
        End If
    Next I
Range("B1:B" & [B65000].End(xlUp).Row).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess
Range("D1:D" & [D65000].End(xlUp).Row).Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess
End Sub
 
Vote positif 0 Vote négatif
Re : doublon par colonnes sans supprimer la ligne !!!

RE bhbh . MERCI

Bon , là je viens de tester Ta macro avec "F8", effectivement ta proposition est bien plus rapide !!!!!
De plus je note le tri des colonnes , bien plus court qu'avec l'enregistreur !!

je te remercie beaucoup pour le temps que tu m'as consacré, et pour ton efficacité

au plaisir de te lire de nouveau
trés bonne soirée
E et F heureux !!!
 
Vote positif 0 Vote négatif
Re : doublon par colonnes sans supprimer la ligne !!!

Re-,

pour tester la rapidité d'un code, tu ajoutes ceci en début de code :

Code: 
t = Timer

et en fin de code, dessus le End Sub :

Code: 
MsgBox Timer - t
 
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

Discussions similaires

N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
938
n_turf
N
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
185
deudecos
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
542
dysorthographie
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
275
LaurentVasseur
L
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
738
kiki29
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
793
lynyrd
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
917
TooFatBoy
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
400
jp26200
J
Y
  • Question Question
Microsoft 365 Cdbl et nombres à virgules
Réponses
4
Affichages
284
Valtrase
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
195
philmaure
P
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
373
Piment
P
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
247
treza88
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
777
youguybass
Y
  • Question Question
XL 2019 Erreur d'exécution "13"
Réponses
1
Affichages
360
sylvanu
N
  • Question Question
Listbox click
Réponses
10
Affichages
673
ChTi160
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
487
Electron24
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
570
mikeduff
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…