Discussion :

[mamasia]

Bonjour,

Etant débutant, je rencontre des difficultés afin de créer mon fichier de gestionnaire de stock. Au moment de vouloir créer une ligne dans le tableau (voir pièce jointe)
J'ai un message d'erreur qui apparait "erreur de compilation" avec la ligne "Private Sub CommandButton1_Click()" qui apparait comme erreur. Si vous pouvez m'éclaircir dessus, ça serait fort amiable de votre part !
Petite précision, je sais pas si ça change quelque chose mais je suis sur un mac!

Cordialement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Option Explicit
Public memoire As Integer
 
Private Sub CommandButton1_Click()
With Me.list_order
    .AddItem
    .List(memoire, 0) = Me.Cbx_article
    .List(memoire, 1) = Me.Txt_nombre
End With
    memoire = memoire + 1
End Sub
 
Private Sub Txt_nombre_Change()
If Not IsNumeric(Txt_nombre) And Txt_nombre <> "" Then
    MsgBox "Désoler uniquement des chiffres"
    Txt_nombre = ""
End If
End Sub
 
Private Sub UserForm_Initialize()
 
  'Une méthode pour charger un combobox
Cbx_fournisseur.List = Sheets(6).Range("b6:b" & Range("b" & Rows.Count).End(xlUp).Row).Value
Cbx_article.List = Sheets(2).Range("b6:b" & Range("b" & Rows.Count).End(xlUp).Row).Value
 
Me.Label_info.Caption = Sheets(8).Range("e20")
 
End Sub

[Thautheme]

Bonjour Mamasia, bonjour le forum,

En principe, la déclaration d'une variable publique ne peut se faire que dans un module standard.
Essaie en remplaçant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public memoire As Integer

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private memoire As Integer

[mamasia]

Bonjour Thautheme,
Merci pour votre retour.

J'ai tenté cette modification mais j'ai malheuresement le meme message d'erreur.

[Thautheme]

Re,

Ton code sans fichier nous oblige à recréer ton environnement pour le tester. J'ai fait l'effort de le faire et je n'ai pas eu de message d'erreur. On est bien d'accord que le CommandButton1 c'est le bouton Ajouter. Malgré le manque d’approbation des boss de ce forum, je te recommande de mettre ton fichier en pièce jointe sinon je crains que tu n'obtiennes de réponse.