Problème de portée de variable

Version imprimable

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:

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:

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

04/03/2011, 18h36
helas
Bonsoir,
la seule erreur que je vois, c'est le point manquant
Code:

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
07/03/2011, 09h00
Californ7

Désolé, mais ça ne marche toujours pas.
Non seulement, le sub "initialize" ne fonctionne pas (Ref1 et ligne1 restent vides), mais le sub pour supprimer le contenu d'une ligne provoque une erreur 1004.
Quand je regarde dans le mode débogage, ma valeur t reste nulle ce n'est pas vraiment ce que je voulais.
07/03/2011, 09h34
78chris

Bonjour

Où est initialisé t ?
Il faut utiliser au moins une fois raz()
07/03/2011, 11h57
patricktoulon

heuh!...

bonjour

ref1 et ligne 1 sont quoi comme controls??
parceque je supose que ref1 est un bouton mais peut etre que ligne 1 est un text box
si c'est le cas

ca sera

Code:

ligne1.value

et non pas

Code:

ligne1.caption

quand a

Code:

compte.caption

....si tu veux changer le titre de l'userform ok mais si ca n'est pas ton but alors il ya une erreur

au plaisir