Bonjour,
Je partage un problème que j'ai avec une macro. Ma macro fonctionne. Il s'agit d'un bouton Spinbutton, qui permet de faire défiler des graphiques. Mon problème est que le sens des graphiques qui défilent ne me convient pas.
Je souhaite inverser le sens des boutons car actuellement ils fonctionnent à l'envers de ce que je veux ...
Merci pour votre aide!!
Merci
Je partage un problème que j'ai avec une macro. Ma macro fonctionne. Il s'agit d'un bouton Spinbutton, qui permet de faire défiler des graphiques. Mon problème est que le sens des graphiques qui défilent ne me convient pas.
Je souhaite inverser le sens des boutons car actuellement ils fonctionnent à l'envers de ce que je veux ...
Merci pour votre aide!!
VB:
Private Sub SpinButton1_SpinDown()
myVAL = SpinButton1.Value
If myVAL = 3 Then myVAL = 4: SpinButton1.Value = 4
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.ChartTitle.Text = Range("$B$" & myVAL).Value
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=Range("C" & myVAL & ":Q" & myVAL)
Call Macro1
Range("T21").Select
ActiveSheet.Protect "aaaa", True, True, True
End Sub
Private Sub SpinButton1_SpinUp()
myVAL = SpinButton1.Value
If myVAL = 32 Then myVAL = 31: SpinButton1.Value = 31
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.ChartTitle.Text = Range("$B$" & myVAL).Value
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=Range("C" & myVAL & ":Q" & myVAL)
Call Macro1
Range("T21").Select
ActiveSheet.Protect "aaaa", True, True, True
End Sub
Sub Macro1()
'
' Macro1 Macro
'
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "='bbbb'!$C$3:$Q$3"
End Sub
Merci