VBA: Cette macro ralentit-elle Excel?

[Staple1600]

Bonsoir le forum

Est-ce que ce genre de code ralentit Excel?

Sub HeureINmenu()
' insére la date et l'heure dans la barre de menu
'////////////////////////////////////////////////
'Inspiré par
'Groupes de discussion : microsoft.public.fr.excel
'De : "JB"
'Date : 11 Feb 2007 13:23:42 -0800
'Local : Dim 11 fév 2007 23:23
'Objet : Re: heure dans un menu
heure = Now + TimeValue("00:00:1")
    With Application
        .OnTime heure, "HeureINmenu"
        .ActiveWindow.Caption = _
        "Nous sommes le " & Date & ", il est : " & Format(heure, "hh:mm:ss")
    End With
End Sub

 

[tirex28]

Re : VBA: Cette macro ralentit-elle Excel?

Bonsoir,

Je suis tenté de répondre oui. Est ce que c'est perceptible? Probablement que non.

Sinon, pour avoir l'heure voir la barre des taches de windows.🙂

Tirex28/

 

[Staple1600]

Re : VBA: Cette macro ralentit-elle Excel?

Bonjour tirex28, le forum


Mon regard est plus souvent attiré vers le coin gauche de l'écran

Et j'ai adapté cette macro pour épater ma copine

avec ce code 😛

With Application
        .OnTime heure, "HeureINmenu"
        .ActiveWindow.Caption = _
        "Nous sommes le " & Date & ", il est : " & Format(heure, "hh:mm:ss") &  _
"[B]tu es si belle à cette heure (Meme Excel la remarqué)[/B]"
    End With

Donc je voulais juste savoir si je laisse tourner cette macro en permanence, cela va-til ralentir Excel de manière significative?

 

[chris]

Re : VBA: Cette macro ralentit-elle Excel?

Bonjour
Amusant
Je pense comme tirex que le ralentissement doit être minime mais par contre cela peut sans doute interférer avec des macros.
J'avais eu un Pb avec un caption : j'ai oublié le détail mais il me semble que cela modifiait l'identité de la fenêtre active et mettait donc le souk dans le code existant.
Donc sans doute à utiliser avec modération malgré ton amour immodéré 🙄

 

[Staple1600]

Re : VBA: Cette macro ralentit-elle Excel?

Bonjour Chris


Maintenant que je l'ai épaté (la copine)

Je vais rendre sa liberté à ActiveWindow.Caption

Cela me fait penser à autre chose

Serait-ce une bonne idée d'utiliser ActiveWindow.Caption pour passer des infos?

ex:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim QLF As String
QLF = "Vous venez de sélectionner la feuille : " & UCase(ActiveSheet.Name)
Application.ActiveWindow.Caption = QLF
End Sub

ou des résulats de calcul