Chiffres dans une TextBox

Bonjour,

Je suis entrain de faire un petit code, qui me paraissait basique. Mais je bloque malgré tout :/

Mon code balaie une colonne de la feuille de calcul, puis lorsque le texte de la TextBox_1 est égale au texte d'une cellule, alors on recopie la cellule de droite dans une autre Textbox.

Mon code marche à condition qu'il y ait une lettre ou un symbole dans la cellule. Par contre, si la cellule est remplie par un nombre, alors mon code ne marche pas. La cellule de droite n'est pas recopiée dans la 2ème Textbox. Pourquoi ?

Voici le code :

Sub recherche()
'
' Algo de recherche

'Déclaration de l'entier i
Dim i As Integer

'Remise à 0 de i
i = 0

    For i = 4 To 1000

'l'algorythme compare le contenu de la Textbox avec une cellule
    If TextBox1 = Cells(i, 1) Then

        'si le contenu de la cellule est égale à la Textbox, alors on recopie le contenu de la cellule de droite dans un 2ème textBox
        TextBox2 = Cells(i, 2)

    End If
        Next
End Sub

Merci pour votre aide

linkiset

Bonjour et bienvenue sur le forum

Le contenu d'un TextBox est, comme son nom l'indique, du texte. Même si à l'origine il s'agissait d'un nombre.

Alors, il te faut ruser, en écrivant par exemple ;

If TextBox1 = Cstr(Cells(i, 1)) Then

afin de comparer du texte avec du texte et non pas un texte et un nombre.

OK ?

Bye !

Je pensais bien que ça venait de la Textbox, mais impossible de contourner le problème.

Merci pour la réponse rapide !

A+