Barre Autocalculate
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 subCette 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 subEt pour supprimer cette fonction :
sub EffaceFonction()
Application.CommandBars("AutoCalculate").Controls("Difference").Delete
end subAuteur : Daniel Josserand
Mots clefs associés à cette page : barre, autocalculate
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
