1 pièce(s) jointe(s)
code VBA qui ne marche pas
Bonjour,
J'ai essayé de faire un programme sur excel pour fournir automatiquement une masse volumique dès qu'on fournit le code du produit ( dans la feuille il y'a un tableauavec les produits (leur code) ainsi que leur masse volumique) Cependant je ne comprends pas pourquoi çà ne marche pas.
Voici mon code :
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
|
Sub Macro1()
'
' Macro1 Macro
'
'
Dim e As Integer
Dim j As Integer
Dim code As String
e = 0
j = 29
code = InputBox("Tapez le code Béton", "Titre")
While e = 0 And j <= 40
If Cells(j, 1) = code Then e = 1
End If
j = j + 1
Wend
j = j - 1
Cells(27, 7) = Cells(j, 2)
End Sub |
Après avoir taper ceci dans l'éditeur, j'ai inséré un bouton dans la feuille, cependant lorsque je clique dessus rien ne se produit ( normalement c'est censé afficher une fenêtre)
Où est le problème?
N.B:Je reçois aussi ce message lorsque je veux fermer la page excel :
Pièce jointe 184321
Merci d'avance
Merci d'avance
