Discussion :

[Kestion100]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public temps

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

entre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
UserForm10.Repaint

et:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
End Sub

Le problème est-il réductible?

MERCI!!!!

[joe.levrai]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kestion100]

OUPS Hum Hum:
J'avais oublié le:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=

......