Discussion :

[Le Sage]

Bonjour à toutes et tous !

Comme indiqué dans le titre, je souhaiterai mettre à disposition du développeur VBA (moi-même en l'occurrence ) une liste de valeurs prédéfinies pour un argument dans une fonction personnalisée, de la même manière qu'on a la liste des constantes intrinsèques correspondant aux boutons d'une MsgBox (vbOkOnly, vbOkCancel, ...).

Pour vous situer un peu mieux, je suis en train de me créer une fonction de conversion du genre :

Code :

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

1
2
3
Public Function ConvertDimensions(ByVal Valeur As Double, ByVal UniteDepart As String, ByVal UniteCible As String)
 
End Function

et je souhaiterai que la saisie de UniteDepart et UniteCible soit facilitée par l'apparition d'une liste de constantes représentant les unités de mesure disponibles au moment de les renseigner.

J'ai eu beau fouiller, je n'ai rien trouvé à ce sujet...

En vous remerciant par avance pour votre aide,
Eric.

[clementmarcotte]

Bonjour,

Que veux-tu faire exactement ?

1) Modifier l'intellisence de VBA ?

C'est impossible en VBA mais possible avec les dernières versions de VB.net en utilisant des fichiers XML.

2) Imposer des constantes de calcul dans une fonction ou une sub ?

Cela devrait être possible.

[Le Sage]

Bonjour Clément, et merci pour cette réponse rapide.

L'idéal serait... les deux !

Pour imposer des constantes, je me disais que ça se réglerait avec un simple Select Case, mais si tu as autre chose sous le coude, je suis preneur.

Mon idée était plus proche de la modification ponctuelle de l'Intellisence.

La création de ma fonction ne me pose aucun problème particulier, c'est du côté de l'assistance à celui qui va l'utiliser que je m'interroge : le principe d'un convertisseur veut qu'on lui donne une unité de départ et une unité cible, et que chacun de ces deux paramètres peut prendre des valeurs diverses et variées.
L'absence d'aide visuelle lors de la saisie implique que l'utilisateur doit connaître l'ensemble des possibilités.
C'est cette dernière contrainte que je voudrais éliminer.

Si tu as des billes sur l'éventuelle solution en VB .Net (que j'avoue ne pas connaître, mais bon, j'ai commencé avec Basic à la fin des années 70, ça ne devrait pas trop me dérouter), je suis aussi intéressé.

Cordialement,
Eric.

[Tofalu]

Un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Enum MyUnit
    cm = 0
    dm = 1
    m = 2
End Enum
 
 
Function ToCm(v As Integer, mU As MyUnit)
ToCm = v * 10 ^ mU
End Function
 
 
Sub test()
MsgBox ToCm(1, MyUnit.m)
End Sub

Ce qui permet, quand on écrit ToCm(1, de disposer de l'inteliscence

[Le Sage]

WAHOU !!!

J'ai presque honte de dire que j'ai commencé à la fin des années 70 avec le Basic...

Mille merci pour cette réponse aussi rapide qu'efficace et pour tous les services qu'elle va me rendre !