Discussion :

[Dédé6621]

Bonjour,

J'utilise une variable publique (nb) pour passer un nombre dans un UserForm, qui revient dans une boucle, mais ce dernier n'affiche pas le bon nombre (i). En général, il affiche le nombre précédent, voir le nombre attribué lors de la dernière exécution, alors que la variable est initialisée au début...

L'extrait de macro:

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
25
26
27
28
29
Public nb As Long
Public txt As String
 
Sub test
 
    nb = 0
 
For i = 3 to 100
 
    Application.Goto Range("B" & i), True
 
    nb = i
    UF_OuiNonAnnuler.Show False
    While UF_OuiNonAnnuler.Visible
        DoEvents
    Wend
 
    Select Case txt
    Case "Oui": GoTo LigneSuivante
    Case "Annuler": Exit Sub
    End Select
 
    'ici code exécuté si on clique sur "Non"
 
LigneSuivante:
 
Next
 
End Sub

Le code du UserForm:

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
25
26
27
Private Sub UserForm_Initialize()
 
    TextBox1.Value = nb
 
End Sub
 
Private Sub CommandButton1_Click()
 
    txt = "Oui"
 
    Unload Me
 
End Sub
 
Private Sub CommandButton2_Click()
 
    Unload Me
 
End Sub
 
Private Sub CommandButton3_Click()
 
    txt = "Annuler"
 
    Unload Me
 
End Sub

Toute aide est bienvenue.

Cordialement

[unparia]

Bonjour

J'ai la très "mauvaise" habitude de sérier les problèmes.
Je viens donc de le faire ainsi, puisque la question était d'affecter une valeur à une textbox d'un userform.
ma macro test :

Code :

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

1
2
3
4
5
6
Public nb As Long
 
Sub test()
  nb = 10
  UserForm1.Show False
End Sub

et le code de mon userform :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
 
    TextBox1.Value = nb
 
End Sub

Tout se passe fort bien.
Conclusion logique : ce n'est pas le passage d'une valeur, qui est ton problème, mais autre chose et bien en amont : la valeur elle-même que tu passes. Et ce problème-là n'a absolument rien à voir avec le fait que tu passes ou non cette valeur à un userform.

Une "petite" idée : quelle valeur passes-tu en mode pas-à-pas ?
Si pas la bonne : c'est autre chose que la procédure de passage, qui est à corriger. C'est la détermination de la valeur elle-même.
Tu suis la logique du pauvre vieillard que je suis ?

EDIT : et j'ai d'énormes difficultés à comprendre la finalité de ces 3 lignes de code :

Code :

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

1
2
3
While UF_OuiNonAnnuler.Visible
        DoEvents
 Wend

Tu veux bien me l'exposer ?

EDIT 2 : ah oui ! autre chose d'extrêmenent fondamental :
L'évènement Initialize d'un userform ne s'exécute qu'une seule fois ( à l'initialisation, comme l'indique son nom) . Il ne se redéclenche pas par la méthode Show. La valeur antérieure reste donc celle de l'Initialize antérieur, pardi.
Un userform subit d'autres évènements (dont l'évènement Activate)

[parmi]

J'ajouterais à ce que mentionne unparia (Salut...), les variables Public sont dans le code la feuille ou dans un module ?

[patricktoulon]

re
bonjour

Code :

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

1
2
3
4
5
6
7
8
sub ouvre_userform()
 
with mon_userform
.show 0
.controls("textbox1").value= "trucbidule"
end with 
'pas de variable ca passe directe
end sub

et rien dans le initialyse

[unparia]

A Dédé6621

Sois certain (je le suis en ce qui me concerne) que si tu expliquais avec précision la raison de cet étrange mécanisme (tenants et aboutissants) , une solution de type moins "usine" que celle que je devine te serait proposée.
Je t'ai parlé deux fois de ces Doevents en boucle. Il mettent à mal ton processeur (et son ventilateur dans la foulée), notamment si tu t'attardes un peu trop longtemps sur ton Userform.

[Dédé6621]

EDIT 2 : ah oui ! autre chose d'extrêmenent fondamental :
L'évènement Initialize d'un userform ne s'exécute qu'une seule fois ( à l'initialisation, comme l'indique son nom) . Il ne se redéclenche pas par la méthode Show. La valeur antérieure reste donc celle de l'Initialize antérieur, pardi.
Un userform subit d'autres évènements (dont l'évènement Activate)

Bravo! Tu as trouvé d'où vient le souci!
J'ai essayé avec l'événement Activate et ça marche!

Code :

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

1
2
3
4
5
6
7
8
sub ouvre_userform()
 
