Sub VerifDoublonsNoCheque(Banque, NumCheque)
' VerifDoublonsNoCheque(Me.ComboBanque, Me.TxtNumChèque)
Doublon = True ' True si pas de doublon, false si doublon
Nombanque = Banque
ListeCheque = Sheets(Nombanque).Cells(Rows.Count, 3).End(xlUp).Row
If ListeCheque < 2 Then Exit Sub ' Pas de chèque enregistré
For I = 2 To ListeCheque
If Sheets(Nombanque).Cells(I, 3) = Val(NumCheque) Then
Doublon = False ' False car N° de chèque trouvé
Exit Sub ' Comme doublon trouvé, on sort
End If
Next I
End Sub
Call VerifDoublonsNoCheque(Me.ComboBanque, Me.TxtNumChèque)
If Doublon = False Then
MsgBox " N° de chèque déjà saisi."
Exit Sub
End If
Bonjour tout le monde,
Tim, j'ai rajouté un module :
Il est appelé par ce call dans CmBValider_Click.VB:Sub VerifDoublonsNoCheque(Banque, NumCheque) ' VerifDoublonsNoCheque(Me.ComboBanque, Me.TxtNumChèque) Doublon = True ' True si pas de doublon, false si doublon Nombanque = Banque ListeCheque = Sheets(Nombanque).Cells(Rows.Count, 3).End(xlUp).Row If ListeCheque < 2 Then Exit Sub ' Pas de chèque enregistré For I = 2 To ListeCheque If Sheets(Nombanque).Cells(I, 3) = Val(NumCheque) Then Doublon = False ' False car N° de chèque trouvé Exit Sub ' Comme doublon trouvé, on sort End If Next I End Sub
A vérifier, ça a l'air de marcher.Code:Call VerifDoublonsNoCheque(Me.ComboBanque, Me.TxtNumChèque) If Doublon = False Then MsgBox " N° de chèque déjà saisi." Exit Sub End If
je veux eviter un doublons dans la saisie au niveau de N°CHEQUE
Bonjour, je ne répondais qu'au post #1.
VB:je veux eviter un doublons dans la saisie au niveau de N°CHEQUE