Dépassement de capacité (bis)

Le 12/04/2020 à 16:43

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)

Le 12/04/2020 à 18:35

eriiic,

eriiic a écrit :
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

@+

Le 12/04/2020 à 18:40

Ok, c'est plus rassurant. Ca paraissait gros...

Merci, tu peux retourner chercher des oeufs pour madame, qu'elle te pardonne

Le 12/04/2020 à 18:57

Re,

C'est pas moi, mais madame qui est à la recherche

Le 13/04/2020 à 11:00

Bonjour BrunoM45

ça ne me rassure pas ce que tu me dis.