Microsoft 365 Recherche à partir d'une TextBox

Francky79

XLDnaute Occasionnel
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 ?
VB:
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

XLDnaute Barbatruc
Bonjour,
Et si le TextBox est > à 32 767?
1708340946922.png

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

Discussions similaires

Réponses
6
Affichages
240
Réponses
5
Affichages
182

Statistiques des forums

Discussions
312 206
Messages
2 086 221
Membres
103 158
dernier inscrit
laufin