Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Statusbar Autocalculate Personnalisé

Statusbar Autocalculate Personnalisé

11 réponses
Avatar
lSteph
Bonjour à tous,

Quelqu'un sait-il comment s'appelle en VBA la petite "case" de la barre
d'état qui renvoie le résultat de la fonction cochée?
En fait , je souhaiterais (suivant l'exemple proposé par Robert Dezan, cela
je sais faire), ajouter une fonction que l'on puisse cocher
et dont le résultat calculé à l'identique des autres fonctions présentes
dans le petit menu correspondant, selon la sélection en cours,
soit retourné non pas dans un msgbox ou autre, mais bien dans cette fâmeuse
petite case.

Si quelqu'un a la solution, une idée ou un début de piste, merci d'avance.

Stéphane.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Ardus Petus
J'ai essayé avec l'enregistreur de macro.
Si on modifie le contenu de la "petite case" (Somme -> Min), rien ne
s'enregistre dans la macro.
Conclusion: j'ai bien peur que VBA ne permette pas de modifier cette "petite
case"

Cordialement,
--
AP

"lSteph" a écrit dans le message de
news:
Bonjour à tous,

Quelqu'un sait-il comment s'appelle en VBA la petite "case" de la barre
d'état qui renvoie le résultat de la fonction cochée?
En fait , je souhaiterais (suivant l'exemple proposé par Robert Dezan,
cela

je sais faire), ajouter une fonction que l'on puisse cocher
et dont le résultat calculé à l'identique des autres fonctions présentes
dans le petit menu correspondant, selon la sélection en cours,
soit retourné non pas dans un msgbox ou autre, mais bien dans cette
fâmeuse

petite case.

Si quelqu'un a la solution, une idée ou un début de piste, merci
d'avance.


Stéphane.




Avatar
lSteph
Bonjour "Ardus Petus",

Nombre de choses ne sont pas prises en compte par l'enregistreur et
pourtant réalisables avec VBA.
En revanche, je crains que tu n'aies raison sur un point, à savoir si c'est
une ressource cachée ou disons
en dur dans la fenêtre d'excel, auquel cas même par d'autres biais ne soit
peut-être pas accessible.
Quoi qu'il en soit je te remercie d'avoir essayé de m'aider!

lSteph

"Ardus Petus" a écrit dans le message de news:

J'ai essayé avec l'enregistreur de macro.
Si on modifie le contenu de la "petite case" (Somme -> Min), rien ne
s'enregistre dans la macro.
Conclusion: j'ai bien peur que VBA ne permette pas de modifier cette
"petite
case"

Cordialement,
--
AP

"lSteph" a écrit dans le message de
news:
Bonjour à tous,

Quelqu'un sait-il comment s'appelle en VBA la petite "case" de la barre
d'état qui renvoie le résultat de la fonction cochée?
En fait , je souhaiterais (suivant l'exemple proposé par Robert Dezan,
cela

je sais faire), ajouter une fonction que l'on puisse cocher
et dont le résultat calculé à l'identique des autres fonctions présentes
dans le petit menu correspondant, selon la sélection en cours,
soit retourné non pas dans un msgbox ou autre, mais bien dans cette
fâmeuse

petite case.

Si quelqu'un a la solution, une idée ou un début de piste, merci
d'avance.


Stéphane.








Avatar
Ardus Petus
Ce fut un plaisir!

--
AP

"lSteph" a écrit dans le message de
news:
Bonjour "Ardus Petus",

Nombre de choses ne sont pas prises en compte par l'enregistreur et
pourtant réalisables avec VBA.
En revanche, je crains que tu n'aies raison sur un point, à savoir si
c'est

une ressource cachée ou disons
en dur dans la fenêtre d'excel, auquel cas même par d'autres biais ne soit
peut-être pas accessible.
Quoi qu'il en soit je te remercie d'avoir essayé de m'aider!

lSteph

"Ardus Petus" a écrit dans le message de news:

J'ai essayé avec l'enregistreur de macro.
Si on modifie le contenu de la "petite case" (Somme -> Min), rien ne
s'enregistre dans la macro.
Conclusion: j'ai bien peur que VBA ne permette pas de modifier cette
"petite
case"

Cordialement,
--
AP

"lSteph" a écrit dans le message de
news:
Bonjour à tous,

Quelqu'un sait-il comment s'appelle en VBA la petite "case" de la barre
d'état qui renvoie le résultat de la fonction cochée?
En fait , je souhaiterais (suivant l'exemple proposé par Robert Dezan,
cela

je sais faire), ajouter une fonction que l'on puisse cocher
et dont le résultat calculé à l'identique des autres fonctions
présentes



