Excel 2003, problème avec une boucle - VB/VBA/VBS - Programmation
Marsh Posté le 09-06-2009 à 12:14:56
L'erreur 1004 pour Excel est "No cells were found"
Il doit y avoir un problème avec l'indice d'une cellule ou bien avec son contenu qui est peut-être vide.
Marsh Posté le 09-06-2009 à 14:45:22
Utiliser une macro pour faire une moyenne me paraît être un peu exagérée... avec une utilisation des formules, tu dois facilement pouvoir faire la même chose
Pas trop bien le temps d'éplucher ta macro... mais elle fait quoi comme moyenne exactement ??
Marsh Posté le 09-06-2009 à 16:03:47
En fait c'est pour un projet universitaire, la macro doit s'adapter à des feuilles excel différentes. Elle fait simplement une moyenne arithmétique des valeurs d'une colonne "high" et d'une colonne "low". Mais ces colonnes ne sont pas disposées de la même manière dans chaque feuille.
Marsh Posté le 09-06-2009 à 16:08:21
toujours pas bien compris pourquoi on vient valoriser k et l avec le numéro de colonne.
Je ne vois pas non plus de somme, et du coup je ne comprends pas pourquoi on parle de moyenne...
Bref... si tu as un exemple simplifié, je suis preneur
Marsh Posté le 09-06-2009 à 10:58:02
Slt, j'ai écrit une macro pour faire la moyenne des valeurs entre 2 colonnes. J'ai un tableau de 256 lignes et la boucles s'arrête à la ligne 252 puis me lance une erreur 1004 erreur sur l'objet.
Voila le script :
Sub moyenne()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
j = 1
m = 2
i = UsedRange.Columns.Count
Cells(1, i + 1) = "Average"
Do
Do
If Cells(1, j).Value = "High" Then
k = Cells(1, j).Column
ElseIf Cells(1, j).Value = "Low" Then
l = Cells(1, j).Column
End If
j = j + 1
Loop Until IsEmpty(Cells(1, j).Value)
Cells(m, i + 1) = Cells(m, k) / 2 + Cells(m, l) / 2
m = m + 1
Loop Until IsEmpty(Cells(m, 1).Value)
End Sub
L'erreur se situe dans une des 2 lignes en gras
Si quelqu'un a une idée d'amélioration...merci d'avance