Bonjour à tous,
je commence juste à manipuler vb editor. Mon problème porte, je pense, sur la portée de variable.
Je souhaite balayer un tableau d'articles dont j'ai déjà fait l'inventaire il y a longtemps, et supprimer les articles inexistants.
Voilà où j'en suis,

Mon module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Option Explicit 'Déclaration de la variable ligne
Public t As Byte
 
Public Sub afficher_compte()
    compte.Show
End Sub
 
Public Sub raz() 'réinitialiser la variable ligne
    t = 1
End Sub
Le code de ma userform (compte):

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
Public Sub compte_initialize()
        With ActiveSheet
            Ref1.Caption = Cells(t, 2).Value  'afficher des infos sur l'article consulté dans la userform
            lign1.Caption = Cells(t, 1).Value 'afficher des infos sur l'article consulté dans la userform
            compte.Caption = "Article n°" & t 'afficher des infos sur l'article consulté dans le titre de la userform
        End With
End Sub
 
 
Public Sub ok5_click() 'si l'article est bien existant, incrémenter le compteur
    t = t + 1
    Unload Me
End Sub
 
Public Sub supp5_click() 'si l'article est supprimé, supprimer la ligne puis incrémenter le compteur
    With ActiveSheet
        Dim o As Integer
        For o = 1 To 7
            Cells(t, o).Value = " "
        Next o
        End With
    t = t + 1
    Unload Me 'fermer cette userform
End Sub
Où est mon problème ??
Merci d'avance je suis bloqué là.