dans le petit menu correspondant, selon la sélection en cours,
soit retourné non pas dans un msgbox ou autre, mais bien dans cette
fâmeuse

petite case.

Si quelqu'un a la solution, une idée ou un début de piste, merci
d'avance.


Stéphane.












Avatar
JpPradier
Bonjour LSteph

D'après Frédéric Sigonneau, je crois :

'Ajoute une fonction au petit menu de la barre d'état
Sub AjouteFonction()
'
With Application.CommandBars("AutoCalculate").Controls.Add

.Caption = "Fonction perso"
.OnAction = "FonctionPerso"
End With
End Sub

' Supprime la fonction
Sub EffaceFonction()

Application.CommandBars("AutoCalculate").Controls("Fonction perso").Delete

End Sub

'Savoir quel menu est coché
Sub RecupFonction()

For Each ctl In Application.CommandBars("autocalculate").Controls
If ctl.State = msoButtonDown Then Coche = ctl.Caption
Next
MsgBox Coche
End Sub

j-p
Avatar
lSteph
Bonsoir JpP,

D'abord je te suis reconnaissant de m' aider
(cette sub de FS est semblable à celle de RD et à ce que j'ai déjà...donc
jusque là j'y arrive!).
Ce auquel je ne parviens pas :
c'est à mettre une fonction de la même forme que l'on puisse cocher
et dont le résultat vienne s'incrire dans cette sacrée petite case dont
j'ignore déjà comment la désigner et de fait comment l'utiliser en VBA.

Encore Merci ...et si quelque idée.

Cordialement.

lSteph



"JpPradier" a écrit dans le message
de news: %
Bonjour LSteph

D'après Frédéric Sigonneau, je crois :

'Ajoute une fonction au petit menu de la barre d'état
Sub AjouteFonction()
'
With Application.CommandBars("AutoCalculate").Controls.Add

.Caption = "Fonction perso"
.OnAction = "FonctionPerso"
End With
End Sub

' Supprime la fonction
Sub EffaceFonction()

Application.CommandBars("AutoCalculate").Controls("Fonction
perso").Delete

End Sub

'Savoir quel menu est coché
Sub RecupFonction()

For Each ctl In Application.CommandBars("autocalculate").Controls
If ctl.State = msoButtonDown Then Coche = ctl.Caption
Next
MsgBox Coche
End Sub

j-p



Avatar
JpPradier
Bonsoir lSteph

Avec cette commande, tu peux mettre la coche :
Application.CommandBars("autocalculate").Controls("Fonction perso").State = msoButtonDown
Seulement, je n'ai pas réussi à la retirer de la fonction précédente. Cette propriété doit
etre en lecture seule. Je n'ai pas réussi non plus a afficher quelque chose.

j-p
Avatar
lSteph
Ah ! que cela ressemble à un début de filon, je vais creuser!

Merci, merci JpP

lSteph

"JpPradier" a écrit dans le message
de news:
Bonsoir lSteph

Avec cette commande, tu peux mettre la coche :
Application.CommandBars("autocalculate").Controls("Fonction perso").State
= msoButtonDown
Seulement, je n'ai pas réussi à la retirer de la fonction précédente.
Cette propriété doit
etre en lecture seule. Je n'ai pas réussi non plus a afficher quelque
chose.

j-p



Avatar
lSteph
..suite, pour l'instant j'essaie avec un truc tout simple
Sub NouvelleSub_Adresse()
' Ajoute au petit menu de la barre d'état.(en bas à droite)
With Application.CommandBars("AutoCalculate").Controls.Add
.Caption = "A&dresse"
.OnAction = "Adresse"
End With
End Sub
Function Adresse()
Adresse= Selection.Address
End Function
Sub enlève()
Application.CommandBars("AutoCalculate").Controls("Adresse").Delete
End Sub

..... Je n'ai pas réussi non plus a afficher quelque chose.
Bien précisément non plus sauf en utilisant une sub avec msgbox ou résultat

de la fonction dans la statusbar

Donc en insérant ceci:
Application.CommandBars("AutoCalculate").Controls("Adresse").state=mso......
Seulement, je n'ai pas réussi à la retirer de la fonction précédente
idem!

j'ai essayé plusieurs options mais soit elle reste cochée ou non cochable et
le reste des fonction est sûrement
partie d'un "groupe" indépendant et qui probablement appellent une sub qui
renvoie le résultat d'une fonction dans la "fâmeuse case"
(si déjà je trouvais son nom), en raison de l'élément coché.

Je vais continuer à fouiller, peut-être trouverais-je quelquechose dans
l'explorateur d'objets ou continuerais à chercher sur le web.

Merci encore.

Stéphane.

"JpPradier" a écrit dans le message
de news:
Bonsoir lSteph

Avec cette commande, tu peux mettre la coche :
Application.CommandBars("autocalculate").Controls("Fonction perso").State
= msoButtonDown
Seulement, je n'ai pas réussi à la retirer de la fonction précédente.
Cette propriété doit
etre en lecture seule. Je n'ai pas réussi non plus a afficher quelque
chose.

j-p



Avatar
...Patrick
Salut,,

est ce que ceci peut t'aider ?

http://www.mvps.org/dmcritchie/excel/statusbar.htm#simulation


...Patrick

"lSteph" a écrit dans le message de news:

..suite, pour l'instant j'essaie avec un truc tout simple
Sub NouvelleSub_Adresse()
' Ajoute au petit menu de la barre d'état.(en bas à droite)
With Application.CommandBars("AutoCalculate").Controls.Add
.Caption = "A&dresse"
.OnAction = "Adresse"
End With
End Sub
Function Adresse()
Adresse= Selection.Address
End Function
Sub enlève()
Application.CommandBars("AutoCalculate").Controls("Adresse").Delete
End Sub

..... Je n'ai pas réussi non plus a afficher quelque chose.
Bien précisément non plus sauf en utilisant une sub avec msgbox ou

résultat de la fonction dans la statusbar

Donc en insérant ceci:
Application.CommandBars("AutoCalculate").Controls("Adresse").state=mso......
Seulement, je n'ai pas réussi à la retirer de la fonction précédente
idem!

j'ai essayé plusieurs options mais soit elle reste cochée ou non cochable
et le reste des fonction est sûrement
partie d'un "groupe" indépendant et qui probablement appellent une sub qui
renvoie le résultat d'une fonction dans la "fâmeuse case"
(si déjà je trouvais son nom), en raison de l'élément coché.

Je vais continuer à fouiller, peut-être trouverais-je quelquechose dans
l'explorateur d'objets ou continuerais à chercher sur le web.

Merci encore.

Stéphane.

"JpPradier" a écrit dans le message
de news:
Bonsoir lSteph

Avec cette commande, tu peux mettre la coche :
Application.CommandBars("autocalculate").Controls("Fonction perso").State
= msoButtonDown
Seulement, je n'ai pas réussi à la retirer de la fonction précédente.
Cette propriété doit
etre en lecture seule. Je n'ai pas réussi non plus a afficher quelque
chose.

j-p







Avatar
lSteph
Bonsoir ....Patrick,
C'est une piste, je vais regarder cela
Merci

lSteph
(revoir mon anglais!..)

"...Patrick" a écrit dans le message de
news:
Salut,,

est ce que ceci peut t'aider ?

http://www.mvps.org/dmcritchie/excel/statusbar.htm#simulation


...Patrick

"lSteph" a écrit dans le message de news:

..suite, pour l'instant j'essaie avec un truc tout simple
Sub NouvelleSub_Adresse()
' Ajoute au petit menu de la barre d'état.(en bas à droite)
With Application.CommandBars("AutoCalculate").Controls.Add
.Caption = "A&dresse"
.OnAction = "Adresse"
End With
End Sub
Function Adresse()
Adresse= Selection.Address
End Function
Sub enlève()
Application.CommandBars("AutoCalculate").Controls("Adresse").Delete
End Sub

..... Je n'ai pas réussi non plus a afficher quelque chose.
Bien précisément non plus sauf en utilisant une sub avec msgbox ou

résultat de la fonction dans la statusbar

Donc en insérant ceci:
Application.CommandBars("AutoCalculate").Controls("Adresse").state=mso......
Seulement, je n'ai pas réussi à la retirer de la fonction précédente
idem!

j'ai essayé plusieurs options mais soit elle reste cochée ou non cochable
et le reste des fonction est sûrement
partie d'un "groupe" indépendant et qui probablement appellent une sub
qui renvoie le résultat d'une fonction dans la "fâmeuse case"
(si déjà je trouvais son nom), en raison de l'élément coché.

Je vais continuer à fouiller, peut-être trouverais-je quelquechose dans
l'explorateur d'objets ou continuerais à chercher sur le web.

Merci encore.

Stéphane.

"JpPradier" a écrit dans le
message de news:
Bonsoir lSteph

Avec cette commande, tu peux mettre la coche :
Application.CommandBars("autocalculate").Controls("Fonction
perso").State = msoButtonDown
Seulement, je n'ai pas réussi à la retirer de la fonction précédente.
Cette propriété doit
etre en lecture seule. Je n'ai pas réussi non plus a afficher quelque
chose.

j-p











1 2