Bonjour
je reviens sur un sujet que j'avais ouvert et pour lequel on m'a donné une astuce mais qui me pose soucis.
voici un petit bout de code, avec et sans l'astuce.
Sub recherche_carre()
Dim Nombre As Double
Dim Resultat As Double
Nombre = InputBox("Donnez un nombre")
Resultat = Nombre ^ 2
MsgBox ("le resultat est ") & Resultat
End Sub
Sub recherche_carre()
Dim Nombre As Double
Dim Resultat As Double
Nombre = Replace(InputBox("Donnez un nombre"), ",", ".")
Resultat = Nombre ^ 2
MsgBox ("le resultat est ") & Resultat
End Sub
dans le premier cas, j'ai l'erreur "dépassement de capacité", pas dans le second.
pour info, je n'ai utilisé pour mes essais que des nombres entiers, ni point, ni virgule donc pas d'erreur de ce coté.
apparement j'ai ce problème quand je me sert d'"inputbox"
j'aimerais vraiment comprendre .
merci d'avance pour votre aide.