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

[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

[GL]

Post by HD
Bonjour,
Le souci est qu'il arrive de
manière aléatoire que la somme ne fonctionne plus.
J'y perd un peu mon latin, je ne vois pas pourquoi ça coince. Il doit y
avoir un scénario particulier.

Comment ? Il y a un bug dans un logiciel Kro$oft !

Ca veut dire quoi : "la somme ne fonctionne plus" ?
En principe, la somme (la moyenne, le nombre de non vides
etc... en fonction des options de la barre d'état) s'affiche
dès qu'il y a au moins 2 cellules non vides sélectionnées.

Si le comportement dépend de votre classeur, cela va être
difficile de déboguer...

[HD]

Post by GL
Ca veut dire quoi : "la somme ne fonctionne plus" ?
En principe, la somme (la moyenne, le nombre de non vides
etc... en fonction des options de la barre d'état) s'affiche
dès qu'il y a au moins 2 cellules non vides sélectionnées.

Lorsque l'on sélectionne plusieurs cellules non vides contenant des nombres
l'on n'a plus la somme qui s'affiche dans la barre d'état alors même que
"Somme" est bien coché dans la barre d'état. Il n'est plus possible d'avoir
de somme dans la barre d'état quelque soit le classeur actif dans l'instance
Excel où le problème se produit. Par contre, si l'on ouvre une nouvelle
instance Excel le souci ne se produit pas sur la nouvelle instance. Par
contre si l'on clique sur un fichier Excel alors il va s'ouvrir sur la
première instance où le bug se produit et il ne sera pas possible non plus
d'avoir la somme dans la barre d'état.

Post by GL
Si le comportement dépend de votre classeur, cela va être
difficile de déboguer...

C'est clair... surtout avec un bug qui semble aléatoire... il y'a peut être
un scénario qui conduit au bug mais nous ne l'avons toujours pas cerné alors
que cela fait plusieurs mois que nous avons le souci.

@+
HD

[isabelle]

bonjour HD,

Sub Macro1()
CommandBars("AutoCalculate").Reset
End Sub

isabelle

Post by HD

Post by GL
Ca veut dire quoi : "la somme ne fonctionne plus" ?
En principe, la somme (la moyenne, le nombre de non vides
etc... en fonction des options de la barre d'état) s'affiche
dès qu'il y a au moins 2 cellules non vides sélectionnées.

Lorsque l'on sélectionne plusieurs cellules non vides contenant des nombres
l'on n'a plus la somme qui s'affiche dans la barre d'état alors même que
"Somme" est bien coché dans la barre d'état. Il n'est plus possible d'avoir
de somme dans la barre d'état quelque soit le classeur actif dans l'instance
Excel où le problème se produit. Par contre, si l'on ouvre une nouvelle
instance Excel le souci ne se produit pas sur la nouvelle instance. Par
contre si l'on clique sur un fichier Excel alors il va s'ouvrir sur la
première instance où le bug se produit et il ne sera pas possible non plus
d'avoir la somme dans la barre d'état.

Post by GL
Si le comportement dépend de votre classeur, cela va être
difficile de déboguer...

C'est clair... surtout avec un bug qui semble aléatoire... il y'a peut être
un scénario qui conduit au bug mais nous ne l'avons toujours pas cerné alors
que cela fait plusieurs mois que nous avons le souci.
@+
HD

[HD]

Post by isabelle
Sub Macro1()
CommandBars("AutoCalculate").Reset
End Sub

Merci Isabelle, j'attend que quelqu'un ait le bug et je vais tester pour
voir si ça permet de bien relancer le calcul dans la barre d'état.

Ce problème est assez mystérieux. J'ai vu avec mes collègues, il se produit
sur les postes avec Excel 2010. Pour les postes en Excel 2007 j'attend la
confirmation... par contre il ne se produit pas avec Excel 2003...

@+
HD

[HD]

Re-Bonjour,

Post by isabelle
Sub Macro1()
CommandBars("AutoCalculate").Reset
End Sub

J'ai testé la commande mais... cela n'a rien donné. Aucun calcul ne se fait
dans la barre d'état... :-/

@+
HD

[isabelle]

bonjour HD,

le mot "Prêt" est t'il bien afficher à la gauche de la barre d'état lors
du bug ?

isabelle

Post by HD
Re-Bonjour,

Post by isabelle
Sub Macro1()
CommandBars("AutoCalculate").Reset
End Sub

J'ai testé la commande mais... cela n'a rien donné. Aucun calcul ne se fait
dans la barre d'état... :-/
@+
HD

[isabelle]

sinon peut-tu mettre une image des propriétées de cette barre, avec au
moins deux cellules contenant un nombre sélectionnées, comme celle-ci :
http://cjoint.com/?CFobXCyw26a

isabelle

Post by isabelle
bonjour HD,
le mot "Prêt" est t'il bien afficher à la gauche de la barre d'état lors
du bug ?
isabelle

Post by HD
Re-Bonjour,

Post by isabelle
Sub Macro1()
CommandBars("AutoCalculate").Reset
End Sub

J'ai testé la commande mais... cela n'a rien donné. Aucun calcul ne se fait
dans la barre d'état... :-/
@+
HD

[HD]

Post by isabelle

Post by isabelle
le mot "Prêt" est t'il bien afficher à la gauche de la barre d'état lors
du bug ?

Oui, le mot "prêt" est bien affiché.

Post by isabelle
sinon peut-tu mettre une image des propriétées de cette barre, avec au
http://cjoint.com/?CFobXCyw26a

Voici la copie écran :
Loading Image...
L'on a bien prêt, tout parait correct au niveau des paramètres, 2 cellules
avec des chiffres sont sélectionnées (j'ai moi même tapé les montants) et
pourtant aucune somme n'apparait dans la barre d'état.

@+
HD

[isabelle]

peut-tu essayer celle-ci,

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)

isabelle

Post by HD

Post by isabelle

Post by isabelle
le mot "Prêt" est t'il bien afficher à la gauche de la barre d'état lors
du bug ?

Oui, le mot "prêt" est bien affiché.

Post by isabelle
sinon peut-tu mettre une image des propriétées de cette barre, avec au
http://cjoint.com/?CFobXCyw26a

http://i82.servimg.com/u/f82/15/15/13/06/pb_bar10.jpg
L'on a bien prêt, tout parait correct au niveau des paramètres, 2 cellules
avec des chiffres sont sélectionnées (j'ai moi même tapé les montants) et
pourtant aucune somme n'apparait dans la barre d'état.
@+
HD

[isabelle]

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

Post by isabelle
peut-tu essayer celle-ci,
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)
isabelle

Post by HD

Post by isabelle

Post by isabelle
le mot "Prêt" est t'il bien afficher à la gauche de la barre d'état lors
du bug ?

Oui, le mot "prêt" est bien affiché.

Post by isabelle
sinon peut-tu mettre une image des propriétées de cette barre, avec au
http://cjoint.com/?CFobXCyw26a

http://i82.servimg.com/u/f82/15/15/13/06/pb_bar10.jpg
L'on a bien prêt, tout parait correct au niveau des paramètres, 2 cellules
avec des chiffres sont sélectionnées (j'ai moi même tapé les montants) et
pourtant aucune somme n'apparait dans la barre d'état.
@+
HD

[isabelle]

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

Post by isabelle
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

[Jacky]

Hello Isabelle

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

:-)))))))))
http://cjoint.com/?CFpltZsJoAy
--
Salutations
JJ

Post by isabelle
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

Post by isabelle
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

[HD]

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

Cette macro ne change rien non plus.

@+
HD

[HD]

Re-Bonjour,

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

Cette macro ne change rien au problème. La barre n'affiche toujours aucun
calcul.

@+
HD

[HD]

Post by isabelle
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

[max60]

Post by HD

Post by isabelle
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 le même problème !!!
Malgré toutes nos recherches et messages laissés sur # sites , pas de réponse
efficaces..
êtes-vous toujours "au même point" ?
Cordialement.

[HD]

J'ai put tester la macro et j'obtiens cela:
Loading Image...
La macro calcul bien les données.

Post by isabelle
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)

[steph696]

Post by 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,
J'ai le même problème, une solution a t elle déjà été trouvée ??

[News.aioe.org]

Bonjour,

Utilise cette petite macro pour copier toutes les feuilles dans un nouveau
classeur. Est-ce que le problème existe encore dans le nouveau classeur?

La macro :
'----------------
Sub Test()
Sheets.copy
End Sub
'----------------

MichD

Post by 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,
J'ai le même problème, une solution a t elle déjà été trouvée ??

[steph696]

Post by 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,
J'ai le même problème avec plusieurs collègues, une solution a t elle déjà ét
trouvée ??