Discussion :

[itwoo]

Bonjour,

Est il possible lors du split de la string u() d’obtenir directement chaque élément au bon format à savoir, string, date, double? j’ai essayé par exemple de créer un (Private) Type mais il n’est pas accepté par VBA...j’ai aussi remplacé les . par des , dans u() mais non ca ne veut toujours pas.
NB : En faisant élément par élément pour attribuer le format cela marche bien, c’est juste un peu plus long.

Voici la string u(), le séparateur est chr(9), en plus de la température en élement string, il y a la date en élément date, puis 4 éléments: la température le matin, midi et soir et un indice à mettre en format double tous les 4
: u(0) : "Temperature 02/01/18 18.27 21.52 32.21 932" : String

Type VA1
Vtemp As String
Vdat As Date
Vmat As Double
Vmidi As Double
Vsoir As Double
Vindi As Double
End Type
Dim TabVA1 As VA1

VBA refuse cette expression en indiquant une erreur sur le Type et sa définition par user

Code :

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

  TabVA1 = Split(u(0)), Chr(9))

donc fait cela en attentant

Code :

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

VA1 = Split(u(0)), Chr(9))

mais VA1 n'est pas du tout reconnu comme le Type VA1 défini dans Type VA1!!!
'- : VA1 : : Variant/String(0 to 5)
' : VA1(0) : "Temperature" : String
' : VA1(1) : "02/01/18" : String : ici il faudrait date
' : VA1(2) : "18.27" : String : ici il faudrait double...et idem pour les éléments restants

Code :

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

TabVA1 = VA1

est aussi refusé
donc retraitement individuel de chaque élément de VA1...pour obtenir le format souhaité


Merci de votre aide...

[unparia]

Bonjour
VA1 est une structure (un type personnalisé)

Code :

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

Dim TabVA1 As VA1

défini TabVA1 comme étant de type VA1
Le contenu de TabVA1 ne peut dans ces conditions qu'être composé des éléments suivants :

Code :

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

1
2
3
4
TabVA1.Vtemp
TabVA1.Vdat
...
TabVBA.Vindi

et ne peut être tant lu qu'écrit ainsi (élément par élément).
Il s'agit là de la construction et vocation mêmes d'une structure (une variable de type personnalisé)
Il t'est bien entendu toujours possible d' "éclater" (par Split) une chaîne de caractères et d'en affecter les sous-chaînes aux éléments de la structure, mais il te faudra dans ces conditions en convertir chaque sous-chaîne en type de l'élément correspondant de la structure.
Les conversions peuvent se faire via les fonctions habituelles de conversion (Cdate, Csng, Cdbl, etc ...) à consulter dans ton aide interne VBA

[RyuAutodidacte]

Bonjour (coucou Jacques ),

Pour les types personnalisés voir ici :
http://fauconnier.developpez.com/art...lasses/#LIII-B

Edit : là j'ai donné le lien direct, mais il est conseillé de tout lire depuis le début …

[itwoo]

Bonjour,

Ok Unparia c'est ce que je fais actuellement...Merci.
Ok pour le lien RuyAutoditacte à lire...

Bonne continuation