[VBA-E] Incrémentation compteur lors du chargement de l'userform

Version imprimable

09/06/2006, 11h17
teaRz

[VBA-E] Incrémentation compteur lors du chargement de l'userform

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. :oops:

Merci.
09/06/2006, 11h27
Vesta
Code:

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?
09/06/2006, 11h28
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.
09/06/2006, 11h29
Vesta

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

Code:

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

09/06/2006, 11h44
Asdorve

Citation:

Envoyé par teaRz

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.
09/06/2006, 11h46
teaRz

La bitch :furieux:
Obliger de passer par 1 .txt alors ? ...
09/06/2006, 11h47
Asdorve

je sais pas, je réfléchi (eh oui ça m'arrive)
09/06/2006, 12h00
jmfmarques

Citation:

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

C'est de très loin le plus simple et le moins gourmand.;)
09/06/2006, 12h01
Asdorve

alors j'ai pas dit de bêtises, jmf?
09/06/2006, 12h09
Vesta

Jamais dis que c'était faux LOL ca évite juste d'avoir un fichier texte a ballader avec le fichier xls...

En fait a chaque fois que ta feuille se lace tu la remet a zero, il faut la définir en variable globale
09/06/2006, 12h16
jmfmarques

Il peut également réserver une cellule à celà, écrite blanc sur blanc et lue ... et incrémentée...
Attention toutefois à ne pas également incrémenter indûment (maintenance, par exemple).
L'incrémentation ne devrait se faire qu'à certaines conditions d'état du classeur (plusieurs possibilités parmi lesquelles choisir). Ceci est également vrai en ce qui concerne l'emploi d'un .txt
09/06/2006, 12h19
teaRz

Je n'ai pas décider encore comment j'allais faire au vu de vos écrits. Je vais un peu tout tester pour choisir la plus adéquate.

Merci à tous pour vos solutions :]