barre de progression avec enregistrement suite

Le
damienguilbert
bonsoir
j ai recupere une macro qui lance une barre de progrssion avec des
cellule
calculé
peut elle etre modifier pour que l evenement qui declencle cette barre
de progression soit un click d un bouton?????




Sub LaMacroQuiEstLongue()
' Traduite de la macro exemple de Jonhn Walkenbach

' Insère des nombres aléatoires sur la feuille active
'(moi je veux sauvegarder !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)

Dim Counter As Integer
Dim RowMax As Integer, ColMax As Integer
Dim r As Integer, c As Integer
Dim PourcentageEffectue 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
PourcentageEffectue = Counter / (RowMax * ColMax)
Call UpdateProgress(PourcentageEffectue)
Next r
Unload FrmProgression
End Sub

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




merci damien
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #1845344
bonjour damien,

pas besoin de modifier les macro pour ça,
seulement ajouter un bouton de la boite à outils formulaire sur la
feuille de calcul et de lui affecter cette macro.

Sub Bouton1_QuandClic()
LaMacroQuiEstLongue
End Sub

isabelle


bonsoir
j ai recupere une macro qui lance une barre de progrssion avec des
cellule
calculé
peut elle etre modifier pour que l evenement qui declencle cette barre
de progression soit un click d un bouton?????

Sub LaMacroQuiEstLongue()
' Traduite de la macro exemple de Jonhn Walkenbach

' Insère des nombres aléatoires sur la feuille active
'(moi je veux sauvegarder !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)

Dim Counter As Integer
Dim RowMax As Integer, ColMax As Integer
Dim r As Integer, c As Integer
Dim PourcentageEffectue 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
PourcentageEffectue = Counter / (RowMax * ColMax)
Call UpdateProgress(PourcentageEffectue)
Next r
Unload FrmProgression
End Sub

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

merci damien


Publicité
Poster une réponse
Anonyme