Bonjour,
J'ai un pb pour basculer un vecteur dans un autre. Il me dit incompatibilité de type mais je ne vois pas trop.

- Définition Tableau 1 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Public communeForCombo As Variant
 
Public Sub Class_Initialize()
ReDim communeForCombo(1 To 38950, 1 To 2)
End Sub
- Alimentation tableau 1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Public Sub AddForCombo(ByVal item As Long, ByVal keyCombo As Long, ByVal valueCombo As String)
communeForCombo(item, 1) = keyCombo
communeForCombo(item, 2) = valueCombo
End Sub
- Transfert du tableau 1 vers 2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
   Dim tableau As Variant
   ReDim tableau(1 To 38950, 1 To 2)
   Set tableau = communeListeGlobal.communeForCombo
=> Et ici, ça plantes. (Incompatibilité de type)

Je suis passer par cet objet intermédiaire car je n'arrivais pas à faire
un comboBox.list = communeListeGlobal.communeForCombo
=> Erreur d'éxécution 424 : Objet requis. J'avais mis un point d'arrêt sur l'instruction et l'objet communeListeGlobal éxistait bien et était bien chargée.
Est ce que les objets ont une durée de vie (x Secondes)

Merci pour votre aide