Suit au probléme vba excle
Résolu/Fermé
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
-
11 déc. 2009 à 15:41
rah-mani Messages postés 40 Date d'inscription mardi 8 décembre 2009 Statut Membre Dernière intervention 6 septembre 2011 - 13 déc. 2009 à 12:15
rah-mani Messages postés 40 Date d'inscription mardi 8 décembre 2009 Statut Membre Dernière intervention 6 septembre 2011 - 13 déc. 2009 à 12:15
A voir également:
- Suit au probléme vba excle
- Comment savoir qui suit mon profil facebook - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
13 réponses
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
12 déc. 2009 à 14:39
12 déc. 2009 à 14:39
aide moi svp
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
12 déc. 2009 à 16:48
12 déc. 2009 à 16:48
Comment veux-tu avoir une aide, il n'y a même pas de question !!!
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
13 déc. 2009 à 11:08
13 déc. 2009 à 11:08
ll'ereurr dans le code
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
13 déc. 2009 à 11:18
13 déc. 2009 à 11:18
On n'est pas là pour jouer aux devinettes...
Puisque tu ne veux pas en dire plus je passe la main aux autres
Puisque tu ne veux pas en dire plus je passe la main aux autres
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
13 déc. 2009 à 11:27
13 déc. 2009 à 11:27
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
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
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
13 déc. 2009 à 11:36
13 déc. 2009 à 11:36
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
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
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
13 déc. 2009 à 11:41
13 déc. 2009 à 11:41
dans moi exempler j'ai comprepas bien pq je suie nevaux en vb
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
13 déc. 2009 à 11:45
13 déc. 2009 à 11:45
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
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
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
13 déc. 2009 à 11:49
13 déc. 2009 à 11:49
Si une variable doit manipuler des nombres met
as double et non as string
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
13 déc. 2009 à 11:50
13 déc. 2009 à 11:50
lorcque j'ai faie as double ca done
c=vide
c=vide
eriiic
Messages postés
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 243
13 déc. 2009 à 11:55
13 déc. 2009 à 11:55
TOUTES tes variables as double. Ce sont des nombres
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
13 déc. 2009 à 12:03
13 déc. 2009 à 12:03
mame ro et fixe
ro=200/pi=63.6619772
et mirc
ro=200/pi=63.6619772
et mirc
rah-mani
Messages postés
40
Date d'inscription
mardi 8 décembre 2009
Statut
Membre
Dernière intervention
6 septembre 2011
13 déc. 2009 à 12:15
13 déc. 2009 à 12:15
Mame ro et fixe
ro=200/pi=63.6619772
et mirc
ro=200/pi=63.6619772
et mirc
