Discussion :

[ThSPB]

Bonjour,
J'ai réussi à créer une barre de défilement, ouf !
Mais, son fonctionnement ne me convient pas;
1ère anomalie, il faut que je masque l'userform support
2ème anomalie, la barre défile puis arrivée à 100% la macro se lance

Ce que je veux ;
Lorsque je clique sur un bouton, la macro "SMPNulle" se lance et la barre de défilement s'affiche sur l'userform supportant le bouton et progresse

Merci de votre aide

Thierry

[Frank]

Bonjour,

on peut voir ton code, stp ?

[XLRATOR]

Bonsoir,
Je vous envoie un fichier qui fait ce que vous désirez faire:
Une forme qui contient deux controles sliders (Comme la barre de défilement sauf que je le trouve plus élégant pour ce genre d'actions, Un pour le défilement et l'autre pour le zoom), et un bouton fermer qui ferme la forme.
Et enfin pour appeler la forme à s'afficher insérer un bouton dans votre feuille pour la convoquer.
Par contre, je vous conseille d'aller ici, là ou moi même ai appris à manipuler les objets, allez ! .... Dites donc, un peu de lécture ne vous fairait pas de mal, en plus c'est pour bien faire.
Defil et Zoom.xls

Bonne continuation

Karim

[ThSPB]

Bonjour Franck

Ci dessous le code

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
Private Sub VisuTabSMP_Click()
 
'Afficher la feuille SMP sinon la macro se bloque
ActiveWorkbook.Protect "******", Structure:=False, Windows:=False
    Sheets("SMP").Visible = True
 
 
   n = 50         ' affiche le pourcentage de 2 en 2, 25 = de 4 en 4
   témoin = True   ' pour empêcher fermeture du formulaire
   TMa2.Hide
   F_BarreAttente.Show
   For f = 1 To n
      '-- traitement fichier
      For a = 1 To 250000000: Next a   ' Simulation attente 250000000 dure environ 50"
      '--------------
      p = p + 1 / n                   ' calcul du pourcentage
      F_BarreAttente.Label1.Width = p * 100
      F_BarreAttente.Caption = Format(p, "0%")
      DoEvents
    Next f
    témoin = False
    Unload F_BarreAttente
 
Call SMPNulle
 
End Sub

La macro SMPNulle devrait se lancer pendant le défilement de la barre
L'userform TMa2 devrait rester affiché

As tu une idée ?

Thierry

[Theze]

Bonjour,

2ème anomalie, la barre défile puis arrivée à 100% la macro se lance

Ce comportement est normal, la proc fait ce que tu lui demande. Il faut savoir que le compilateur lit ligne par ligne de haut en bas donc, comme tu lui demande de boucler il boucle et ensuite à la fin il lance la proc "SMPNulle".
Si indiquer la progression de cette proc, il faut que les valeurs de progression de ta barre soient changer à l'intérieur de "SMPNulle".

Montre nous le code de "SMPNulle" pour qu'ont puissent t'aider.

Hervé.