Re : Importation d'un userform d'un fichier à un autre fichier
Un grand merci,j'ai reussi à faire basculer la useform et j'ai modifié mon code mais quand j'appuie sur mon bouton, la userform ne s'affiche pas! Tabernak!
faut il ajouter une commande en plus?
Dim k, Pct As Integer
k = 0
Do
Worksheets("fe").Range("A2").Value = k + 1
k = k + 1
Pct = k
Application.Wait (Now + TimeSerial(0, 0, 1))
Call UpdateProgress(Pct)Loop While k < 3
End Sub
Sub UpdateProgress(Pct)
With UserForm1
.FrameProgress.Caption = Format(Pct, "0%")
.LabelProgress.Width = Pct * (.FrameProgress.Width - 10)
.Repaint
End With
End Sub