VBA : conversion string en énum

[Llaume]

Bonjour,

Je stock des paramètres dans des cellules d'une feuilles, ceux-ci font partie d'une énumération Excel (XlChartType par exemple).

J'aurais voulu dans ma macro utiliser directement ce paramètre. Pour cela, il faut convertir la valeur de la cellule (String) en une valeur d'énumération.

Malgré mes recherches, je n'ai pas réussi à effectuer cela.

Merci de votre aide,
Bonne journée

 

[tototiti2008]

Re : VBA : conversion string en énum

Bonjour Llaume,

un petit exemple, peut-être ?
Tu veux construire une Enum en fonction de valeurs de la feuille ?

 

[Llaume]

Re : VBA : conversion string en énum

Bonjour,

Voici un exemple d'application :

MaVariable = Sheets(1).Range("A1").Value
'MaVariable est par exemple "xlLineStacked".
'C'est une des valeurs de l'énumération XlChartType,
'mais comme elle est récupérée depuis une cellule, c'est pour le moment une String.

'Là, il faut convertir MaVariable, pour pouvoir faire ensuite :
ActiveChart.SeriesCollection("Ma série").ChartType = MaVariable

 

[Pierrot93]

Re : VBA : conversion string en énum

Bonjour,

A ma connaissance, pas de moyen de conversion direct, si tu n'as pas 50 possibilités, tu peux essayer un code comme ceci :

Dim x As Integer, MaVariable As String
MaVariable = "xlLineStacked"
If MaVariable = "xlLineStacked" Then x = 63
    ElseIf MaVariable = "xlLine" Then x = 4
    ElseIf MaVariable = "xl3DPie" Then x = -4102
    Else
        Exit Sub
End If
ActiveChart.SeriesCollection("Ma série").ChartType = x

tu peux de la même manière utiliser également un "select case"...

bonne journée
@+

 

[Llaume]

Re : VBA : conversion string en énum

Merci de ta réponse. J'utilisais en effet un select case jusqu'à maintenant, notamment pour d'autres paramètres. Mais là, le nombre de valeurs possible pour ChartType me fait vraiment dire que c'est quand même moche et qu'il y a probablement un autre moyen.


Ce lien n'existe plus sur le site de microsoft ne peut pas m'aider ?

 

[tototiti2008]

Re : VBA : conversion string en énum

Bonjour Pierrot,
Re,

Pas trouvé, désolé...
Essayé Evaluate et CallByName sans succès...

 

[tototiti2008]

Re : VBA : conversion string en énum

Re,

à force de chercher, j'ai trouvé ça :

Bon, ça me semble un peu lourd... mais qui sait :

Convertir les noms de constantes Excel en valeurs numériques - Forum des professionnels en informatique

 

[Habitude]

Re : VBA : conversion string en énum

Peut-être comme ceci
S'il y a beaucoup de valeur

Dim d As New Dictionary  'Ref microsoft scripting runtime
d.Add "xlLineStacked", 63
d.Add "xlLine", 4
d.Add "xl3DPie", -4102

ActiveChart.SeriesCollection("Ma série").ChartType  = d.Item(MaVariable)

Tu peux mettre ton dictionnaire dans un module public...

Ou encore
Quand il y a peu de valeur

ActiveChart.SeriesCollection("Ma série").ChartType  = Switch(MaVariable = "xlLineStacked", 63, MaVariable = "xlLine", 4, MaVariable = "xl3DPie", -4102)

 

[Llaume]

Re : VBA : conversion string en énum

Merci pour vos pistes.

Je pensais qu'il existait une solution plus simple et plus "propre". Dommage !


Bonne journée

 

[tototiti2008]

Re : VBA : conversion string en énum

Bonjour à tous,

tu es allé voir le lien proposé ?
ça évite les dictionnaires et les listes interminables, mais ça impose de créer un code qui écrit du code... un peu lourd aussi, j'en conviens

 

[Llaume]

Re : VBA : conversion string en énum

Bonjour,

Je suis en effet allé voir ton lien. C'est une très bonne astuce j'en convient. Cela dit, elle n'est pas adapté à ma macro qui va être diffusée et qui doit rester largement lisible. Elle est un peu trop fourbe pour que je l'utilise dans ce projet.

Mais j'ai gardé cette astuce de côté, sait-on jamais 😉

Bonne journée.

 

[Pierrot93]

Re : VBA : conversion string en énum

Bonjour à tous,

sur ta feuille excel, pourquoi ne pas proposé une "combobox" avec les différentes constantes, et dans une colonne masquée de cette même combo, stocker les valeurs associées....

bonne journée
@+