jaggerjack
XLDnaute Nouveau
Bonjour,
Je cherches à appuyer sur un bouton d'un premier userform (contenant une barre de progression)qui ferait évoluer la barre de progression et qui ouvrirait un second userform qui lui afficherait un message du genre veuillez patienter avec 3 points de suspension qui apparaitraient jusqu'à être au nombre de 3 et disparaitraient ensuite pour recommencer.
Actuellement je suis obligé de cacher le userform avec la barre de progression pour avoir le second userform affiché et il n'incrémente les points seulement quand le fichier excel n'est pas actif.
Voici le code :
Private Sub CommandButton1_Click()
UserForm1.Hide
UserForm2.Show vbModeless
Dim j As Integer
While UserForm1.TextBox1.Width <> 192
For j = 1 To 6
UserForm2.TextBox1.Value = "Please wait"
Application.Wait (Now + TimeValue("0:00:01"))
UserForm2.TextBox1.Value = "Please wait."
Application.Wait (Now + TimeValue("0:00:01"))
UserForm2.TextBox1.Value = "Please wait.."
Application.Wait (Now + TimeValue("0:00:01"))
UserForm2.TextBox1.Value = "Please wait..."
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.TextBox1.Width = UserForm1.TextBox1.Width + 32
Next j
Wend
End Sub
Je vous joint également le fichier au cas ou
Merci d'avance
Je cherches à appuyer sur un bouton d'un premier userform (contenant une barre de progression)qui ferait évoluer la barre de progression et qui ouvrirait un second userform qui lui afficherait un message du genre veuillez patienter avec 3 points de suspension qui apparaitraient jusqu'à être au nombre de 3 et disparaitraient ensuite pour recommencer.
Actuellement je suis obligé de cacher le userform avec la barre de progression pour avoir le second userform affiché et il n'incrémente les points seulement quand le fichier excel n'est pas actif.
Voici le code :
Private Sub CommandButton1_Click()
UserForm1.Hide
UserForm2.Show vbModeless
Dim j As Integer
While UserForm1.TextBox1.Width <> 192
For j = 1 To 6
UserForm2.TextBox1.Value = "Please wait"
Application.Wait (Now + TimeValue("0:00:01"))
UserForm2.TextBox1.Value = "Please wait."
Application.Wait (Now + TimeValue("0:00:01"))
UserForm2.TextBox1.Value = "Please wait.."
Application.Wait (Now + TimeValue("0:00:01"))
UserForm2.TextBox1.Value = "Please wait..."
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.TextBox1.Width = UserForm1.TextBox1.Width + 32
Next j
Wend
End Sub
Je vous joint également le fichier au cas ou
Merci d'avance