J'ai une textbox sur un formulaire dans lequel l'utilisateur saisit un
nombre.
Puis je compare ce nombre =E0 une colonne de nombres.
Si le nombre de la textbox > au nombre de la cellule s=E9lectionn=E9 dans
ma colonne, alors je supprime la ligne/
Mais quand je fais
If TextBox10.Value < Range("L" & i).Value Then
ma textbox est rempli par "1" et ma range("L" & i) par 1 (sans les
guillements).
Du coup je n'arrive pas =E0 comparer les deux.
Comment enlever les guillements de la valeur de la textbox ?
If TextBox10.Value * 1 < Range("L" & i).Value Then ou If TextBox10 * 1 < Range("L" & i).Value Then
Je n'ai pas essayé
Tiens moi informé !!!!!
Merci mais ça ne marche pas :(
MichD
Bonjour,
Le contenu d'un textbox représente toujours du Texte, peu importe la valeur inscrite. Si tu veux comparer la valeur d'un nombre avec un nombre dans une cellule...tu dois utiliser une fonction de conversion pour passer d'une valeur texte à une valeur numérique.
Voici un exemple :
Dim X as Double If Application.IsNumber(Me.Textbox1) then X = cdbl(Me.Textbox1) if x < Range("L" & i).Value then 'Ton code end if End if
MichD -------------------------------------------- "stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une textbox sur un formulaire dans lequel l'utilisateur saisit un nombre. Puis je compare ce nombre à une colonne de nombres. Si le nombre de la textbox > au nombre de la cellule sélectionné dans ma colonne, alors je supprime la ligne/
Mais quand je fais If TextBox10.Value < Range("L" & i).Value Then
ma textbox est rempli par "1" et ma range("L" & i) par 1 (sans les guillements). Du coup je n'arrive pas à comparer les deux. Comment enlever les guillements de la valeur de la textbox ?
Merci
Bonjour,
Le contenu d'un textbox représente toujours du Texte, peu importe
la valeur inscrite. Si tu veux comparer la valeur d'un nombre avec
un nombre dans une cellule...tu dois utiliser une fonction de conversion
pour passer d'une valeur texte à une valeur numérique.
Voici un exemple :
Dim X as Double
If Application.IsNumber(Me.Textbox1) then
X = cdbl(Me.Textbox1)
if x < Range("L" & i).Value then
'Ton code
end if
End if
MichD
--------------------------------------------
"stephanie thibault" a écrit dans le message de groupe de discussion :
f36cbba4-7995-4e35-a495-449da90db091@t16g2000vbi.googlegroups.com...
Bonjour,
J'ai une textbox sur un formulaire dans lequel l'utilisateur saisit un
nombre.
Puis je compare ce nombre à une colonne de nombres.
Si le nombre de la textbox > au nombre de la cellule sélectionné dans
ma colonne, alors je supprime la ligne/
Mais quand je fais
If TextBox10.Value < Range("L" & i).Value Then
ma textbox est rempli par "1" et ma range("L" & i) par 1 (sans les
guillements).
Du coup je n'arrive pas à comparer les deux.
Comment enlever les guillements de la valeur de la textbox ?
Le contenu d'un textbox représente toujours du Texte, peu importe la valeur inscrite. Si tu veux comparer la valeur d'un nombre avec un nombre dans une cellule...tu dois utiliser une fonction de conversion pour passer d'une valeur texte à une valeur numérique.
Voici un exemple :
Dim X as Double If Application.IsNumber(Me.Textbox1) then X = cdbl(Me.Textbox1) if x < Range("L" & i).Value then 'Ton code end if End if
MichD -------------------------------------------- "stephanie thibault" a écrit dans le message de groupe de discussion :
Bonjour,
J'ai une textbox sur un formulaire dans lequel l'utilisateur saisit un nombre. Puis je compare ce nombre à une colonne de nombres. Si le nombre de la textbox > au nombre de la cellule sélectionné dans ma colonne, alors je supprime la ligne/
Mais quand je fais If TextBox10.Value < Range("L" & i).Value Then
ma textbox est rempli par "1" et ma range("L" & i) par 1 (sans les guillements). Du coup je n'arrive pas à comparer les deux. Comment enlever les guillements de la valeur de la textbox ?