Problème Calcul numérique sur Variable "Variant"

Question

Bonjour,

Je m'excuse de vous déranger cependant je suis tout nouveau dans le codage sur VBA donc j'essaye d'en apprendre un peu plus.
J'ai codé la simple procédure suivante :

Sub Cas_Pratique()
Dim x as Variant
x = InputBox("Quelle Ligne?")
If Not IsNumeric(x) Then
MsgBox "Ce n'est pas un nombre!", vbCritical, "Error"
Else
Cells(x, 1) = x
Cells(x, 2) = x + x
Cells(x, 3) = x * x
End If
End Sub

Le problème, c'est que pour la ligne :

Cells(x, 2) = x + x

Le programme ne me fait pas l'addition mais met bout à bout la valeur de X choisi (Ex: si je prend le chiffre 2, alors à la ligne 2, colonne 2, j'aurai : 22 , alors que je voulais le résultat de l'addition, soit "4" ). Savez-vous comment régler ce problème :( ? je suis vraiment perdu...

Merci infiniment pour votre aide !

Rag02700 · Accepted Answer

Et comme ceci ça donne quoi ? Sub Cas_Pratique() Dim x As Variant x = InputBox("Quelle Ligne?") If Not IsNumeric(x) Then MsgBox "Ce n'est pas un nombre!", vbCritical, "Error" Else x = CInt(x) Cells(x, 1) = x Cells(x, 2) = x + x Cells(x, 3) = x * x End If End Sub R@G...