Doublon Excel VBA

Bonjour le forum

J'ai une macro qui fonctionne très bien, mais le hic, par défaut elle efface le N° de dossier en double.

Elle ne me laisse pas le choix de continuer comme montré dans Excel avec Validation de données.

Est-il possible de faire cette manipulation et seulement en VBA

Merci

Bonjour

Quelle est l'utilité du bouton "Annuler" ?

En attendant ta réponse remplaces la macro actuelle par celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("A6:A164")) Is Nothing Then
    If Application.WorksheetFunction. _
       CountIf(Range("A6:A164"), Target.Value) > 1 Then

      If MsgBox("Ce N°: de Dossier est déjà enregistrée" & vbCr & "voulez vous continuer ?", vbExclamation + vbYesNoCancel, "Dossier N°:  " & Range("CM6").Text & "-" & Range("CN6").Value) <> vbYes Then
        Target.Value = ""
        Target.Select
      End If

      Application.EnableEvents = True

    End If
  End If

End Sub

Salut Banzai64

Un big merci,

en ce qui concerne le "cancel" c'est vrai il ne sert à rien mais je me suis inspiré de la validation et je l'ai utilisé comme modèle voila tout

Encore merci

Bonjour

Donc tu peux remplacer vbYesNoCancel par vbYesNo

If MsgBox("Ce N°: de Dossier est déjà enregistrée" & vbCr & "voulez vous continuer ?", vbExclamation + vbYesNo "Dossier N°:  " & Range("CM6").Text & "-" & Range("CN6").Value) <> vbYes Then

Salut Banzai64

Ok merci