Discussion :

[John81]

Bonjour,

La macro suivante ne fonctionne pas si la variable "b" est un nombre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
 
b = InputBox ("valeur")
 
If [B9].Value = b Then
MsgBox "VRAI"
Else: MsgBox "FAUX"
End If
 
End Sub

La macro marche si c'est du texte. La MsgBox me donne "FAUX" si c'est un nombre.
Qqn peut-il m'aider? Merci John81

[Invité]

Bonjour

La fonction InputBox te renvoie une donnée de type String (donc texte).

Il faut que tu convertisses ta donnée, de plus comment est déclaré ta variable de b ?

Philippe

[ucfoutu]

Bonjour,
Ma manière de te répondre (elle va te forcer à tirer certaines conclusions, après analyse) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 toto = 1
  titi = "1"
  MsgBox toto = titi

intéresse-toi aux types de variables (ton aide en ligne)

[casavba]

Bonjour,
Comme celà a été bien expliqué par Ucfoutu et Philippe, il faut que tu t'interesses aux types de variables et le cas échéant aux fonctions de conversion.

je te fournis ci-après un exemple simplifié afin que tu comprennes il est où ton problème.
Si tu l'assimiles tu pourras l'améliorer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
 
b = InputBox("valeur")
 
If IsNumeric(b) = True Then
            If [B9] = CDbl(b) Then
                        MsgBox "VRAI"
                            Else: MsgBox "FAUX"
            End If
 
        Else
            If [B9] = b Then
                    MsgBox "VRAI"
                        Else: MsgBox "FAUX"
            End If
 
End If
 
End Sub

Bon courage et n'oublie pas l'aide en ligne c'est une source d'information non négligeable.

[John81]

Merci à tous pour vos réponses et vos informations très intéressantes. Bonne soirée. John81