Problème de lenteur sur un Userform
Bonjour à tous,
Je suis nouveau sur ce forum qui m'a déjà bien servi et je vous en remercie.
Je suis actuellement en train d'éditer un fichier basé sur quelques macro VBA et je constate une grande lenteur dans leurs exécutions.
Etant un novice en VBA, je dois avouer que j'ai écris des formules qui fonctionnent mais qui sont, à mon avis, loin d'être optimales.
Je cherche donc des conseils, s'il vous plaît, afin de gagner en temps d'exécution sur un userform permettant une saisie de données d'un tableau dans une fenêtre.
Je vous laisse le code utilisé. Je vous remercie d'avance pour votre aide
Private Sub UserForm_Initialize()
If Worksheets("Conditions").Range("A12") = True Then
TextBox1.Value = Worksheets("Tableaux").Range("C5").Value
TextBox1.Value = Format(TextBox1, "0.0%")
TextBox1.Font.Italic = False
End If
End Sub
Private Sub CommandButton3_Click()
Worksheets("Tableaux").Range("C5").Value = TextBox136.Value
If Worksheets("Conditions").Range("A12") = True Then
TextBox1.Value = Worksheets("Tableaux").Range("C5").Value
TextBox1Font.Italic = False
TextBox1.Value = Format(TextBox1, "0.0%")
Else
TextBox1.Value = Worksheets("Tableaux").Range("C7").Value
TextBox1.Enabled = False
TextBox1.Value = Format(TextBox1, "0.0%")
End If
End Sub
bonjour
au vu de ton code qui n'est pas long, je doute que la lenteur provienne de la macros
toutefois si tu veux diminuer un peu ce temps tu peux ajouter en début de code cette ligne
private sub...
Application.screenupdating=false
ça évite de rafraichir l'affichage pendant l'execution de la macro . et avant la ligne end sub, tu rajoute
Application.screenupdating=true
end sub...
Merci pour ta réponse, je vais essayer ceci.
Je précise que le code que j'ai noté n'est qu'un extrait car il y a en tout 32 Textboxs avec le même code
Après avoir testé le code que tu m'as fourni, la vitesse ne s'améliore pas vraiment.
Le rendu visuel est mieux cependant car l'userform ne clignote plus case après case.
Avez-vous d'autres astuces sur ce code svp ?
Sans voir ni fichier ni code, il est difficile de t'apporter de l'aide.
Toutefois , il faut se poser la questions de savoir si tu ne peux pas améliorer ton code en passant par des boucles ou autre méthodes afin de l'optimiser
Si tu peux nous passer le fichier en question , nous pourrions mieux t'aider