Discussion :

[marco62118]

bonsoir

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

Code :

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

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

[clementmarcotte]

Bonjour,

bonsoir

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

Ah bon ! Laquelle ?

Code :

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

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.

[marco62118]

Je te remercie tu m'as mis sur la voie

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

Code :

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

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