[Résolu][Calc]Bouton compteur gérer valeur mini et maxi

[zeguedon]

Bonjour,

Le titre devrait-être : [Résolu][Calc]Bouton compteur gérer valeur mini et maxi par cellule intermédiaire

Code : Tout sélectionner

    Option explicit
Sub Main(oEvt As Object)
'xray oEvt
Dim fA As Object, Bouton As Object
Dim nomBouton As String, celMin As String, celMax As String
Dim valeurMini As Long, valeurMaxi As Long
fA = Thiscomponent.CurrentController.ActiveSheet
bouton = oEvt.Source
nomBouton = bouton.Model.Name
Select Case nomBouton
   Case "Compteur 1"
      celMin = "A1"
      celMax = "A2"
   Case "Compteur 2"
      celMin = "F1"
      celMax = "F2"
   Case else
      Exit sub
   End Select
valeurMini = fA.GetCellRangeByName(celMin).Value
valeurMaxi = fa.GetCellRangeByName(celMax).Value
bouton.SetMinimum(valeurMini)
bouton.Setmaximum(valeurMaxi)
End Sub

Ce code permet de connecter autant de bouton que souhaité à la même macro sur l'événement "Souris à l'intérieur"

Evenement.png

Pour chaque nouveau bouton ajouté au fichier, il faut ajouter dans le code, une séquence comme celle ci avant la ligne Case Else :

Code : Tout sélectionner

Case "Compteur 3"
      celMin = "Z1"
      celMax = "Z2"