Discussion :

[fayence]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[fayence]

Voici le code en entier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[CRACOS38]

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fayence]

Merci bien, le probleme est resolu.