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.
..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
Bonjour,
...helas rien trouvé de correspondant.
Merci quand même!
lSteph
(Question en suspens donc:)
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?
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: eVRa8MiRGHA.1576@tk2msftngp13.phx.gbl...
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OFTbVlgRGHA.336@TK2MSFTNGP12.phx.gbl...
..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" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le
message de news: ua8yZAgRGHA.1204@TK2MSFTNGP12.phx.gbl...
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.
..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.
