Suit au probléme vba excle

Mame ro et fixe
ro=200/pi=63.6619772
et mirc

mame ro et fixe
ro=200/pi=63.6619772
et mirc

TOUTES tes variables as double. Ce sont des nombres

lorcque j'ai faie as double ca done
c=vide

Si une variable doit manipuler des nombres met

 as double 

et non

as string

voila mon programe

toute sa marche sof x, y, l ,e sa dans =""

tu peu risedre svp

Dim m As String, n As String, ro As Double

Dim v As String, a As String, b As String, e As String, h As String
Dim l As String, y As String, x As String
Dim g As Long

L probléme dans x,y,l,e
X= » »
Y= » »
E= » »
L= » »

Private Sub CommandButton1_Click()

For g = 6 To 400

ro = 63.6619772
m = Cells(g, 2)
n = Cells(g, 3)
Select Case m
Case Is < 69490
MsgBox "RAHMANI DIT: ERROR"
Case 69494.3795 To 69504.27
v = 141656.551: a = 69494.7106: b = 65733.71783: h = 105.452
Case 69504.271 To 69512.33
v = 141664.551: a = 69502.68121: b = 65733.03355: h = 105.7929
Case 69512.331 To 69520.381
v = 141672.551: a = 69510.64805: b = 65732.3066: h = 106.1157
Case 69520.381 To 69528.424
v = 141680.551: a = 69518.61112: b = 65731.53927: h = 106.4206
Case 69528.424 To 69536.458
v = 141688.551: a = 69526.57042: b = 65730.73381: h = 106.7075
Case 69536.458 To 69544.483
v = 141696.551: a = 69534.52603: b = 65729.89248: h = 106.9765
Case 69544.483 To 69552.499
v = 141704.551: a = 69542.47801: b = 65729.01755: h = 107.2276
Case 69552.499 To 69560.507
v = 141712.551: a = 69550.42649: b = 65728.11126: h = 107.4607
Case 69560.507 To 69568.507
v = 141720.551: a = 69558.37161: b = 65727.17586: h = 107.6759
Case 69568.507 To 69576.499
v = 141728.551: a = 69566.3135: b = 65726.21362: h = 107.8732
Case 69576.499 To 69584.483
v = 141736.551: a = 69574.2524: b = 65725.22677: h = 108.0525
Case 69584.483 To 69592.459
v = 141744.551: a = 69582.1885: b = 65724.21756: h = 108.2139
Case 69592.459 To 69600.428
v = 141752.551: a = 69590.12198: b = 65723.18824: h = 108.3573
Case 69600.428 To 69608.39
v = 141760.551: a = 69598.05314: b = 65722.14104: h = 108.4829
Case 69608.39 To 69616.344
v = 141768.551: a = 69605.98223: b = 65721.07821: h = 108.5905
Case 69616.344 To 69624.293
v = 141776.551: a = 69613.9095: b = 65720.00196: h = 108.6801
Case 69624.293 To 69632.235
v = 141784.551: a = 69621.83525: b = 65718.91456: h = 108.7519
Case 69632.235 To 69640.171
v = 141792.551: a = 69629.75978: b = 65717.81823: h = 108.8056
Case 69640.171 To 69648.102
v = 141800.551: a = 69637.68337: b = 65716.71521: h = 108.8415
Case 69648.102 To 69656.027
v = 141808.551: a = 69645.60634: b = 65715.60772: h = 108.8594
Case Is > 69715.60772
MsgBox "RAHMANI DIT: ERROR"
End Select
x = m - a
y = n - b
l = ro * Atn((x) / (y))
If y < 0 Then
l = l + 200
ElseIf l < 0 Then l = l + 400
End If
e = Sqr(x ^ 2 + n ^ 2)

Cells(g, 5) = v + (Cos((l - h)) * e)
Cells(g, 6) = Sin((l - h)) * e

Next g
End Sub

dans moi exempler j'ai comprepas bien pq je suie nevaux en vb

Ca ne correspond pas au code que tu as fourni...
double : nombre décimal double précision
string : chaine de caractère

Donc soit c as double ou bien c=cstr(a*b) si tu veux vraiment une chaine

mon problem que
ce code
dim x as double,y as double ,c as string
x=5
y=8

c=x*y

mes c toujeur dane c=""

results c="" pes c=40

On n'est pas là pour jouer aux devinettes...
Puisque tu ne veux pas en dire plus je passe la main aux autres

ll'ereurr dans le code

Comment veux-tu avoir une aide, il n'y a même pas de question !!!

aide moi svp