Msgbox si doublon

[Claudy]

Bonjour,
un tableau rempli via un USF...
Ce tableau comporte plus de 2000 lignes et sur 8 colonnes.
M'est t il possible de faire apparaitre une alerte (Msgbox), si dans mon usf, j'introduit un montant (Colonne F:F) en doublon?
Merci d'avance,
Claudy

 

[mintri]

Re : Msgbox si doublon

Bonjour Claudy,

Aurais-tu un fichier "exemple" pour investiguer davantage ?

 

[Vorens]

Re : Msgbox si doublon

Hello Claudy,


Tout simplement en effectuant un find sur ta colonne.

Exemple de syntaxe:

Set ObjetExist = Workbooks("Mon Classeur").Sheets("Ma Table").Range("F" & "1").EntireColumn.Find(MaRecherche, lookat:=xlWhole)

Bien sure remplacer "mon Casseur" / "Mon Table" et "ma recherche" ainsi que la lettre de la colonne ou doit s'effectuer la recherche

Apres en fonction du résultat tu enregistre ou tu met la message box

If  ma recherche Is Nothing Then

'Code pour enregistrer

Else

msgbox ("BOULONS")

End If

Meilleures salutations

Vorens