XL 2016 Doublons

Jorelle27 · 8 Mai 2024

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.

job75 · 8 Mai 2024

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+

Jorelle27 · 10 Mai 2024

Dudu2 à dit:
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

Merci, il fonctionne au top

XL 2016 Doublons

Jorelle27

XLDnaute Nouveau

job75

Jorelle27

XLDnaute Nouveau

Discussions similaires

XL 2016 Doublons

Jorelle27

XLDnaute Nouveau

Jorelle27

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency