bouton avec plusieurs macro

[julienha]

bonjour, ds le fichier ci joint, j'ai 2 graphes (j'en aurais éventuellement 4 plus tard). Mais les données fluctuent dc j'ai un bouton (graphe) avec la macro ci dessous qui me permet de mettre a jour l'echelle du graphe 1. Mais j'aimerais un seul bouton qui me mettent à jour les échelles des graphe 1 & 2 (et éventuellement d'autres graphes que je vais créer plus tard).

macro :
Sub CommandButton1_Click()
Dim Mini As Integer, Maxi As Integer
Dim Plage As String

With ActiveSheet
Plage = "B6:B" & .Range("B3").End(xlDown).Row
Mini = Application.Min(Range(Plage)) - 8
Maxi = Application.Max(Range(Plage)) + 8
With .ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Mini
.MaximumScale = Maxi
.MajorUnit = 2
End With
End With
End Sub

merci bcp

 

[Gorfael]

Re : bouton avec plusieurs macro

Salut julienha et le forum
Déjà, utilise les balises de code (#, en mode avancé), ça le rend plus lisible
Je ne comprends pas ton problème.

sub CommandButton1_Click()

code de traitement du graphe 1
code de traitement du graphe 2
etc....
end sub

ta macro : Tu déclares plage en string, pour l'utiliser en Range (Plage) ???
Déclare-la directement en range.

Plage = "B6:B" & .Range("B3").End(xlDown).Row

Du mal à comprendre ce type de code. Que vient faire le B3 ici ? Tu parts de B6, la logique voudrait que tu recherches la fin à partir du début (B6), ou que tu changes le début en B3. Si déjà, à ce niveau tu n'est pas cohérent...
A+

 

[julienha]

Re : bouton avec plusieurs macro

hello, effectivement ma macro est fausse, il me faudrait une macro qui me mette a jour les échelles des graphes 1, 2.

merci bcp