Macro pour l'application histogramme
epoulain
-
epoulain -
epoulain -
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
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
A voir également:
- Macro pour l'application histogramme
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Application word et excel gratuit - Guide
- Desinstaller application windows - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Application pour apprendre à coder - Guide
Mes variables M, N et O sont initialisées auparavant.