Public Sub HistoFormatNumFeuilActive()
F$ = FFormatNumHisto$ ' <<<<<<<< ici fonction qui formate F$ en "0.0" ou "0.000" . . . peut importe point ou virgule
ActiveSheet.ChartObjects(GraphHisto$).Activate
If InStr(F$, ".") + InStr(F$, ",") > 0 Then
ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = F$
If InStr(ActiveChart.SeriesCollection(1).DataLabels.NumberFormat, "#") > 0 Then ' si pas ok on a un # c'est le repère !
If InStr(F$, ".") > 0 Then '<<< si c'est avec un point remplace par virgule
F$ = Replace(F$, ".", ",")
ElseIf InStr(F$, ",") > 0 Then '<<< si c'est avec une virgule remplace par point
F$ = Replace(F$, ",", ".")
End If
End If
End If
ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = F$ '%barres
ActiveChart.Axes(xlValue).TickLabels.NumberFormat = F$ 'bas de l'histo
End Sub