Comparer une TextBox à une cellule

Version imprimable

04/07/2013, 14h38
nodidee

Comparer une TextBox à une cellule
Bonjour,

Je voudrais comparer une valeur (numérique) avec des valeurs (numériques à priori...) de mon tableur.

Voici le code que j'ai utilisé :
Code:

1 2 3 4 5 6 7 8 If Not Val(Range("PV!D35").Value) < Val(TextBox1.Value) < Val(Range("PV!F35").Value) Then Do ... ... ... Loop While True End If
Le reste du code importe peu, le test ne fonctionne pas, le test n'est jamais vérifié...
Je ne vois pas où j'ai faux...
Si je traduit j'ai : "si la valeur de TextBox1 n'est pas comprise entre D35 et F35 alors on entre la boucle infinie", non?

J'ai mis le format monétaire sur ma feuille de calcul, est-ce le problème?

Je vous remercie.

Salut

Il me semble bien que tu n'es pas sur le bon forum TextBox1.Value, du VBA :calim2:
VBA Office (Access, Excel, PowerPoint, Word....)

Pour autant

Code:

1
2
3
4
5
6
7
8
9
10
If IsNumeric((Range("PV!D35").Value)) And IsNumeric((TextBox1.Value)) And IsNumeric((Range("PV!F35").Value)) Then
    'chaque éléments est de type numérique
    If Val(TextBox1.Value) >= Val(Range("PV!D35").Value) And Val(TextBox1.Value) <= Val(Range("PV!F35").Value) Then
        'compris dans les bornes
        Else
        'non compris dans les bornes
    End If
    Else
    'au moins un des éléments n'est pas de type numérique
End If

devrait fonctionner sous VBA

04/07/2013, 19h01
nodidee

Arf oui décidément... Je suis ne suis pas très doué pour trouver les bons forum... Le VBA est différent de virtual basic 6.x?

Je n'ai plus accès à VBA (seulement au bureau). Je dirai si ça fonctionne, mais je ne comprends pas l'intérêt de tester si les valeurs sont numériques... la fonction val() du code transforme une chaine de caractère en nombre, alors à quoi bon tester si les valeurs sont des nombres juste avant?

Je pense que c'est mes valeurs dans mes cellules qui ne sont pas compatibles. VBA doit prendre en compte la cellule comme "123 €" et non le nombre 123. J'ai pourtant utilisé le formatage et inscrit le nombre 123 dans la cellule...

Merci!

Citation:

Le VBA est différent de virtual basic 6.x?

Ben oui il y a des petites différences TextBox.Value en VBA n'existe pas en VB6 et antérieur, on utilise la propriété équivalente .Text

Exemple de manipulation en VB6, qui doit fonctionner en VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim truc As String
truc = "1 000,55€"
If IsNumeric(truc) Then MsgBox Val(truc), vbInformation, truc & " ="
 
truc = "1 000,55€"
If IsNumeric(truc) Then MsgBox CSng(truc), vbInformation, truc & " ="
 
truc = "1 000.55€"
If IsNumeric(truc) Then
    ' Impossible, la condition IsNumeric(truc) est False
    Else
    MsgBox truc & " n'est pas considéré comme numérique", vbInformation, truc & " ="
End If
 
truc = Replace(truc, ".", ",")
If IsNumeric(truc) Then MsgBox CSng(truc) & " après remplacement du point par une virgule", vbInformation