probleme avec MsgBox

[Alaie]

Bonjour,

Je me lance dasns VBA et j'ai déja un petit problème 😱

Quand j'execute ce code :

Sub macro()

Dim nombre1
Dim nombre2
Dim nombre3

nombre1 = InputBox('Entrer le numérateur')
nombre2 = InputBox('Entrer le dénominateur')
If nombre2 <> 0 Then
nombre3 = nombre1 / nombre2
MsgBox (nombre1 + ' / ' + nombre2 + ' = ' + nombre3 + '.')
Else
MsgBox ('La division par 0 est impossible')
End If
End Sub

j'ai le message d'erreur 'incompatibilité de type'

Ca vient de la ligne

MsgBox (nombre1 + ' / ' + nombre2 + ' = ' + nombre3 + '.')

Quelqu'un voit-il où est l'erreur??

 

[JC de Lorient]

salut

modifie ceci :

Dim nombre1, nombre2, nombre3 As Integer


MsgBox (nombre1 & ' / ' + nombre2 & ' = ' & nombre3)


JC

 

[Hellboy]

Bonjour Alaie

A ma connaissance tu a 2 problèmes.

1- La définition de tes variables n'étant pas précisé, tes valeurs étaient reconnue comme variant/string donc utimement du texte.
2- Pour la ligne de msgbox, il faut que tu remplace les '+' par des '&'.

Sub macro()

Dim nombre1    As Single, nombre2    As Single, nombre3    As Single

nombre1 = InputBox('Entrer le numérateur')
nombre2 = InputBox('Entrer le dénominateur')
If nombre2 <> 0 Then
&nbsp; &nbsp; nombre3 = nombre1 / nombre2
&nbsp; &nbsp; MsgBox (nombre1 & ' / ' & nombre2 & ' = ' & nombre3 & '.')
Else
&nbsp; &nbsp; MsgBox ('La division par 0 est impossible')
End If
End Sub

 

[alaie]

Super!!! merci ca marche :woohoo: