Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

declaration de type

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

wilfried_42

XLDnaute Barbatruc
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
 
Re : declaration de type

bonsoir

tu peux tester ce type de syntaxe

Code:
'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
 
Re : declaration de type

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
 
Re : declaration de type

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.
 
Re : declaration de type

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
 
Re : declaration de type

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.

@+
 
Re : declaration de type

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
Réponses
14
Affichages
2 K
A
Réponses
5
Affichages
1 K
AlicePrince
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…