Barre Autocalculate

Quand on sélectionne 2 nombres par exemple, excel affiche tout en bas "somme= " et la somme des nombres sélectionnés. Peut on accéder à cet outil et le modifier ?

Cet outil s'appelle la barre autocalculate. Si tu fais un clic droit dessus tu as un petit menu qui te permet d'accéder à d'autres fonctions (mini, maxi...). Pour ajouter une fonction au petit menu de la barre d'état.(en bas à droite)

sub NouvelleFonction()
 With Application.CommandBars("AutoCalculate").Controls.Add
 .Caption = "Difference"
 .OnAction = "Difference"
 End With
 end sub

Cette fonction calcule la différence entre la valeur la plus grande et la valeur la plus petite de la sélection:

Private sub Difference()
 On Error Resume Next
 valeur = Application.Max(ActiveWindow.RangeSelection) - _
 Application.Min(ActiveWindow.RangeSelection)
 MsgBox "Difference = " & valeur
 Range("a1") = valeur
 end sub

Et pour supprimer cette fonction :

sub EffaceFonction()
 Application.CommandBars("AutoCalculate").Controls("Difference").Delete
 end sub

Auteur :

Mots clefs associés à cette page : ,