XL 2016 Doublons

[Jorelle27]

Bonjour la team,
Jai est gros soucis je souhaite bloqué les doublons sur une colonne Excel et j’ai essayé =countif(A:A,A2)=1 qui marche. mais la faille c’est quand je fais du copier coller ça ne bloque pas

J’ai besoin de vous les experts.

 

[Dudu2]

Bonjour,
Tu souhaites les bloquer à quel moment ? En saisie ?

 

[Jorelle27]

En saisie et copier coller

 

[Dudu2]

Je ne vois que du VBA pour faire ça.

 

[Jorelle27]

propose moi un truc s’il te plaît je ne suis pas calé en vba

 

[Dudu2]

Dans le vide, comme ça je ne ne peut rien proposer.
Est-ce une saisie dans un tableau structuré ? Sur une ou des colonnes particulières ? Autre chose ?
Un fichier ?

 

[Jorelle27]

La colonne A du fichier exel simplement pas de tableau

 

[Dudu2]

La colonne A possède un titre ?

 

[Dudu2]

C'est quoi un doublon ? Casse exactement équivalente ou non considérée ? Ignorer les blancs de marges ?

 

[Jorelle27]

C'est quoi un doublon ? Casse exactement équivalente ou non considérée ? Ignorer les blancs de marges ?

Valeur identique sur la colonne

 

[Dudu2]

Questions déjà posées, encore un effort...
La colonne possède-t-elle un titre ?
C'est quoi une valeur identique ? "TOTO" est identique à "toto" ou pas ? " TOTO " (espaces avant et/ou après) est identique à "TOTO" (sans espaces avant et/ou après) ou pas ?

 

[job75]

Bonjour Jorelle27, Dudu2,

Placez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, c As Range
Set plage = Range("A:A") 'à adapter
Set Target = Intersect(Target, plage, UsedRange)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each c In Target 'si entrées multiples
    If c <> "" Then If Application.CountIf(plage, c) > 1 Then MsgBox "Doublon en " & Target.Address(0, 0) & " l'entrée va être annulée...", 48: Application.Undo: Exit For
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

 

[Dudu2]

Bonjour @job75,

Avant que tu ne postes, j'avais fait un code beaucoup plus "lourd" que le tien qui est parfait.
Mais en introduisant quelques options (le demandeur n'ayant pas répondu ou voulu répondre aux questions) et en travaillant uniquement sur des tables, tout ça le rendant beaucoup plus "consistant", surtout à cause des fonctions annexes nécessaires.

 

[Dudu2]

En plus avec le traitement optionnel des diacritiques aussi !
Juste pour le fun. Pour le demandeur et ses "valeurs identiques" ton code est bien adapté.

    'Paramètres de traitement
    Const NoColonneConcernée = 1
    Const NbLignesTitre = 1
    Const AccepteValeurVide = False
    Const StringCompare = True
    Const IgnorerCasse = True
    Const IgnorerDiacritiques = True
    Const TrimCompare = True

 

[Jorelle27]

Bonjour Jorelle27, Dudu2,

Placez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, c As Range
Set plage = Range("A:A") 'à adapter
Set Target = Intersect(Target, plage, UsedRange)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each c In Target 'si entrées multiples
    If c <> "" Then If Application.CountIf(plage, c) > 1 Then MsgBox "Doublon en " & Target.Address(0, 0) & " l'entrée va être annulée...", 48: Application.Undo: Exit For
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

Merci il fonctionne parfaitement