Affecter une variable définie par l'utilisateur à un variant

Question

Bonjour tout le monde,

j'aurais voulu savoir si il &#233;tait possible d'affecter une variable dont j'ai d&#233;fini le type &#224; une variable de type variant.
Mon but est de pouvoir utiliser la m&#234;me variable dans mon code mais celle ci peut "pointer" vers une structure diff&#233;rente.

Cela donne un truc du genre :

' --- Dans un module 
Public Type T_Norm160
    texte As String * 160
    crlf As String * 2
End Type

Public Type T_Norm480
    texte As String * 480
    crlf As String * 2
End Type

Public T160 As T_Norm160
Public T480 As T_Norm480

Public Function fnt_test()
    Dim T As Variant
    
    T = T160    ' ICI j'ai une erreur (cf capture plus bas)
    
    MsgBox Len(T)
End Function

' --- Dans la form principale

Private Sub Form_Load()
    fnt_test
End Sub

Merci d'avance pour vos r&#233;ponse.

A+

MAXIMO71 · Answer

Je ne suis pas certain de la r&#233;ponse mais as tu essay&#233; 



Set  T = T160



 C'est une solution pour affecter un variant &#224; un objet, je ne sais pas si cela va fonctionner dans ton cas



De plus pourquoi d&#233;clarer T comme variant et non pas comme T_Norm160
quelle utilisation futur comptes tu faire de T qui n&#233;cessite qu'il soit
d&#233;clar&#233; en variant? 

 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

skirby · Answer

Salut MAXIMO71,

 Set  T = T160 ne va pas car Set permet uniquement d'affecter des objets et ma variable n'est pas une variable de type objet.

Je ne peux pas d&#233;clarer T comme variable de type T_Norm160 car je veux pouvoir manipuler avec une m&#234;me variable des variables de type T_Norm160 et T_Norm480 afin de simplifier mon code le plus possible et ne pas avoir &#224; dupliquer mon code sous pr&#233;texte que je doit travailler avec deux strutures diff&#233;rentes.

En r&#233;alit&#233;, j'aurai un truc du genre:

Public Type T_Norm160
    v1 As String * 10

    v2 As String * 100


    v3 As String * 50
    crlf As String * 2

End Type

Public Type T_Norm480
    v1 As String * 10
    v2 As String * 100

    v3 As String * 50

    v4 As String * 320

    crlf As String * 2

End Type

On peut voir que les deux tructures diff&#232;re uniquement &#224; la fin et que le d&#233;but et le m&#234;me.
Ensuite, je veux &#233;crire le contenu de ces structures dans un fichier.
Donc si je pouvais manipuler avec une m&#234;me variable les deux types de structure, j'aurais un code plus simple.

Merci pour votre aide.

MAXIMO71 · Answer

Je te livre une autre r&#233;flexion, pourquoi ne d&#233;clarer T au fur et &#224; mesure en fonction du besoin en d&#233;but de routine par



Dim T as T_Norm160



puis quand tu as besoin



Dim T as T_Norm480



Je pense qu'il serait utile de r&#233; initialiser T aussi avant de le redl&#233;clarer

 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

skirby · Answer

Salut MAXIMO71,

Tu ne peux pas d&#233;clarer deux fois une m&#234;me variable dans la m&#234;me fonction ou proc&#233;dure.

Une autre id&#233;e ?

MAXIMO71 · Answer

Non d&#233;sol&#233; de t'avoir fait perdre tu temps mais je sui sec.

 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

skirby · Answer

Merci quand m&#234;me.

A+

MAXIMO71 · Answer

Bonjour,

La nuit m'a peut &#234;tre port&#233; conseil, si je comprend seul v4 est dans le
type  T_Norm480 alors pourquoi ne pas juste tester v4 pour savoir
si tu as l'une ou l'autre des normes. Je m'explique, pour quoi ne pas
juste d&#233;clarer le type T_Norm comme tu le fais dans 480 et tester si la
variable v4 est nulle ou pas pour d&#233;finir la norm 160. Cela t'&#233;vite de
doubler ton code, en revanche il introduit un test, si tu dois le faire
souvant passe par une fonction de test que tu appelles &#224; volont&#233;.

Voil&#224; en esp&#233;rant avoir un peu contribuer &#224; t'aider.

Bonne journ&#233;e.




 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

Affecter une variable définie par l'utilisateur à un variant

7 réponses

Discussions similaires