Calcul de la barre d'état qui ne fonctionne plus

attention mets la commande suivante (derniere ligne)
Application.StatusBar = A & B & C & D & E & f
en commantaire pour que le statusbar ne soit pas modifié.

je ne sais pas ce que ton fichier contient, il y a des macro ?
peut être qu'il faudrait un reset de chaque control,

Sub test()
For Each Ctrl In CommandBars("autocalculate").Controls
Ctrl.Reset
Next
End Sub

isabelle

ps/ si cela fonctionne c'est qu'il il a un p'tit comique dans ton équipe

une autre possibilité,

Sub test5()
With CommandBars("AutoCalculate")
.Protection = msoBarNoProtection
.Enabled = True
.Width = 127
.Protection = msoBarNoChangeVisible
.Protection = msoBarNoCustomize
End With
End Sub

'msoBarNoChangeDock 16 Le paramètre d'ancrage ne peut pas être modifié.
'msoBarNoChangeVisible 8 La barre de commandes ne peut pas être masquée.
'msoBarNoCustomize 1 La barre de commandes ne peut pas être personnalisée.
'msoBarNoHorizontalDock 64 La barre de commandes ne peut pas être ancrée dans la partie supérieure ou
inférieure.
'msoBarNoMove 4 La barre de commandes ne peut pas être déplacée.
'msoBarNoProtection 0 La barre de commandes peut être personnalisée par l'utilisateur sur tous les plans.
'msoBarNoResize 2 La barre de commandes ne peut pas être redimensionnée.
'msoBarNoVerticalDock 32 La barre de commandes ne peut pas être ancrée dans la partie gauche ou droite.

ps/ si cela fonctionne c'est qu'il il a un p'tit comique dans ton équipe

isabelle

Le 2013-06-14 19:12, isabelle a écrit :

attention mets la commande suivante (derniere ligne)
Application.StatusBar = A & B & C & D & E & f
en commantaire pour que le statusbar ne soit pas modifié.

je ne sais pas ce que ton fichier contient, il y a des macro ?
peut être qu'il faudrait un reset de chaque control,

Sub test()
For Each Ctrl In CommandBars("autocalculate").Controls
Ctrl.Reset
Next
End Sub

isabelle

Sub test()
For Each Ctrl In CommandBars("autocalculate").Controls
Ctrl.Reset
Next
End Sub

Sub test5()
With CommandBars("AutoCalculate")
.Protection = msoBarNoProtection
.Enabled = True
.Width = 127
.Protection = msoBarNoChangeVisible
.Protection = msoBarNoCustomize
End With
End Sub

Sub test1()
Dim Ctrl As CommandBarButton, Msg As String
Dim A As String, B As String, C As String
Dim D As String, E As String
Application.StatusBar = False
If Selection.Cells.Count = 1 Then Exit Sub
On Error Resume Next
For Each Ctrl In Application.CommandBars("AutoCalculate").Controls
Select Case Ctrl.Caption
Case "&Compteur"
If Application.CountA(Selection) > 1 Then
A = Msg & "Non vides : " & _
Application.CountA(Selection) & " "
End If
Case "Chi&ffres"
If Application.Count(Selection) > 0 Then
B = Msg & "Num : " & _
Application.Count(Selection) & " "
End If
Case "&Somme"
If Application.Count(Selection) > 0 Then
C = Msg & "Somme : " _
& Application.Sum(Selection) & " "
End If
Case "&Moyenne"
If Application.Count(Selection) > 0 Then
D = Msg & "Moyennne : " & Application.Round _
(Application.Average(Selection), 3) & " "
End If
Case "Ma&x."
If Application.Count(Selection) > 0 Then
E = Msg & "Max : " & _
Application.Max(Selection) & " "
End If
Case "M&in."
If Application.Count(Selection) > 0 Then
f = Msg & "Min : " _
& Application.Min(Selection) & " "
End If
End Select
Next Ctrl
MsgBox A & B & C & D & E & f
'Peut choisir d'afficher seulement un ou tous
'les éléments en incluant dans la chaîne la ou
'les lettres correspondantes.
Application.StatusBar = A & B & C & D & E & f
End Sub '(MichDenis)

je ne sais pas ce que ton fichier contient, il y a des macro ?

je ne sais pas ce que ton fichier contient, il y a des macro ?

Les fichiers en question sont ouverts via un logiciel "Revisaudit".
Le souci
est que la maintenance de ce logiciel n'a jamais remontée ce
problème, ils
ont fait des essais mais n'ont pas réussi à avoir le
problème sur leurs
postes. Pour eux, leur programme ne pourrait pas interférer avec le
calcul
de la barre d'état Excel.

Ce bug est aléatoire donc... c'est un peu l'horreur pour trouver
d'où cela
provient...

L'un des rares constats que l'on peut faire est qu'il se produit sur Excel
2007 et 2010... mais que le peu de personnes que l'on a qui travaillent en
Excel 2003 n'ont aucun problème.

@+
HD

Bonjour,
Nous avons un problème qui semble se produire de manière
aléatoire... mais
toujours avec les mêmes classeurs.
Nous utilisons le calcul de la barre d'état car c'est rapide et
pratique. On
sélectionne quelques cellules avec des nombres et l'on voit alors
apparaître
dans la barre d'état la somme de ces nombres. Le souci est qu'il arrive
de
manière aléatoire que la somme ne fonctionne plus. L'on travaille
sur le
classeur et d'un moment à l'autre ça coince.
Les classeurs sont bien en calcul automatique (même si je ne pense pas
que
ça influence), les cellules contiennent bien des nombres (une formule
les
calcule bien et j'ai également testé en forçant les
nombres en faisant un
copier/coller spécial multiplication par 1), etc...
J'y perd un peu mon latin, je ne vois pas pourquoi ça coince. Il doit y
avoir un scénario particulier.
Nous avons des postes avec Excel 2007 et Excel 2010.
Merci d'avance pour votre aide,
@+
HD

Bonjour,
Nous avons un problème qui semble se produire de manière
aléatoire... mais
toujours avec les mêmes classeurs.
Nous utilisons le calcul de la barre d'état car c'est rapide et
pratique. On
sélectionne quelques cellules avec des nombres et l'on voit alors
apparaître
dans la barre d'état la somme de ces nombres. Le souci est qu'il arrive
de
manière aléatoire que la somme ne fonctionne plus. L'on travaille
sur le
classeur et d'un moment à l'autre ça coince.
Les classeurs sont bien en calcul automatique (même si je ne pense pas
que
ça influence), les cellules contiennent bien des nombres (une formule
les
calcule bien et j'ai également testé en forçant les
nombres en faisant un
copier/coller spécial multiplication par 1), etc...
J'y perd un peu mon latin, je ne vois pas pourquoi ça coince. Il doit y
avoir un scénario particulier.
Nous avons des postes avec Excel 2007 et Excel 2010.
Merci d'avance pour votre aide,
@+
HD