Discussion :

[révèr]

Bonjour, depuis quelques heures je suis bloqué sur ce code. Je n'arrive pas à automatiquement incrémenter "+1" à la variable "A" lorsque je clique sur le bouton "Addition". En somme, je souhaiterai que si j'appuie sur le bouton "Addition" n-fois, ma "Test2.Caption" soit égale à "A + n"

Ceci est un code à part, car il ferait partie intégrante d'un code beaucoup plus long.

Merci Beaucoup de votre aide ! (J'ai testé avec le "A=A+1" dans le PS Addition_Click, ça ne change rien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim A As Integer
Private Sub Addition_Click()
    Unload UserForm2
    UserForm2.Show
    A = A + 1
End Sub
Private Sub Test_Click()
    Test2.Caption = A
End Sub
Private Sub UserForm_Initialize()
    A = 1
End Sub

[Minise]

si tu veux que test2 change à chaque fois que tu cliques sur Addition autant le mettre directement dans Addition_click

un truc comme ça :

Code :

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

1
2
3
4
5
6
 
Private Sub Addition_Click()
    Unload UserForm2
    UserForm2.Show
    Test2.Caption = A +1
End Sub

par contre vu que tu Unload l'userform me semble que ça vide toutes les données à chaque fois dont le A

[révèr]

Ce serait plutôt un code comme ça finalement, puisque c'est une Variable à laquelle je veux incrémenter la valeur +1.

Le problème, c'est que vu qu'elle est déjà initialisée à 7, j'ai beau la changer en 8 via le "Addition_Click()" , elle reprendra automatiquement la Valeur 7 puisque je l'ai définie ainsi.

C'est là que je ne vois pas comment faire puisque j'ai vraiment besoin d'initialiser ma valeur à 7, mais je veux chaque fois que je clique sur le bouton "Addition"il s'y ajoute "1".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim A As Integer
 
Private Sub UserForm_Initialize()
A = 7
End Sub
 
Private Sub Addition_Click()
A = A + 1
Unload UserForm1
UserForm1.Show
End Sub

Quand tu unload le UserForm ça supprime toutes les données des objets, mais ne supprime pas les déclarations de variables.

[HopPopPop]

Bonjour à tous,

Il faudrait utiliser plutôt l'instruction Hide que Unload, car cette dernière ferme le formulaire au lieu de le masquer qui fait qu'à la nouvelle instruction Show tu repasses par la procédure Initialize.

Code :

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

UserForm1.Hide

[révèr]

Du coup avec la fonction .Hide, ça ignorera la partie "UserForm_Initialize()" et déroulera le reste ?

[HopPopPop]

Pas tout à fait :
Au 1er affichage du Formulaire par l'instruction Show, la procédure Initialize sera lancée.
Ensuite avec Hide, le formulaire est masqué et les variables et controls conservent leurs valeurs. les affichages suivants par Show ne passent plus par la Sub Initialize puisque que le formulaire est resté en mémoire.