Passer des collections d'objets en tant que paramètres dans vba

Question

Je suis complètement nouveau à VBA et j'apprécierais de l'aide avec quelque chose qui devrait être trivial. Je le code suivant:

Sub sub1() 
Dim buys As Collection 
Dim sells As Collection 
Set buys = New Collection 
Set sells = New Collection 


handleBuy rowCounter, buys, sells 

End Sub 




Sub handleBuy(ByVal rowNum As Integer, ByRef listBuys As Collection, ByRef listSells As Collection) 
'do something here with the collections 

End Sub 

Les collections ci-dessus contiennent des objets instanciés par une classe I définis. Lorsque j'essaie d'exécuter le code ci-dessus, j'obtiens une erreur d'exécution 424 "Object Required" L'erreur se produit lorsque l'appel à handleBuy a lieu. Qu'est-ce qui me manque ici? Toute aide est grandement appréciée.

Answer 1

2 options:

1. Définir la variable rowCounter; ou
2. Annuler le Option Explicit

1 est préféré.

Answer 2

L'erreur se produit parce que depuis rowCounter n'est pas Dim « ed comme Integer (et en l'absence de Option Explicit) est du type par défaut Variant. Ce qui est Incompatible avec la déclaration Sub handleBuy(ByVal rowNum As Integer

Solution: utiliser Option Explict - cela aidera à prévenir ce type d'erreur Et déclarer Dim rowCounter As Integer

BTW, vous devrait utiliser Long plutôt que Integer