interdir le même N° de facture

[Fermo]

Bonjour tout le monde,pouvez m'aider...

En effet, j'amerais interdir l'enregistrement du N° de facture, s' il existe déjà dans une feuille qui fait office de sauvegarde et stat.

Merci d'avance Fermo

 

[Yolène]

tu peux affecter une variable à la cellule qui contient le n° de facture ou à l'objet (zone de texte par exemple).
puis tu scrute dans le fichier d'origine si cette variable existe déjà.
par exemple

nomvariable = activecell (cellule sur laquelle tu travailles)

Workbooks.Open FileName:= "nomfichier.xls"
(avec la ligne précédente, tu ouvres le fichier,y inclure éventuellement le chemin si le fichier ne se trouve pas dans le même dossier. L'idéal c'est peut-être que les deux fichiers soient déjà ouverts.)

(tu sélectionne la colonne où se trouve les n° de factures (exemple pour la colonne A mais il peut aussi s'agir d'une plage nommée.)

Set valeurs = Range("A1", [A1].End(xlDown))
Nbvaleurs = valeurs.Count
Range("A1").Select

For i = 1 To Nbvaleurs
if activecell = nomvariable
msgbox "Cette facture existe déjà")

(après le clic sur le message tu peux soit demander de fermer ce fichier ou de le laisser ouvert, et retourner sur la feuille que tu étais en train de remplir)
sheets(nomfeuilled'origine).select
activecell.clearcontents (efface la cellule où le n° de facture était écrit ou éventuellement une plage ou une ligne selon le cas.
end if

else (tant que tu ne trouve pas le n°de facture il continue jusqu'en bas)
ActiveCell.Offset(1, 0).Select
Next i

(S'il n'ya pas de doublon il retourner sur la feuille d'origine et la cellule d'origine)
sheets (nomfeuilled'origine).select

ce qui est entre parenthèses n'est pas à inclure bien sûr dans la macro sauf remplacer (nomfeuilled'origine) par la vrai feuille.