Private Sub CommandButton1_Click()
CommandButton1.Caption = "Afficher " & IIf(CommandButton1.Caption Like "*pourcent", "valeur", "pourcent")
Affiche
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Affiche
End Sub
Sub Affiche()
Dim s As Byte, p As Byte, txt As String
For s = 1 To 4
For p = 1 To 2
txt = [A2].Offset(s, p)
If CommandButton1.Caption Like "*valeur" Then txt = Format(txt / [A7].Offset(, p), "0%")
Me.ChartObjects("Graphique 1").Chart.SeriesCollection(s).Points(p).DataLabel.Text = txt
Next
Next
Application.OnRepeat "", ""
End Sub