XL 2016 Doublons

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #2

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

 

Vote positif 0 Vote négatif

J

Jorelle27

XLDnaute Nouveau

• 8 Mai 2024

• #3

En saisie et copier coller

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #4

Je ne vois que du VBA pour faire ça.

 

Vote positif 0 Vote négatif

J

Jorelle27

XLDnaute Nouveau

• 8 Mai 2024

• #5

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #6

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 ?

 

Vote positif 0 Vote négatif

J

Jorelle27

XLDnaute Nouveau

• 8 Mai 2024

• #7

La colonne A du fichier exel simplement pas de tableau

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #8

La colonne A possède un titre ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #9

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

 

Vote positif 0 Vote négatif

J

Jorelle27

XLDnaute Nouveau

• 8 Mai 2024

• #10

Dudu2 à dit:

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

Cliquez pour agrandir...

Valeur identique sur la colonne

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #11

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2024

• #12

Bonjour Jorelle27, Dudu2,

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

VB:

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+

 

Vote positif 1 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #13

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.

 

Dernière édition: 9 Mai 2024

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mai 2024

• #14

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é.

VB:

    '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

 

Pièces jointes

• VBA Empêcher saisie doublons sur colonne.xlsm

  33.6 KB · Affichages: 4

Dernière édition: 9 Mai 2024

Vote positif 1 Vote négatif

J

Jorelle27

XLDnaute Nouveau

• 10 Mai 2024

• #15

job75 à dit:

Bonjour Jorelle27, Dudu2,

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

VB:

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+

Cliquez pour agrandir...

Merci il fonctionne parfaitement

 

Vote positif 0 Vote négatif