Saisie doublon

[aziz]

Bonjour à tous, quand je saisie directement les numéros
le contrôle vba des doublons fonctionne, mais quand je selectionne les 2 dernier numéro
pour étirer les numéros en +, j'ai une erreur exécution 13
😕
Merci pour votre
aide

 

[DoubleZero]

Re : Saisie doublon

Bonjour, aziz, le Forum,

Remplacer, peut-être, cette ligne de code :

 If Target.Column = 1 Then

par celle-ci :

 If Target.Column = 1 And Target.Count = 1 Then

A bientôt 🙂

P. S. : Bonjour, Efgé 😀

 

[Efgé]

Re : Saisie doublon

Bonjour aziz
Une proposition:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i&
 'colonne à "surveiller" (ici colonne A)
 If Target.Column = 1 Then
     '  pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
     '  If Application.WorksheetFunction. _
     '    CountIf(Range(Cells(2, 1), _
     '    Cells(Target.Row, 1)), Target.Value) > 1 Then
    
     '  pour vérifier si la saisie n'existe pas déjà dans la colonne
      For i = 1 To Target.Count
        If Application.WorksheetFunction. _
            CountIf(Range("A:A"), Target(i).Value) > 1 Then
                MsgBox "Number has been used -- Try again"
                Target(i).Value = ""
                If Target.Count = 1 Then Target.Select
        End If
    Next i
 End If
 End Sub

Cordialement

EDIt Bonjour 00 🙂 , désolé, pas raffraichi

 

[aziz]

Re : Saisie doublon

Merci Beaucoup
c'est parfait