aide sur code vba doublons

Roland_M

XLDnaute Barbatruc

• 27 Février 2010

• #2

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

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 27 Février 2010

• #3

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😕

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 27 Février 2010

• #4

Re : aide sur code vba doublons

Bonjour le fil, Roland M, fr832

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

Code:

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

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 27 Février 2010

• #5

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 , 🙂

 

Vote positif 0 Vote négatif