verifier si doublons N° facture

[tonyde54]

bonsoir le forum

dans mon classeur j'ai une feuille nommée (facture) et j'ai aussi une feuille nommée (données clients)

sur la (facture) j'ai un bouton qui me permet d'incrémenter le N° de facture
est j'ai aussi un bouton qui me permet d'archiver les données de la facture dans une base de donnée (données clients).

je voudrai lorsque j'appuie sur le bouton Archiver que ça me regarde les N° de facture archiver dans (données clients) pour voir si il ne se touve pas deja et s'il y est me donner un message me disant que se N° existe déja et dans mettre un autre avant d'archiver

j'espere que ma demande est assez clair

merci d'avance

tonyde54

 

[Hervé]

bonsoir


Cette macro vérifie l'existant d'un doublon dans une liste :

Public Sub tony()
Dim cel As Range
Dim numero As Long
Dim l As Integer
l = Range("a1000").End(xlUp).Row
numero = Application.InputBox("saisir un numéro :", "coucou", Type:=1)
For Each cell In Range("a1:a" & l)
If cell.Value = numero Then MsgBox ("Déja saisie"): Exit For
Next cell
End Sub

salut
Hervé

 

[andré]

Salut,

Je crois qu'il y a plus rapide : mettre une MFC (mise en forme conditionnelle) sur la cellule de la facture contenant le numéro avec la formule :
=NB.SI(la colonne des numéros dans le fichier données clients;la cellule de la facture contenant le numéro)>0

Ândré.

 

[tonyde54]

bonjour le forum

merci pour ces reponses

mais si quelqu'un peut me faire un fichier exemple

mais N° facture dans la feuille base (données clients) se trouve a partir de la cellule B3 à B10000 et le N° de facture selectionner dans la feuille (facture) se trouve dans la cellule O6

merci d'avance

tony