aide sur code vba doublons

[fr832]

Bonjour à tous,
j'essaye d'adapter ce code récupéré sur ce forum au sujet des doublons.

Private Sub Worksheet_Change(ByVal Target As Range)
Doublon = Range("A65000").End(xlUp).Value
[COLOR="Red"]If Application.CountIf(Range("A3:A" & Range("A65000").End(xlUp).Row), Doublon) > 1 Then[/COLOR]MsgBox "cette référence, est déja saisie dans la liste d'articles!", vbExclamation
Range("A65000").End(xlUp).EntireRow.ClearContents
End If
End Sub

Mais il bugg, je l'ai collé dans ma feuille "ARTICLE".
Comment dois je le modifier ? car en vba suis complètement largué...

Pour saisir mes articles j'utilise un userform, ne faut il pas copier ce code avec mon code d'userform plutot que dans ma feuille?

Par avnce merci pour votre aide , cordialement

 

[Roland_M]

Re : aide sur code vba doublons

bonjour

déjà il me semble que c'est mal collé ici !

If Application.CountIf(Range("A3:A" & Range("A65000").End(xlUp).Row), Doublon) > 1
ThenMsgBox "cette référence, est déja saisie dans la liste d'articles!", vbExclamation

ThenMsgBox < doit être séparé > Then MsgBox

 

[fr832]

Re : aide sur code vba doublons

bonjour roland M et merci pour ton aide, mais meme en séparant then msgBox, ça bugg quand même.
merci

 

[soenda]

Re : aide sur code vba doublons

Bonjour le fil, Roland M, fr832

A coller dans un module standard et à appeler à partir de l'USF

Sub b()
    With [B][COLOR=red]Feuil1 [/COLOR][COLOR=green]' nom de la feuille à adapter[/COLOR][/B]
        If Application.CountIf(.[A:A], .[A65536].End(xlUp)) > 1 Then
            MsgBox "Cette référence, est déja saisie dans la liste d'articles!", vbExclamation
            .Rows(.[A65536].End(xlUp).Row).Resize(, [B][COLOR=red]20[/COLOR][/B]).ClearContents [B][COLOR=green]' 20 colonnes[/COLOR][/B]
        End If
    End With
End Sub

A plus

 

[fr832]

Re : aide sur code vba doublons

Bonjour soenda et le fil super impeccable j'ai réussi à l'adapter à mon programme et également compris l'erreur que m'expliqué Roland M;
Une bonne journée à tous et encore merci ,