recuperer une propriété d'un élément de collection au travers d'un paramêtre deRésolu

Question

Re-bonjour, voici une autre question à un de mes soucis.
Alors l'exemple n'est pas très clair quand à l'utilité, mais j'ai simplifié pour la question.
Cela aurais été trop long de tout expliquer, et inutile pour le cas.
En fait, j'essaie de recuperer une propriété d'un élément de collection au travers d'un paramêtre de fonction. L'idée étant de pouvoir faire un traitement commun sur des collection et propriétés différentes.
Enfin lisez l'exemple, ce sera plus clair.
En tout cas, je n'arrive pas à le faire marcher....
Une idée?

(Dans class1:)
Public nom, prénom, age

(dans module1:)
Public equipe As New Collection



Sub sub1()
Dim machin As New Class1



machin.nom = "CHRIST"
machin.prénom = "Jesus"
machin.age = "33 ans"
equipe.Add machin
Set machin = Nothing



machin.nom = "LUCAS"
machin.prénom = "GEORGES"
machin.age = "50 ans"
equipe.Add machin
Set machin = Nothing



machin.nom = "DES BATIGNOLES"
machin.prénom = "Marie-thérese"
machin.age = "75 ans"
equipe.Add machin
Set machin = Nothing



result = sub2(equipe, "nom")



End Sub



Private Function sub2(collec As Collection, qualif As String)
Dim r As New ScriptControl
r.Language = "vbscript"
For i = 1 To equipe.Count
    'MsgBox (collec(i).qualif) '<--propriété ou methode non gérée par cet objet
    'MsgBox (r.Eval("collec(" & i & ").qualif")) ' <-- type incompatible 'collec'
    'MsgBox (r.Eval(collec(i).qualif)) '<--propriété ou methode non gérée par cet objet
    'MsgBox (r.Eval(collec(i).qualif))  '<--propriété ou methode non gérée par cet objet
    '... pas d'autres idées :(
Next i



End Function

BasicInstinct · Accepted Answer

'lut

Je pense que ca doit repondre à ton probleme. Mais je n'ai pas testé en Vba

Private Function sub2(collec As Collection, qualif As String)
Dim r As New ScriptControl
   r.Language = "vbscript"
   For i = 1 To collec.Count
         Msgbox  CallByName(collec(I), qualif, VbGet)
   Next i
End Function

++

 BasicInstinct

larsene67 · Answer

Ca, ca va m'allèger mon code ;)
Magnifique, merci beaucoup !!!!!

us_30 · Answer

Salut,

JE pense qu'il est inutile d'invoquer ScriptControl... Après vérification, la sub2 peut s'écrire uniquement par :



Private Function sub2(collec As Collection, Qualif As String)
   For i = 1 To collec.Count
         MsgBox CallByName(collec(i), Qualif, VbGet)
   Next i
End Function

cela évite de passer par le language VBScript, pour revenir à VBA...


Amicalement,


Us.

Recuperer une propriété d'un élément de collection au travers d'un paramêtre de

3 réponses

Votre réponse