Discussion :

[teaRz]

Bonjour à tous,

j'aimerais savoir comment incrémenter un compteur a chaque chargement de ma form, afin d'avoir la possibilité d'informer l'utilisateur qu'il a des mise à jour a faire.

en algo ca serait quelque chose du genre :

compteur = 0

Si chargement de la form alors
compteur = compteur + 1
Fin si

Si compteur = 10 alors
message de mise a jour
compteur=0
Fin si

Ma question porte sur la synthaxe a utiliser sur ma ligne en gras.

Merci.

[Vesta]

Code :

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

1
2
3
Private Sub UserForm_Initialize()
    compteur = compteur + 1
End Sub

Pourquoi ne pas tout simplement placer le compteur au niveau de l'endroit ou tu appelle ta form?

[Asdorve]

salut,
je propose
tu crée un fichier texte qui contient la valeur de l'incrment.
A chaque démarrage de la form, tu ouvres ce fichier, tu lis la valeur, tu l'incrémente, tu modifie le fichier txt.

[Vesta]

Il ne parle pas de ca je pense... Pui si c'est un fichier excel, on cache une feuille contenant des parametres

[teaRz]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'procedure started on load of the form
Private Sub userform_activate()
    Dim meter As Integer
    Dim msg
    meter = meter + 1
    msg = MsgBox(meter)
    If meter = 10 Then
        msg = MsgBox("Update the stats form, rename all the folders")
        meter = 0
    End If    
End Sub

avec ce code, je vérifie mon incrementation. Elle ne fonctionne pas. Ma msgbox ne m'affiche que ' 1 '.

[Asdorve]

avec ce code, je vérifie mon incrementation. Elle ne fonctionne pas. Ma msgbox ne m'affiche que ' 1 '.

ça c'est normal, chaque fois que tu réouvres ton appli, la variable se réinitialise.

[teaRz]

La bitch
Obliger de passer par 1 .txt alors ? ...