Bonsoir tous le monde,

J'ai produit un programme de gestion des stock, en regardant un tutoriel, mais dans un de mes userform, j'ai un problème que je ne suis pas capable de régler. un problème qui est dans mon userform, J'ai des bouton radio comme certain les nommes et lorsque l'on en choisit un , cela me donne le numéro et c'est quand j'ai rentré les informations dans le tableau que ce numéro doit s'incréminer, mais cela ne marche pas trop.

Code vba : 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
31
32
33
34
35
36
37
Private Sub CommandButton1_Click()
Dim Dl As Integer
 
If Me.Txt_Nom <> "" And Me.Txt_description <> "" And Me.Txt_prix <> "" And Me.Txt_min <> "" Then
    'ajouter une ligne au tableau
    Sheets(2).ListObjects(1).ListRows.Add
    'Aller à la derniere ligne
    Dl = Sheets(2).Range("b99999").End(xlUp).Row
 
    'Ajouter dans le tableau
    Sheets(2).Range("B" & Dl) = Me.Lebel_info.Caption
    Sheets(2).Range("C" & Dl) = Me.Txt_Nom
    Sheets(2).Range("D" & Dl) = Me.Txt_description
    Sheets(2).Range("E" & Dl) = CCur(Me.Txt_prix)
    Sheets(2).Range("H" & Dl) = CInt(Me.Txt_min)
    Sheets(2).Range("J" & Dl) = "Actif"
 
   'incrémenter le nr d'article sur la page config
 
    If Me.Lebel_info.Caption = Sheets(8).Range("e19").Value = True Then
        Sheets(8).Range("d19") = Sheets(8).Range("d19") + 1
    ElseIf Sheets(8).Range("e20").Value = True Then
        Sheets(8).Range("d20") = Sheets(8).Range("d20") + 1
    ElseIf Sheets(8).Range("e21").Value = True Then
        Sheets(8).Range("d21") = Sheets(8).Range("d21") + 1
    Else
        Sheets(8).Range("d23") = Sheets(8).Range("d23") + 1
     End If
 
 
    ThisWorkbook.Save
 
    Unload add_article
 
End If
 
End Sub
Désolé si je n'ai pas tous fait dans les règles, mais j'ai une certaine urgence car vous êtes mon dernier recours .
Merci a vous