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