Application.statusbar dynamique Utilisation Incorrecte de la Propriété

Bonjour, je souhaiterais afficher deux valeurs dynamiques dans la statusbar mais reçois un message d'erreur "Utilisation incorrecte de la propriété"


J'utilise ce code pour obtenir un timer et récupérer la consommation processeur dans un caption d'un userform:

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type

---

Code:

---

Public Declare PtrSafe Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

---

Code:

---

Public temps

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub majHeure()   temps = Now + TimeValue("00:00:01") Application.OnTime temps, "majHeure"   Dim MS As MEMORYSTATUS Dim chaine As String   MS.dwLength = Len(MS) GlobalMemoryStatus MS     Select Case Format$(MS.dwMemoryLoad, "###,###,###,###")   Case Is < 90   UserForm10.Label17.Caption = temps UserForm10.Label18.Caption = Format$(MS.dwMemoryLoad, "###,###,###,###") & "%"     UserForm10.Repaint     End Sub

---

Je pensaisinsérér:

Code:

---

1 2	Application.StatusBar temps & " " & Format$(MS.dwMemoryLoad, "###,###,###,###") & "%"

---

entre:

Code:

---

1 2	UserForm10.Repaint

---

et:

Code:

---

1 2

End Sub

---

Le problème est-il réductible?

MERCI!!!!

Bonjour,

ne manquerait-il pas un signe "=" entre la propriété et sa valeur ? :aie:

Code:

---

Application.StatusBar = temps & " " & Format$(MS.dwMemoryLoad, "###,###,###,###") & "%"

---

OUPS Hum Hum:
J'avais oublié le:

Code:

---

=

---

......