Variable et valeur de cellule

Bonjour,

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

Code:

---

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

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

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

Code:

---

1 2 3

toto = 1 titi = "1" MsgBox toto = titi

---

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

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:

---

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.

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