eriiic,
Normal puisque j'ai copié-collé n'importe quoi
Je voulais dire :
Dim Nombre As Double
Dim s As String
s = "5"
Nombre = s
Nombre = cdbl(s)
Ma femme m'a dit que ça allait me coûter cher
Aucun problème non plus avec ce code
J'ai même essayé
Sub Test()
Dim Nombre As Double, Resultat as Double
Dim s As String
S = "5"
Nombre = S
Debug.Print Nombre
Resultat =Nombre ^ 2
Debug.Print Resultat
Nombre = CDbl(s)
Debug.Print Nombre
End Sub
Cela me renvoi bien 5, 25, 5
Par acquit de conscience, j'ai également essayé le 1er code
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
No problemo
Je pense que c'est notre ami avec son fichier ou son pâck office qui a un souci
@+