Probleme de boucle Do..LoopWhile

Bonjour,

Depuis une cellule dont l'adresse est envoyee en argument de la macro, je cherche a parcourir la colonne vers le haut afin de detecter la premiere cellule d'une certaine couleure.
Le petit bout de code suivant me renvoie systematiquement une erreur:

Code:

---

1 2 3 4

Do Selection.Offset(-1, 0).Select Loop While Selection.Interior.ColorIndex <> 43 iCell.Value = WorksheetFunction.Sum(Range(Selection, iCell.Offset(-1, 0)))

---

iCell etant la cellule en argument, donc celle a partir de laquelle on cherche. Et le but ultime de cette macro est de sommer les valeurs des cellules entre iCell et la premiere cellule de couleure recherchee.

Une idee de solution?

Merci d'avance.

Bonjour
Si icell est l'adresse c'est une variable de type string et non range donc pas une cellule
essaye

Code:

---

range(iCell).Offset(-1, 0))

---

Sinon montre nous comment est défini icell et comment tu le déclare

Voici le code en entier:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Total(iCell As Range) ' iCell.Select Do Selection.Offset(-1, 0).Select Loop While Selection.Interior.ColorIndex <> 43 iCell.Value = WorksheetFunction.Sum(Range(Selection, iCell.Offset(-1, 0))) ' End Sub

---

Lorsque je lance la macro l'erreur 1004 pointe sur la ligne de statement.

SALUT,
Normal si tu ne trouves pas la couleur, tu essais de remonter plus que la derniere cellullu, et voilu

Code:

---

1 2 3

Do While Selection.Interior.ColorIndex <> 43 and Selection.row > 1 Selection.Offset(-1, 0).Select Loop

---

Ceci dit, on ne dira jamais assez de ne jamais utiliser Select pas plus que selection ;)

Merci bien, le probleme est resolu.