Vba Reconnait text mais pas valeur numeric
Résolu
Bonjour, j'ai un petit problème qui dure depuis un moment et qui me parasite mon programme.
Ayant un tableau excel et un UserForm liée j'ai un programme qui me permet de trouver dans mon tableau une valeur et toute sa ligne associée en entrant la valeur souhaitée dans un textBox. Dès que la valeur cherchée et entrée ds le textBox contient du texte cela fonctionne, mais dès qu'il s'agit que de valeurs numériques alors qu'elle est présente ds mon tableau excel, impossible. Dés qu'il est rajouté une lettre à cette valeur numérique ds le tableau cela fonctionne a nouveau.
En espérant qu'une âme charitable m'éclaire de son savoir.
Ayant un tableau excel et un UserForm liée j'ai un programme qui me permet de trouver dans mon tableau une valeur et toute sa ligne associée en entrant la valeur souhaitée dans un textBox. Dès que la valeur cherchée et entrée ds le textBox contient du texte cela fonctionne, mais dès qu'il s'agit que de valeurs numériques alors qu'elle est présente ds mon tableau excel, impossible. Dés qu'il est rajouté une lettre à cette valeur numérique ds le tableau cela fonctionne a nouveau.
En espérant qu'une âme charitable m'éclaire de son savoir.
3 réponses
-
la variable associé à ta textbox doit être en string alors il ne prendra jamais les donnée numérique....
-
ModérateurBonjour,
Un textbox ernvoie toujours une valeur en String. Même si son contenu est numérique, il te faut le convertir pour obtenir une réelle valeur numérique.
Tu peux utiliser, selon tes valeurs (entiers...), CLng, CInt, CDbl.
CDbl(TextBox1) te renvoie une valeur numérique avec décimale
CLng(TextBox1) la même chose mais pour un nombre entier.
Ce test fonctionne avec CDbl :If TextBox1 = "" Then Exit Sub If Not IsNumeric(TextBox1) Then MsgBox "valeur non numérique. Attention à bien utiliser la virgule ou le point selon votre séparateur de décimale" Exit Sub End If MsgBox "valeur trouvée ligne : " & Cells.Find(CDbl(TextBox1)).Row -
Merci de l'aide je viens de réussir. Merci!
