D
delirium
Guest
Bonsoir tous le monde.
J'ai réalisé une application XL avec un userform qui permet d'enregistrer mon classeur dans un répertoire, puis modifier la macro affecter à un bouton.
Le code de cet Userform est :
Private Sub Enregistrer_Click()
Range("I2").Value = TextBox1.Value
ChDir ThisWorkbook.Path & "\Plannings types"
ActiveWorkbook.SaveAs Range("I2").Value
ActiveWorkbook.CustomViews("Janvier").Show
Range("B1:G1").FormulaR1C1 = "Janvier"
ActiveSheet.Shapes("Picture 138").OnAction = "Enregistrer"
ActiveWorkbook.Save
Unload Me
End Sub
Mais l'exécution de cette macro met un certain temps (du fait de la lourdeur de mon classeur entre autre).
Je voudrais donc intégrer à mon Userform une barre de progression, mais après avoir lu les post concernant les barre de progression, je ne vois toujours pas comment faire, car a priori on peut appliquer une barre de progression que pour des boucles !
Si quelqu'un pouvait me donner un petit coup de main pour réaliser mon application, Merci.
J'ai réalisé une application XL avec un userform qui permet d'enregistrer mon classeur dans un répertoire, puis modifier la macro affecter à un bouton.
Le code de cet Userform est :
Private Sub Enregistrer_Click()
Range("I2").Value = TextBox1.Value
ChDir ThisWorkbook.Path & "\Plannings types"
ActiveWorkbook.SaveAs Range("I2").Value
ActiveWorkbook.CustomViews("Janvier").Show
Range("B1:G1").FormulaR1C1 = "Janvier"
ActiveSheet.Shapes("Picture 138").OnAction = "Enregistrer"
ActiveWorkbook.Save
Unload Me
End Sub
Mais l'exécution de cette macro met un certain temps (du fait de la lourdeur de mon classeur entre autre).
Je voudrais donc intégrer à mon Userform une barre de progression, mais après avoir lu les post concernant les barre de progression, je ne vois toujours pas comment faire, car a priori on peut appliquer une barre de progression que pour des boucles !
Si quelqu'un pouvait me donner un petit coup de main pour réaliser mon application, Merci.