with mon_userform
.show 0
.controls("textbox1").value= "trucbidule"
end with 
'pas de variable ca passe directe
end sub

et rien dans le initialyse

Autre solution qui marche aussi. Merci. J'ai encore appris quelque chose.

Une "petite" idée : quelle valeur passes-tu en mode pas-à-pas ?
Si pas la bonne : c'est autre chose que la procédure de passage, qui est à corriger. C'est la détermination de la valeur elle-même.
Tu suis la logique du pauvre vieillard que je suis ?

En pas-à-pas, comme en exécution normale, la valeur passée est i, c'est-à-dire le numéro de chacune des lignes de 3 à 100.
Oui, je suis ta logique qui n'est certainement pas à plaindre. Je suis aussi pour diviser les difficultés "en autant de parcelles qu'il se pourrait, et qu'il serait requis pour les mieux résoudre" (René DESCARTES, Méth. II, 8).

j'ai d'énormes difficultés à comprendre la finalité de ces 3 lignes de code :

Code :

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

1
2
3
While UF_OuiNonAnnuler.Visible
        DoEvents
 Wend

Tu veux bien me l'exposer ?

Je t'ai parlé deux fois de ces Doevents en boucle. Il mettent à mal ton processeur (et son ventilateur dans la foulée), notamment si tu t'attardes un peu trop longtemps sur ton Userform.

... et je t'avais déjà répondu que cette boucle sert à suspendre l'exécution du code en attendant que nous, pauvres humains, prenions notre temps à cliquer sur l'un ou l'autre des boutons du UserForm. Sans elle, en non modal, le code continuerait sa course folle, ce qui poserait quelques problèmes. Mais peut-être qu'une mise en attente sans DoEvents est possible? Avec un "contrôle Timer" apparemment" (entrée "DoEvents, fonction" de l'aide VBA)?
Ce DoEvents, m'interloque depuis ma 1ère question. Il "passe la main au système d'exploitation", ok. Mais concrètement, qu'est-ce que cela entraîne?

Sois certain (je le suis en ce qui me concerne) que si tu expliquais avec précision la raison de cet étrange mécanisme (tenants et aboutissants) , une solution de type moins "usine" que celle que je devine te serait proposée.

Comment aurais-je pu connaître "la raison de cet étrange mécanisme"? Je l'ignorais et c'est la raison pour laquelle j'ai ouvert cette discussion.
Je fais mon possible pour être le plus précis possible, mais si tu penses que j'aurais pu mieux faire, je suis toujours ouvert aux suggestions.

les variables Public sont dans le code la feuille ou dans un module ?

Les variables Public sont dans un module à part.



Un grand merci à vous! Le problème a disparu

[Philippe Tulliez]

Bonjour Unparia;

EDIT 2 : ah oui ! autre chose d'extrêmenent fondamental :
L'évènement Initialize d'un userform ne s'exécute qu'une seule fois ( à l'initialisation, comme l'indique son nom) . Il ne se redéclenche pas par la méthode Show. La valeur antérieure reste donc celle de l'Initialize antérieur, pardi.
Un userform subit d'autres évènements (dont l'évènement Activate)

Tout dépend de la manière dont on ferme le UserForm
Ce que tu dis est vrai si l'on utilise Me.Hide mais avec l'instruction Unload Me ce que personnellement j'utilise toujours.

Code dans le UserForm

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 Unload Me
End Sub
Private Sub UserForm_Activate()
 MsgBox "Activate"
End Sub
Private Sub UserForm_Initialize()
 MsgBox "Initialize"
End Sub

Code dans le module qui lance le UserForm

Code :

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

1
2
3
4
5
Sub Main()
 UserForm1.Show
 MsgBox "Ok pour un nouveau lancement"
 UserForm1.Show
End Sub

[unparia]

Bonjour Philippe Tulliez
Regarde bien le premier message du demandeur. Il met en exergue l'existence d'un mécanisme de "va-et-vient" entre feuille et userform, ce dernier étant toujours bien "vivant".
Ce qui tend à expliquer la boucle while que je remets d'ailleurs en cause en raison de tout ce qu'elle inflige dans certains cas au processeur.

C'est la raison pour laquelle j'invitais notre ami à exposer les tenants et aboutissants de son mécanisme. De sorte à lui en suggérer un autre plus sage et efficace.

[Philippe Tulliez]

Bonjour Unparia,

Regarde bien le premier message du demandeur. Il met en exergue l'existence d'un mécanisme de "va-et-vient" entre feuille et userform, ce dernier étant toujours bien "vivant"

Je n'ai pas lu cette discussion ma remarque ne visait que la partie EDIT 2 de ton message.