Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Lister des types de données personnalisée ?

Lister des types de données personnalisée ?

2 réponses
Avatar
Franck
Bonjours à tous.

Comment faire pour relire une liste de données personnalisée ?

ex :
Type GraphiquePerso
nomparam As String
période As String
axey As String
hdébut As Date
hfin As Date
vmin As String
vmoy As String
vmax As String
End Type
Dim nouveaugraph As GraphiquePerso

Ce type de donnée doit se remplir dans une boucle et générer une quarantaine
de "nouveaugraph".
Ces données seront réutilisées pour créer des graphiques.
Je reformule ma question, comment faire pour relire ses données dans une
boucle ?
Ou comment faire pour accéder par exemple aux données du 3ième
enregistrement "nouveaugraph(3)" ?

Merci pour vos réponses.

Franck.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Olivier
Bonjour,

en espérant que l'exemple ci-dessous réponde à ta question ...


Type GraphiquePerso
nomparam As String
période As String
axey As String
hdébut As Date
hfin As Date
vmin As String
vmoy As String
vmax As String
End Type
Public essai(5) As GraphiquePerso


Sub ecriture()
' affctation des valeurs aux parametres de tes graphiquesperso
essai(0).nomparam = "graph0"
essai(0).axey = "Axe0"
essai(0).hdébut = Now
essai(1).nomparam = "graph1"
essai(1).axey = "Axe1"
essai(1).hdébut = Now
essai(2).nomparam = "graph2"
essai(2).axey = "Axe2"
essai(2).hdébut = Now
essai(3).nomparam = "graph3"
essai(3).axey = "Axe3"
essai(3).hdébut = Now
essai(4).nomparam = "graph4"
essai(4).axey = "Axe4"
essai(4).hdébut = Now
End Sub

Sub main()
ecriture ' appel de la fct ecriture ci-dessus
For i = 0 To 4
MsgBox (essai(i).nomparam) ' affiche les nomparam de tous les graphiqueperso
créés
Next
End Sub





"Franck" a écrit dans le message de news:
c5smi9$m6h$
Bonjours à tous.

Comment faire pour relire une liste de données personnalisée ?

ex :
Type GraphiquePerso
nomparam As String
période As String
axey As String
hdébut As Date
hfin As Date
vmin As String
vmoy As String
vmax As String
End Type
Dim nouveaugraph As GraphiquePerso

Ce type de donnée doit se remplir dans une boucle et générer une
quarantaine

de "nouveaugraph".
Ces données seront réutilisées pour créer des graphiques.
Je reformule ma question, comment faire pour relire ses données dans une
boucle ?
Ou comment faire pour accéder par exemple aux données du 3ième
enregistrement "nouveaugraph(3)" ?

Merci pour vos réponses.

Franck.




Avatar
Pascal Engelmajer
Salut,
Type GraphiquePerso
../..
Dim nouveauGraph(39) As GraphiquePerso


sub x()
dim i as Integer
i=7
with nouveauGraph(i)
.nomparam="zzz"
.periode="3,4"
' .../...
msgbox .nomparam
end with
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Franck" a écrit dans le message de news:
c5smi9$m6h$
Bonjours à tous.

Comment faire pour relire une liste de données personnalisée ?

ex :
Type GraphiquePerso
nomparam As String
période As String
axey As String
hdébut As Date
hfin As Date
vmin As String
vmoy As String
vmax As String
End Type
Dim nouveaugraph As GraphiquePerso

Ce type de donnée doit se remplir dans une boucle et générer une
quarantaine

de "nouveaugraph".
Ces données seront réutilisées pour créer des graphiques.
Je reformule ma question, comment faire pour relire ses données dans une
boucle ?
Ou comment faire pour accéder par exemple aux données du 3ième
enregistrement "nouveaugraph(3)" ?

Merci pour vos réponses.

Franck.