Re : histogramme par macro
Bonjour,
J'ai le problème similaire sur le fait de faire varier les cellules,
je vous y inscrit le code que vous arrivez à trouver mon erreur, où ce qui ne va pas...
Voici le code :
Do Until IsEmpty(Cells(M - 1, 2))
If Cells(M, 6) <> Cells(M + 1, 6) Then
Cells(1, 2 * N + 5) = Cells(M, 6)
Cells(1, 2 * N + 6) = "R1-Ges"
Application.Run "ATPVBAEN.XLA!Histogram", ActiveSheet.Range(Cells(M - O, 3), Cells(M, 3)), _
ActiveSheet.Range(Cells(2, 2 * N + 5)), ActiveSheet.Range(Cells(1, 1), Cells(L, 1)), False, False, _
False, False
O = 1
N = N + 1
End If
O = O + 1
M = M + 1
Loop
Merci pour vos réponses
Epoulain