explication

[baguidi]

Bonjour le forum,

Pourriez vous me dire ce que fait ce bout de code réellement et quant est ce qu'il faut l'utiliser.

Application.ScreenUpdating = True

Merci mes amis.

 

[2passage]

Re : explication

Bonjour,

Ca remet en route la mise à jour de l'affichage... à utiliser après :
Application.ScreenUpdating = False
suivi d'un traitement lourd qui ferait clignoter excel comme un sapin de noël si la mise a jour de l'écran fonctionnait

En espérant avoir répondu a ta question
++

 

[mth]

Re : explication

Bonjour Baguidi,

Application.ScreenUpdating = FALSE : Cette ligne de code permet de ne pas rafraichir l'écran quand une macro excel tourne, ça gagne un temps fou.
Attention, si ce code est placé quelque part dans une macro, il faut ABSOLUMENT remettre à la fin de la macro:

Application.ScreenUpdating = TRUE

Bien à vous,

Mth


Edit: Oups, pas vu votre réponse à temps 2passage ....

 

[Eric 45]

Re : explication

Bonjour à tous
Bonjour baguidi

Un petit "F1" sur "ScreenUpdating" t'aurait donné cette explication :

*****

ScreenUpdating, propriété

Cette propriété a la valeur True si la mise à jour de l'écran est activée. Type de données Boolean en lecture-écriture.
Notes

Désactivez (par = False) la mise à jour de l'écran pour accélérer l'exécution du code de votre macro. Vous ne pourrez suivre le déroulement de la macro mais en revanche celle-ci sera exécutée plus rapidement.
N'oubliez pas d'affecter de nouveau la valeur True à la propriété ScreenUpdating à la fin de la macro.
******


Bonne journée à tous

Eric

PS : désolé, pas vus, beaucoup de monde pour cette même réponse

 

[baguidi]

bonjour encore le forum,

Voila le problème que j'ai c'est que j'ai utilisé cet esemeble de code


Private Sub UserForm_Activate()

Dim temps As Single

temps = Timer

Do
Do Until temps + 0.5 <= Timer
DoEvents
Loop

' Si la couleur de fond du Label11 est rouge alors le fond du Label11 est noir
' sinon le fond du Label1 est rouge
If Label11.BackColor = RGB(255, 0, 0) Then
Label11.BackColor = RGB(0, 0, 0) ' Mettre la couleur que tu veux
Else
Label11.BackColor = RGB(255, 0, 0)
End If
temps = Timer
Loop
End Sub

Il permet de faire scintiller le label11.

mais je constacte que loraque je ferme le userform, je n'est pas la main pour travailler dans la feuille excel alors je me demande quoi faire. Cé comme si mme apres la fermeture du user la macro continue de travailler.

aidez moi