Vb
rah-mani
-
rah-mani Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
rah-mani Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
jai un probléme sur se code
Private Sub CommandButton1_Click()
dim m,a,b,v,h,k as double
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 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
k=m+v+a/b+h
End Sub
jai un probléme sur se code
Private Sub CommandButton1_Click()
dim m,a,b,v,h,k as double
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 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
k=m+v+a/b+h
End Sub
A voir également:
- Vb
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
11 réponses
Et donc ? Tu veux de l'aide c'est ça ?
Tu veux pas faire une phrase et expliquer ton problème aux gens afin qu'ils t'aident à le résoudre ?
Tu sais, les gens qui répondent sont des humains, tu peux faire un effort pour respecter ça ...
Tu veux pas faire une phrase et expliquer ton problème aux gens afin qu'ils t'aident à le résoudre ?
Tu sais, les gens qui répondent sont des humains, tu peux faire un effort pour respecter ça ...
BeFax a raison ! Attends je regarde ! Oui! je vois, je vois.... que tu vas revenir nous donner des renseignements
particulièrement sur les valeurs de m,a,b,v,h,k et sur l'erreur s'il y a une erreur. : )
particulièrement sur les valeurs de m,a,b,v,h,k et sur l'erreur s'il y a une erreur. : )
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
je remarque que ton code n'est pas continue en matière de classement
je mets ce qui me semble être une anomalie... en gras
tu as écris ton code en disant que si m est entre 12 et 15 puis si m est entre 15 et....
m doit être soit dans un cas soit dans l'autre...de plus ton endadrement s'arrête à 69656.027
puis les valeurs supérieures à 69715.60772
pourquoi être si précis sur le dernier cas alors qu'il y a un écart de 59..... entre les deux denières valeurs.
corrige les valeurs et si le problème existe encore et s'il y a un message d'erreur
donne le nous
je mets ce qui me semble être une anomalie... en gras
tu as écris ton code en disant que si m est entre 12 et 15 puis si m est entre 15 et....
m doit être soit dans un cas soit dans l'autre...de plus ton endadrement s'arrête à 69656.027
puis les valeurs supérieures à 69715.60772
pourquoi être si précis sur le dernier cas alors qu'il y a un écart de 59..... entre les deux denières valeurs.
corrige les valeurs et si le problème existe encore et s'il y a un message d'erreur
donne le nous
Private Sub CommandButton1_Click()
Dim m, a, b, v, h, k As Double
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 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
k = m + v + a / b + h
End Sub
Zut le gras n'est pas passé.
Case 69512.331 To 69520.381
Case 69520.381 To 69528.424
Case 69520.381 To 69528.424
Case 69528.424 To 69536.458
un écart ici....
Case 69528.424 To 69536.458
.....
Case 69648.102 To 69656.027
Case 69512.331 To 69520.381
Case 69520.381 To 69528.424
Case 69520.381 To 69528.424
Case 69528.424 To 69536.458
un écart ici....
Case 69528.424 To 69536.458
.....
Case 69648.102 To 69656.027
oui vous aver risou pq j'ai copler jeuste le premier est le dernier
voila le code compler
Private Sub CommandButton1_Click()
For g = 6 To 400
ro = 63.6619772
Select Case Cells(g, 2)
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
l = ro * Atn((Cells(g, 2) - a) / (Cells(g, 3) - b))
If (Cells(g, 3) - b) < 0 Then
l = l + 200
ElseIf l < 0 Then l = l + 400
End If
e = Sqr((Cells(g, 2) - a) ^ 2 + (Cells(g, 3) - b) ^ 2)
Cells(g, 5) = v + (Cos((l - h)) * e)
Cells(g, 6) = Sin((l - h)) * e
If Cells(g, 2) <> "" And Cells(g, 3) <> "" Then
Cells(g, 5).Value = "": Cells(g, 6).Value = "": Cells(g, 7).Value = "": Cells(g, 8).Value = ""
Else
Exit For
End If
j'ai faire jueste un exemple
voila le code compler
Private Sub CommandButton1_Click()
For g = 6 To 400
ro = 63.6619772
Select Case Cells(g, 2)
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
l = ro * Atn((Cells(g, 2) - a) / (Cells(g, 3) - b))
If (Cells(g, 3) - b) < 0 Then
l = l + 200
ElseIf l < 0 Then l = l + 400
End If
e = Sqr((Cells(g, 2) - a) ^ 2 + (Cells(g, 3) - b) ^ 2)
Cells(g, 5) = v + (Cos((l - h)) * e)
Cells(g, 6) = Sin((l - h)) * e
If Cells(g, 2) <> "" And Cells(g, 3) <> "" Then
Cells(g, 5).Value = "": Cells(g, 6).Value = "": Cells(g, 7).Value = "": Cells(g, 8).Value = ""
Else
Exit For
End If
j'ai faire jueste un exemple
En première lecture...
il manque le next
For g = 6 To 400 ....
Else
Exit For
End If
next
je continu le test
il manque le next
For g = 6 To 400 ....
Else
Exit For
End If
next
je continu le test
j'ai placé ton code dans un module et non dans un bouton.
Ton code est en VBA pas en VB c'est cette partie qui pose problème
l = ro * Atn((Cells(g, 2) - a) / (Cells(g, 3) - b)) ' ici cels(g,2) doit contenir une valeur donc non vide
If (Cells(g, 3) - b) < 0 Then
l = l + 200
ElseIf l < 0 Then
l = l + 400
End If
e = Sqr((Cells(g, 2) - a) ^ 2 + (Cells(g, 3) - b) ^ 2)
Cells(g, 5) = v + (Cos((l - h)) * e)
Cells(g, 6) = Sin((l - h)) * e
If Cells(g, 2) <> "" And Cells(g, 3) <> "" Then ' ex : Si b6 et c6 sont diiferent de vide alors efface... !!!!
' met cette ligne en commentaire et teste!
' ici tu effaces ce que tu as écris.... et il n'y a pas de message d'erreur
'Cells(g, 5).Value = "": Cells(g, 6).Value = "": Cells(g, 7).Value = "": Cells(g, 8).Value = ""
Else
Exit For
End If
Ton code est en VBA pas en VB c'est cette partie qui pose problème
l = ro * Atn((Cells(g, 2) - a) / (Cells(g, 3) - b)) ' ici cels(g,2) doit contenir une valeur donc non vide
If (Cells(g, 3) - b) < 0 Then
l = l + 200
ElseIf l < 0 Then
l = l + 400
End If
e = Sqr((Cells(g, 2) - a) ^ 2 + (Cells(g, 3) - b) ^ 2)
Cells(g, 5) = v + (Cos((l - h)) * e)
Cells(g, 6) = Sin((l - h)) * e
If Cells(g, 2) <> "" And Cells(g, 3) <> "" Then ' ex : Si b6 et c6 sont diiferent de vide alors efface... !!!!
' met cette ligne en commentaire et teste!
' ici tu effaces ce que tu as écris.... et il n'y a pas de message d'erreur
'Cells(g, 5).Value = "": Cells(g, 6).Value = "": Cells(g, 7).Value = "": Cells(g, 8).Value = ""
Else
Exit For
End If