Bonjour,

Bonjour,

J'ai un problème en utilisant l'application histogramme en macro, je dois faire varier ma plage de cellule et apperemment cela ne fonctionne pas, Est-ce vraiment résolvable?
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