Verification de l'existance de la réference

[BLS77]

Bonsoir le forum

c'est encore moi
j'ai ecris une macro au moment d'enregistrer mes verifie que la réf n'existe sauf que il m'affiche le message que la réference existe mais il l'enregistre comme je joint le code pour voir ou j'ai pu faire une erreur

Sub Verif1()
Dim x, travv
deja = False
travv = DepTraitements.Réf.Caption
With Feuil11
For x = 1 To finf11
If .Cells(x, 2) = nohote And .Cells(x, 4) = travv Then mess_13: deja = True: Exit Sub
Next
End With
End Sub

et je l'ai mis sur mon bouton enregistrer comme ceci

Dim fin As Long
Dim haute As Integer
Verif1
fin = finf11 + 1
haute = trans.Cells(nohote, 1)
Feuil11.Cells(fin, 1) = CDate(Now): Feuil11.Cells(fin, 1).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 2) = nohote
Feuil11.Cells(fin, 3) = CDate(TxtDate): Feuil11.Cells(fin, 3).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 4) = Réf
Feuil11.Cells(fin, 8) = "x"

si quelqu'un peux m'aidé svp

 

[BLS77]

Re : Verification de l'existance de la réference

re bonsoir
quelqu'un peux jeter à coup d'oeil à mon souci svp

 

[Banzai64]

Re : Verification de l'existance de la réference

Bonsoir

peut-être en faisant ça

Dim fin As Long
Dim haute As Integer
Verif1
[COLOR="Red"]If deja = TRUE then Exit Sub[/COLOR]
fin = finf11 + 1
haute = trans.Cells(nohote, 1)
Feuil11.Cells(fin, 1) = CDate(Now): Feuil11.Cells(fin, 1).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 2) = nohote
Feuil11.Cells(fin, 3) = CDate(TxtDate): Feuil11.Cells(fin, 3).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 4) = Réf
Feuil11.Cells(fin, 8) = "x"

 

[BLS77]

Re : Verification de l'existance de la réference

Bonsoir le forum
bonsoir Benzai64
merci je vais testé pour voir

 

[BLS77]

Re : Verification de l'existance de la réference

Bonsoir
merci encore bonzai64
ca marche