declaration de type

[wilfried_42]

Bonjour à tout le forum

je suis issu de la vieille ecole où tout devait être ecrit, j'ai fait enormement de basic et l'on pouvait " dans le temps " definir un field avec une boucle for next

si j'écris par exemple :

redim variable(15)
type monenreg
for i = 1 to 15
variable(i) as string
next i
end type

cela sera t il correct ou j'aurai des problemes

merci à vous de vos reponses

bonne soiree à tous

[MichelXld]

bonsoir

tu peux tester ce type de syntaxe

 
'Ces lignes sont sont à placer en tête du module
Type Voiture
    Couleur As String
    Cylindree As Long
    anneeAchat As Date
End Type

Sub Test_V02()
    Dim Tableau(20) As Voiture
    
    'Remplissage de 1er élément Tableau
    Tableau(0).Couleur = "Rouge"
    Tableau(0).Cylindree = 2000
    Tableau(0).anneeAchat = #4/21/2004#
    
    'Lecture contenu tableau
    MsgBox "Cette voiture " & Tableau(0).Couleur & " a une cylindrée de " & _
        Tableau(0).Cylindree & " cc, année " & Tableau(0).anneeAchat
End Sub

Bonne soirée
MichelXld

[wilfried_42]

salut michelXLD

ce n'est pas vraiment ce que je cherche, je cherche à definir un type variable
à l'interieure de ma boucle for next, j'integrerais un select case pour le type de champs.
Mon but est de creer x fichiers Random pour archiver des tables que je ne connais pas à l'avance, sans pour autant que quiconque ait à modifier le source pour y adapter sa propre table.
c'est tout ce qui me manque


merci à tous de vos reponses

[JYLL]

Bonsoir Wilfried, MichelXLD et le forum,

Dans ton exemple Wilfried, ça revient à faire:

Dim Variable(15) as String

Je pense que tu voudrais déclarer des variables en cours de programme selon ton besoin, c'est autre chose.

Tu peux peut être mettre ces lignes:

b = CInt(InputBox("Nombre de valeurs", "entrée"))
ReDim Variable(b) As String

Bon test.

[wilfried_42]

salut jean yves

non pas du tout

voici quelque ligne de la finalité qu j'ai dans ma petite tete

redim variable(5)
redim longueur(5)
redim typev(5)

typev(1) = 1 ' string
typev(2)=2 ' integer
typev(3)=1
typev(4)=3 ' double
typev(5)=5 ' date
longueur(1) = 9 : longueur (3) = 40
(toutes ces valeurs sont recupérées dans excel

type enreg
for i = 1 to 5
select case typev(i)
case 1
dim variable(i) as string len(longueur(i))
case 2
dim variable(i) as integer
case 3
dim variable(i) as double
case 4
dim variable(i) as boolean
case 5
dim variable(i) as date
end select
next i

dim monenreg as enreg
open for random as #1 fichier len(monenreg)

je desire archiver en fichier random n'importe quelle table de n'importe quel classeur excel, et restituer les données, et tout cela sans intervenir à l'interieur du code

la syntaxe n'est pas un probleme pour l'instant, mon probleme c'est de creer un field de longueur variable, avec des données de type differents, et bien entendu pouvoir les exploiter en restitution avec pourquoi pas un filtre elaboré

merci encore de vous pencher sur ma question

[JYLL]

Re Bonsoir Wilfried,

Je ne pense que que cela soit possible en VB, si tu déclares en variant tu peux tout mettre dedans mais pour après, pour remplir il faut faire des Cint Cdbl etc... sinon pour les calcul c'est impossible, je vais réfléchir mais je ne vois pas pour l'instant.

@+

[wilfried_42]

Re jean yves

c'est vrai, je ne me suis jamais interressé au variant, c'est surement le moment, que j'écrive beaucoup de ligne, c'est pas vraiement un probleme.
mardi, je vais essayer, la boucle for next dans un type record

merci pour la piste, le case ne sert plus à rien, et cela va me faciliter les choses pour le filtre elaboré

merci encore JYll