Discussion :

[Californ7]

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à.

[helas]

Bonsoir,
la seule erreur que je vois, c'est le point manquant

Code :

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

1
2
3
4
With ActiveSheet
Ref1.Caption = .Cells(t, 2).Value 'afficher des infos sur l'article consulté dans la userform
lign1.Caption = .Cells(t, 1).Value

Dans ce cas le point fait le lien avec Activesheet, voir aussi dans la suite du code
sinon la portée fonctionne avec Public, on pourrait aussi déclaré avec Dim puisque placé dans un module