Microsoft 365 Lenteur macro

[Calvus]

Bonsoir ou bonjour à tous,

Tout d'abord, tous mes vœux pour cette nouvelle année.

J'ai un code à l'initialisation d'un userform qui rend très lente, a savoir environ 3,5 secondes.

C'est une ligne qui pose problème. Si je l'enlève, le userform s'ouvre en 0,06 secondes.
Cela concerne l'alimentation d'un combobox, sur 2000 lignes.

La voici :

For i = 1 To UBound(TPlages)
    If TPlages(i, 2) = 0 Then
        ComboBox3.AddItem "" & WorksheetFunction.Proper(Format(Weekday(TPlages(i, 1), 1), "dddd")) 
        ComboBox3.List(ComboBox3.ListCount - 1, 1) = TPlages(i, 1)
    End If
Next

Et c'est en particulier cette ligne qui est la cause du ralentissement :

ComboBox3.AddItem "" & WorksheetFunction.Proper(Format(Weekday(TPlages(i, 1), 1), "dddd"))

Ceci afin d'avoir le jour indiqué en regard de la date, comme sur l'image ci-dessous :

C'est donc le WorksheetFunction.Proper(Format(Weekday(TPlages(i, 1), 1), "dddd")) qui pose problème, en affectant le jour à chaque item.

Avez-vous une idée de contournement de cette instruction afin de rendre le code plus rapide ?

Merci d'avance.

 

[patricktoulon]

re
Bonsoir
rectification

Spoiler

que je suis obligé d'utiliser ce n'est pas la même chose

et je n'ai de leçons a recevoir de personne (me semble t il te l'avoir déja dit @Cousinhub )
j'empêche personne de progrésser au contraire
et en tant que client de MS comme toi et tout les autres ,j'ai parfaitement le droit de juger ce produit