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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
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