Discussion :

[Orbeaman]

Bonjour,

Je possède une interface de classe ISource et de différentes implémenations zzzSource_A, zzzSource_B,...

Je souhaiterais avoir une fonction getSource qui implémete l'une des classes ci-dessus où name correspondrait au nom de la classe en chaîne de caractères. A défaut d'avoir à gérer la correspondance avec un Select Case... est-ce possible de la implicitement (â la manière d'un CallByName peut-être) à run-time ?

Code :

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

1
2
3
4
5
6
7
8
9
Function getSource(ByVal name As String) As ISource
 
    Select Case name
    Case "A": Set getSource = New zzzSource_A
    Case "B": Set getSource = New zzzSource_B
    '...
    End Select
 
End Function

Merci par avance !

[patricktoulon]

bonjour
fait une recherche sur :l'intégration de classes dans un object collection

[Orbeaman]

Merci Patrick, il est vrai que j'ai aussi défini une classe zzzSources qui comporte notamment la méthode suivante:

Code :

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

1
2
3
4
5
6
7
8
9
Private pSources As Collection
 
'...
 
Public Sub add(ByRef source as ISource)
 
	pSources.add item:=source
 
End Sub

Si je comprends bien, cela reviendrait à rajouter une méthode find telle que (bien sûr avec les modifs pour rendre la classe itérable...) :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function find(ByVal name As String) as ISource
 
	Dim source As ISource: For Each source In pSources
 
		if source.name = name Then Exit Function
 
	Next source
 
End Function

Mais je crains que ça reviendrait au même. Je pense que je vais finalement utiliser le module Microsoft Visual Basic for Application Extensibility 5.3 pour mettre à jour le Select Case en modifiant le code (j'utilise déjà cette technique pour mettre à jour des types énumérés...)

[clementmarcotte]

Bonjour.

Merci Patrick, il est vrai que j'ai aussi défini une classe zzzSources qui comporte notamment la méthode suivante:


Mais je crains que ça reviendrait au même. Je pense que je vais finalement utiliser le module Microsoft Visual Basic for Application Extensibility 5.3 pour mettre à jour le Select Case en modifiant le code (j'utilise déjà cette technique pour mettre à jour des types énumérés...)

Cela, ça veut dire que tu dois ajouter la référence dans tous les Excel qui vont utiliser ta macro. Et puis, il faudra que tu coches dans tous ces Excel-là, la case "Faire confiance au projet Visual Basic". Des risques de sécurité en perspective. Parce que c'est une option d'Excel et non une option du classeur. Toute autre macro que la tienne pourrait, du moins théoriquement, qui essaierait de faire la même chose pourrait passer. Même les malfaisantes.

As-tu-vraiment besoin d'Excel ?

[RAFAAJ2000]

Quel est le probleme si vous utilisez le Case Select ?

[patricktoulon]

bonjour Orbeaman
je crois avoir plus que répondu dans ton autre post