arrêt de la macro suite à un offset sur une cellule

Version imprimable

bonsoir

je ne comprends pas aussitôt que ma macro arrive sur la ligne offset la macro s'arrête

Code:

1
2
3
4
5
6
7
8
9
10
11
 
  Function test(plage As Range) As Double
 
   Do While plage.Interior.ColorIndex >= 35 
         plage = plage.Offset(-1, 0)           
   Loop
   plage = plage.Offset(0, -1).Activate
   MsgBox plage.Value
   test = plage.Value
 
End Function

13/12/2015, 21h56
clementmarcotte
Bonjour,

Citation:

Envoyé par marco62118

bonsoir

je ne comprends pas aussitôt que ma macro arrive sur la ligne offset la macro s'arrête

Ah bon ! Laquelle ?
Code:

1 2 3 plage = plage.Offset(-1, 0) plage = plage.Offset(0, -1).Activate
Il doit bien y avoir un message d'erreur, non ?

Mets un espion sur plage et exécute la procédure au pas-à-pas. Si, dans la fenêtre espion, plage est égal à Nothing ou à "", c'est que la plage n'est pas définie.

Je ne me souviens plus, si cela prend un Set quand tu changes la plage. Tu peux toujours tester.

Je te remercie tu m'as mis sur la voie

il faut attribuer la référence avec l'instruction Set

Code:

1
2
3
4
5
6
7
8
9
10
 
Do While plage.Interior.ColorIndex >= 35
  ' MsgBox plage.Value
         Set plage = plage.Offset(-1, 0)
  '   MsgBox plage.Value
 
   Loop
 '  plage = plage.Offset(0, -1).Activate
 '  MsgBox plage.Value
   test = plage.Value

encore merci