Contrôle Doublons avant envoi

[steph71]

Bonjour à tous


j'ai crée un userform qui facilite l'envoi de données vers une feuille.
je bloque aujourd'hui sur le code à mettre en place pour vérifier l'existence ou non d'un doublon avant envoi.

je vous joins un fichier explicatif

Merci d'avance pour votre aide

Bonne fin de journée

Stéphane [file name=Classeur1_20051025165649.zip size=5086]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051025165649.zip[/file]

 

[Nikolaï]

Bonjour Steph71

A mon avis, avant de transferer tes informations dans ta feuilles il faut d'abord faire une recherche dans ton fichier (For ... Next) and tu dois rechercher tous ce qui pourrait etre égal à tes informations dans ta Userform.

Exemple:

Dim CELL as range, TROUVE as boolean
TROUVE=false
For each CELL in range('A2:A10')
if cell=userform1.textbox1 and cell(1,2)=userform1.textbox2 and cell(1,3)=userform1.textbox3 then
msgbox 'ces informations existent dejà !!!'
TROUVE=true
exit for
end if
next

if TROUVE=false then
'met tes informations dans ta feuille.
end if

Bonne soirée
Christophe