quelles étapes à suivre pour lire un code vba_problème userform

[titi]

bonjour,

ce message est le meme que le precedent, intitulé "barre de progression_macro"

je suis vraiment bloqué, j'aimerai avoir une aide...
merci


sur ce sujet du forum:

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=133965&t=133663

il y a un fichier excel qui permet de faire une barre de progression, mais je n'arrive pas à lire le code, c'est a dire je ne sais pas atteindre le code en vba de la barre de progression

pouvez vous me dire les étapes a suivre,

merci

titi

 

[Papy Novice]

Bjr Titi, bonne journée à toi, voici ce que tu demandes :

Sur Feuil1
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Sur UserForm1
Private Sub UserForm_activate()
Call Main
End Sub

Dans Module1
Sub Main()
' Inserts random numbers on the active worksheet
Dim Counter As Integer
Dim RowMax As Integer, ColMax As Integer
Dim r As Integer, c As Integer
Dim PctDone As Single

If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
Cells.Clear
Counter = 1
RowMax = 200
ColMax = 25
For r = 1 To RowMax
For c = 1 To ColMax
Cells(r, c) = Int(Rnd * 1000)
Counter = Counter + 1
Next c
PctDone = Counter / (RowMax * ColMax)
Call UpdateProgress(PctDone)
Next r
Unload UserForm1
End Sub

Sub UpdateProgress(Pct)
With UserForm1
.FrameProgress.Caption = Format(Pct, "0%")
.LabelProgress.Width = Pct * (.FrameProgress.Width - 10)
.Repaint
End With
End Sub

A la prochaine

 

[titi]

il faut faire tout ca pour voir un code...

je pense qu'on allait me dire:
va dans outils>macro>.... et que j'aurai vu le code vba, comme dans les simples macros....

y a pas plus simple...

 

[dg]

re

il faut eviter de poster plusieurs fois la même chose

de plus il faut lire les réponses de ses anciens post.


A+