Extraire les données d'une cellule

Bonjour,

J'ai créer un petit formulaire mais actuellement je suis bloqué, mon code fonctionne pour les mots ou les lettres+chiffres mais pas pour les nombres uniquement. Je pense qu'il faudrait extraire les données de la cellule ou est-ce un autre problème s'il vous pait ?

Voici une partie du code (C'est la fonction If qui ne fonctionne pas) :

derniere_ligne = Cells(1, 6).End(xlDown).Row
For i = 2 To derniere_ligne

'ComboBox1 correspond à la zone de liste modifiable Section
'ListBox1 correspond à une zone de liste Code produit

        If ComboBox1.Value = Cells(i, 2).Value Then
            ListBox1.AddItem Cells(i, 1).Value
        End If
Next

Merci à vous de m'aider si vous avez une réponse.

SALUT

UN PETIT FICHIER EXEMPLE SVP

Convertis les nombres en texte :

MaChaine = CStr(MonEntier)

Steelson a écrit :

Convertis les nombres en texte :

MaChaine = CStr(MonEntier)

Merci ! Ce code fonctionne pour les nombres mais lorsqu'il y a un mélange de chiffre et lettre, cela ne fonctionne plus. Il n'y aurais pas une formule qui fonctionne pour les 2 ?

Dans ce cas teste d'abord pour savoir si la zone est texte ou non.

Isnumeric(LaCellule)

et ensuite applique la conversion.

Steelson a écrit :

Dans ce cas teste d'abord pour savoir si la zone est texte ou non.

Isnumeric(LaCellule)

et ensuite applique la conversion.

Après plusieurs heures de recherche, ça fonctionne enfin, merci beaucoup !!