[XL-2007] Pointer vers une partie d'une macro principale dans un userform [Résolu]

[octane]

Bonjour,
Je veux afficher une barre de progression a partir d'une macro principale. Le probleme est que je ne veux pas revenir au debut du programme principale quand j'ai affiché le userform de la pbarre d'avancement mais je veux continuer mon code de ma macro principale (donc apres l'affichage du userform). Est il possible de faire un Goto ou quelque chose equivalent a la suite de ma macro principale (apres le UserForm3.Show) et dans le userform
quelque chose dans le genre
Call Type_Deal Goto XXXX
'ou Type_Deal est la marco principale et XXX le Goto
???


Macro principale

Code :

1
2
3
4
5
6
7
8
9
 
UserForm3.LabelProgress.Width = 0
UserForm3.Show
 
'on error resume next => ignore les erreurs (le code ne stoppe pas !)
   On Error Resume Next 'car on peut avoir des erreurs en redimensionnant le frame du userform
 
 'ouverture de la progressbar à 0%
    Call UpdateProgress2(0)

Mon userform

Code :

1
2
3
4
 
Private Sub UserForm_activate()
 
End Sub

[ZebreLoup]

Je n'ai pas bien compris ce que tu voulais, car de toute façon, le code n'est pas censé "revenir au début" après affichage du userform.
Mais peut-être qu'une piste est d'afficher le userform en non modal.

[octane]

le code reviendrait au debut car dans le user form je rappelerai la macro principal qui a lancé ce meme userform. Ce que j'aimerai c'est depuis le userform revenir dans le programme principale mais apres le UserForm3.Show

[ZebreLoup]

Tu es en train de créer une boucle infinie là, non ?
Code -> usf1 -> usf2 -> Code...

[octane]

Je fais :
code-> usf3 ->code.
Ce que je veux pour eviter la boulce infinie cest
Code -> usf3 -> code apres le usf3.show
L'usf3 est une barre de progression que j'unload a la fin du code principale

[ZebreLoup]

Il ne faut pas rappeler le code dans usf3. Dès que usf3 s'unload, tu vas revenir dans ton code.
Par contre, si tu as besoin de gérer la progression via ton code, il faut ouvrir usf3 en mode non modal et tout gérer directement à partir de ton code. Le code va continuer à s'executer sans attendre le unload de usf3. Tu vois ce que je veux dire ?

[octane]

heu.... non c'est quoi le non modal??

[ZebreLoup]

C'est quand la userForm que tu lances ne bloque pas le déroulement de la macro. Je vais essayer de te faire un exemple.

Pour mon exemple, j'ai créé une USF qui s'appelle usfProgression et qui contient une ProgressBar pbExemple.

Code de l'USF :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Public affichageModal As Boolean
 
Private Sub UserForm_Layout()
    If affichageModal Then 'Histoire de ne pas le faire en non modal
        Dim i As Integer
 
        For i = 1 To 100
            'Traitement ici...
            pbExemple.Value = i 'On incrémente la progress bar
            Sleep 50  'Histoire de voir ce qui se passe
        Next i
 
        Unload Me 'On referme, le code appelant va reprendre la main
    End If
End Sub

Code dans un module :

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
25
26
27
28
29
30
Option Explicit
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub MethodeModale()
    usfProgression.affichageModal = True
    'On affiche l'USF
    'Et on attend que son code s'execute
    usfProgression.Show
 
End Sub
 
Public Sub MethodeNonModale()
    usfProgression.affichageModal = False 'Pour le prévenir de ne pas faire son code
 
    'On affiche l'USF, mais on reprendre la main dès qu'il est affiché
    usfProgression.Show 0
 
    'On travaille dessus
    Dim i As Integer
 
    For i = 1 To 100
        'Traitement ici...
        usfProgression.pbExemple.Value = i 'On incrémente la progress bar
        Sleep 50 'Histoire de voir ce qui se passe
    Next i
 
    'On referme l'USF
    Unload usfProgression
End Sub

Essaie de lancer les 2 méthodes du module pour voir la différence. (Tu n'en verras qu'en mode pas à pas).
Ici, on a l'impression que ça fait la même chose, mais en fonction de ce qu'on veut faire le choix d'une méthode ou de l'autre peut-être déterminant.
Pour ce qui est d'une progressBar, je dirais quand même que la méthode non modale est la plus propre.

[octane]

super merci ca marche