Salut à tous, j'ai un petit probléme avec mon code.
Ma vérification ne marche pas,il me trouve jamais de référence existance.
Quelq'un pourrait me dire ou est l'erreur?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub ComboBox3_Change()
 
     If ComboBox3 = "" Then Exit Sub
     mot = "00000"
    valeurAdditionee = Mid(TextBox3, 1, InStr(TextBox3, "D") - 1)
    reste = Mid(TextBox3, InStr(TextBox3, "D"))
    valeurAdditionee = Val(valeurAdditionee) + Val(ComboBox3)
    TextBox4 = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste
    'vérification sérial'
  RefDebut = TextBox3.Value
  nbRef = ComboBox3.Value
  Set zoneDesRef = Range("B4:B2000,D4:D2000")
  For Each cellule In zoneDesRef
    For i = 0 To nbRef
        numNouvelleRef = Val(Mid(RefDebut, 1, InStr(TextBox3, "D"))) + i
 
        longNum = Len(numNouvelleRef)
        refATrouver = Left(RefDebut, 1) & Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste & numNouvelleRef
        If cellule.Value = refATrouver Then
            trouver = "OUI"
            Exit For
        End If
    Next
    If trouver = "OUI" Then
        Exit For
    End If
Next
 
If trouver = "OUI" Then
    MsgBox ("Une référence existante a été trouvée")
    Unload sérial
End If
End Sub
A+