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
et je l'ai mis sur mon bouton enregistrer comme ceci
si quelqu'un peux m'aidé svp
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
Code:
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
Code:
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"