Microsoft 365 Recherche à partir d'une TextBox

[Francky79]

Bonjour,

Avec le code ci-dessous je recherche la valeur de la TextBox dans une feuille, si le nombre comprend 5 chiffres le code marche si le nombre comprend 6 chiffres il ne marche plus.
Pouvez-vous me dire la raison ?

Private Sub CommandButton1_Click()
Dim N As Integer
Dim L As Integer
Dim i As Integer
If TextBox1 = "" Then Exit Sub
N = TextBox1.Value
For i = 6 To Range("E65536").End(xlUp).Row
If Sheets("Feuil1").Cells(i, 5).Value = N Then
L = i
Rows(i).Select
End If
Next i
Unload Me
End Sub

Merci pour votre aide.

 

[Cousinhub]

Bonjour,
Et si le TextBox est > à 32 767?

En définissant N en Long, peut-être?

 

[Francky79]

Merci pour ton aide,

Effectivement si la valeur >32767 le code bloc.
Une solution pour contourner le problème ?
Définir N en Long, comment tu fais ça ?

 

[Cousinhub]

Re-,
Au lieu de Dim N as Integer, tu mets Long...

 

[Francky79]

Merci Coucinhub, avec Long ça à l'air ok.