Aide pour Operateur avec VBA access

Version imprimable

bonjour je commence a apprendre le VBA et il y a certaine chose qui m'échappe encore je ne comprend pas pourquoi le ne veux pas faire les + et / et je cherche la ou j'aurais pus faire des fautes mais je ne trouve pas merci de m'aider:yaisse2::aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Sub masub()
Cal1 = InputBox("donnez moi 1 nombre")
op = InputBox("donnez un operateur")
Cal2 = InputBox("Donnez moi 1 2eme nombre")
 
 
 
If op = "*" Then
    produit = Cal1 * Cal2
    MsgBox ("le resultat est = " & produit)
End If
 
If op = "+" Then
    somme = Cal1 + Cal2
    MsgBox ("le resultat est = " & somme)
End If
 
If op = "-" Then
    reste = Cal1 - Cal2
    MsgBox ("le resultat est = " & reste)
End If
 
If op = "/" Then
    If Cal2 = 0 Then
        ErrorC = MsgBox("Calcul error Div 0", vbCritical)
    End If
    If Cal2 <> 0 Then
        Quo = (cla1 / Cal2)
    MsgBox ("le resultat est = " & Quo)
    End If
End If
End Sub

07/11/2008, 14h16
Thierry''

essaye de declarer tes variables:

Code:

Dim Cal1 as Integer, Cal2 as Integer
07/11/2008, 14h19
random

Affiche une invite dans une boîte de dialogue, attend que l'utilisateur tape du texte ou clique sur un bouton, puis renvoie le contenu de la zone de texte sous la forme d'une valeur de type String.

call=cdble(inputbox(
07/11/2008, 14h21
random

pardon thierry

effectivement la déclaration aurair évité le pb

Bonjour, pour apprendre à coder en VBA n'hésite pas à consulter les cours de base (ça fait gagner du temps au final (... à tout le monde)) cours qui se trouvent sur ce site.

Pour ton exo, prend des bonnes haitudes en t'obligeant à déclarer tes variables en plaçant en premières lignes de module
Code:

1 2 Option Compare Database Option Explicit
Dés lors tu déclares tes variables et ça se passera mieux
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub maSub() Dim cal1 As Long, cal2 As Long Dim produit As Long, somme As Long Dim op As String cal1 = InputBox("donnez moi 1 nombre") op = InputBox("donnez un operateur") cal2 = InputBox("Donnez moi 1 2eme nombre") If op = "*" Then produit = cal1 * cal2 MsgBox ("le produit est = " & produit) End If If op = "+" Then somme = cal1 + cal2 MsgBox ("la somme est = " & somme) End If End Sub
Bonne suite :)

07/11/2008, 14h39
achevar

merci pour vos réponses.

Et oui j''essais d'apprendre les bases j'ai appris le peux que je sais en achetant Le vba pour les nuls sa ne doit pas etre le meilleur de tous les livres mais bon.

Et désoler de vous avoir importuné
07/11/2008, 15h37
micniv

Citation:

désoler de vous avoir importuné

Surtout ne soit pas désolé !
il vaut mieux 100 fois demander que de rester avec son pb dans son coin ...
:)