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
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Desinstaller application windows - Guide
- Application pour voir qui regarde mon profil facebook gratuit - Guide
- Application word et excel gratuit - Guide
3 réponses
Sur quelle ligne as-tu un message d'erreur et quel est le message ?
Mes variables M, N et O sont initialisées auparavant.