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

VBA pour détecter les doublons d'une colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pepsi
  • 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

pepsi

XLDnaute Occasionnel
Bonjour le forum 🙂

j'ai récupéré un code qui permet de détecter les doublons d'une colonne
le problème c'est qu 'il considère le 0 comme un doublon, et j'aimerai éviter cela

comment puis je modifie le code?

merci d'avance
Code: 
Sub Doublon()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Feuil1")
 
    'en colonne "A" à partir de A2
       Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
 
    'boucle la plage de la feuille "Compte" et cherche chaque valeur
   'en correspondance exacte dans la plage de la feuille "Source"
   For Each Cel In Plage
 
        If Application.CountIf(Plage, Cel.Value) > 1 Then
 
            MsgBox "Attention, la valeur '" & Cel.Value & "' est en doublon," _
                   & " veuillez éliminer manuellement le double situé en '" & Cel.Address(0, 0) _
                   & "' avant de pouvoir exporter les données !"
 
            Cel.Interior.ColorIndex = 3
 
        End If
 
    Next Cel
 
End Sub
 
Trier par date Trier par votes
Re : VBA pour détecter les doublons d'une colonne

Bonjour, eh bien après For Each Cel In Plage
Rajouter une condition, exemple : if not Cel.value = 0 then
Qui veut dire littéralement, si ma cellule n'est pas égale à zéro.

Non ?
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

En gardant ta procédure tu peux faire :
Code: 
 If Cel.Value <> 0 Then
If Application.CountIf ...
End If
End If
Mais tu devrais regarder du côté du dictionary qui sera sans aucun doute plus rapide pour sortir les doublons.

Edit: Bonjour Cpk.
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

Bonjour

Tu dois pouvoir faire avec un truc du style

For Each Cel In Plage
If cel.Value <> 0 then
If Application.CountIf(Plage, Cel.Value) > 1 Then
.......
End If
End If
Next cel
End Sub

@ plus
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

C'est vrai que la procédure peut s'avérer longue.

en fait l'idéal serait un code, qui dès que je tape une valeur en doublon, la valeur s'affiche en rouge pour signaler le doublon

mais je n'arrive pas à trouver une écriture
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

Pour vérifier les doublons en colonne A avec une MsgBox qui affiche la liste et les adresse.
Code: 
Sub Doublon()
    Dim Plage As Range
    Dim Cel As Variant
 
Set Plage = Worksheets("Feuil1").Range("a2:a" & [a65000].End(xlUp).Row)
Set d = CreateObject("Scripting.Dictionary"): Set d2 = CreateObject("Scripting.Dictionary")

   For Each Cel In Plage
        If Cel.Value <> 0 And d.exists(Cel.Value) Then
            Cel.Interior.ColorIndex = 3: d2(Cel.Address) = Cel.Value
                Else: d(Cel.Value) = ""
        End If
    Next Cel
    
    For Each Cel In d2.Keys
        m = m & Chr(10) & d2(Cel) & " en " & Cel
    Next Cel
    
MsgBox "Les valeurs suivantes sont en doublons, les supprimer manuellement" & m, vbCritical
End Sub
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

Il doit y avoir plus simple que le code ci-après, mais c'est une idée.

Code: 
Public a
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Set d = CreateObject("Scripting.Dictionary")
        For Each c In a: d(c) = "": Next c
            If d.exists(Target.Value) Then MsgBox "La valeur existe déjà", 16
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
a = Worksheets("Feuil1").Range("a2:a" & [a65000].End(xlUp).Row).Value
End If
End Sub
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

Tu penses qu'il est possible de modifier ton premier code pour que les 2 valeurs en double passent en rouge ? et pas uniquement le doublon
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

Bonjour à toutes et à tous. Sinon cela peut se faire également en validation de donnée. Exemple de formule

Code: 
=NB.SI($A:$A;A1)=1
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne


le code est sensible à la casse. si je met une majuscule à un mot il ne le considère plus en doublon.
je ne vois pas ou cela est déclaré
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

Code: 
Sub Doublon()
    Dim Plage As Range
    Dim Cel As Variant
 
Set Plage = Worksheets("Feuil1").Range("a2:a" & [a65000].End(xlUp).Row)
Set d = CreateObject("Scripting.Dictionary"): Set d2 = CreateObject("Scripting.Dictionary")

   For Each Cel In Plage
        If Cel.Value <> 0 And d.exists(Ucase(Cel.Value)) Then
            Cel.Interior.ColorIndex = 3: d2(Cel.Address) = Cel.Value
                Else: d(Ucase(Cel.Value)) = ""
        End If
    Next Cel
    
    For Each Cel In d2.Keys
        m = m & Chr(10) & d2(Cel) & " en " & Cel
    Next Cel
    
MsgBox "Les valeurs suivantes sont en doublons, les supprimer manuellement" & m, vbCritical
End Sub

Dis-moi si ça fonctionne.
 
Vote positif 0 Vote négatif
Re : VBA pour détecter les doublons d'une colonne

Bonjour

pepsi à dit:
C'est vrai que la procédure peut s'avérer longue.

en fait l'idéal serait un code, qui dès que je tape une valeur en doublon, la valeur s'affiche en rouge pour signaler le doublon

mais je n'arrive pas à trouver une écriture
Cliquez pour agrandir...

Le plus simple serait d'utiliser une mise en forme conditionnelle, non ?

@ plus
 
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

J
  • Résolu(e)
XL 2019 Interdire les doublons dans ListBox
Réponses
3
Affichages
108
JLR67
J
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
858
Dranreb
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
238
TooFatBoy
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
479
CortoXls
C
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
202
Lu76Fer
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
134
sylvanu
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
340
VBA_dev_Anne_Marie
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
26
Affichages
407
Webperegrino
W
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
180
dysorthographie
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
223
vgendron
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
665
AtTheOne
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
475
sylvanu
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
505
tnion
T
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
405
sylvanu
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
232
cathodique
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
488
patricktoulon
Capturer et imprimer ou exporter en pdf un userform
Réponses
3
Affichages
233
patricktoulon
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
644
Gestionnaire_rh
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…