Bonjour,
Voici mon problème:
Je suis dans une fonction reçoit une collection de Fields:
Sub maFonction(FieldList As Fields)
Je souhaiterai pouvoir copier les objets de cette collection dans une autre collection de fields puis pouvoir appeler sur tous les éléments de cette nouvelle collection les méthodes inhérentes à l'objet Field.
Je déclare donc une collection:
Dim myFields As New Collection
Et j'y insère mes objets:
Ce que je souhaiterais maintenant faire, c'est parcourir ma collection myFieds et sur tous ces éléments, appeler la méthode Update qui est une méthode de Field.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim taille As Integer taille = FieldList.Count For i = 1 To taille myFields.Add (FieldList.Item(i)) Next i
Quand je parcours cette collection avec un itérateur:
"For Each currentField In myFields"
==> mon currentField n'est pas un objet de type Field mais de type Variant si j'en crois la doc et Range si j'en crois ce débug: "MsgBox "Type " & TypeName(currentField)"
Si j'essaye ça "For Each currentField As Field In myFields", ça crie à l'erreur de syntaxe.
Si j'essaye "Dim currentField As Field" puis "For Each currentField In myFields", ça crie aussi ==> currentField = Nothing.
J'ai également le parcours avec un indice essayé le casting avec CType() or DirectCast() mais là l'erreur semble m'indiquer que la fonction n'existe pas.
Bref, je n'y connais pas grand chose en VB et plus j'essaye, moins j'ai l'impression de comprendre ce langage.
Y-aurait-il une bonne âme qui semble avoir compris mon désarroi et serait à même de donner une réponse à mon problème?
Merci d'avance!
Partager