Déclarer une structure.

Bonjour,

Je voudrais savoir si on peut déclarer une variabe de type structure en VBA Excel.

Du genre : Structure eleve

Dim nom as string
Dim prenom as string
Dim classe as string

End Structure

J'ai regardé sur internet mais je n'ai rien trouvé qui puisse m'éclairer.

Donc je me demande si c'est possible ou bien si c'est moi qui ne suis pas doué avec google :mrgreen:

Merci

Citation:

Envoyé par enchanté

Bonjour,

J'ai regardé sur internet mais je n'ai rien trouvé qui puisse m'éclairer.

Donc je me demande si c'est possible ou bien si c'est moi qui ne suis pas doué avec google :mrgreen:

Merci

Je pense que c'est toi qui n'est pas doué avec Google (ni avec l'aide en ligne, d'ailleurs) !:aie:
Code:

1 2 3 4 5 6 Type eleve Dim nom as string*30, Dim prenom as string*30, Dim classe as string*5 End Type

Citation:

Envoyé par Garuda

Code:

1
2
3
4
5
6
 
Type  eleve
    Dim nom as string * 30,
    Dim prenom as string * 30
    Dim classe as string * 5
End Type

Bon.mais visible uniquement dans le module ou autre de la déclaration.

Petit complément...visible partout...

Code:

1
2
3
4
5
6
Type  ERG
    Dim nom as string * 30
    Dim prenom as string * 30
    Dim classe as string * 5
End Type
Public eleve as ERG

A+

non seulement tu peux mais il existe deux facons de procéder

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Option Explicit
Option Base 1
 
Type elev
nom As String
prenom As String
classe As String
End Type
 
 
Sub manipule()
Dim sujet As elev
Dim boucle As Integer
Dim x(10) As elev
For boucle = 1 To 4
sujet.nom = InputBox("nom?")
sujet.prenom = InputBox("prénom?")
sujet.classe = InputBox("classe?")
x(boucle) = sujet
Next boucle
For boucle = 1 To 4
sujet = x(boucle)
Debug.Print sujet.nom
Next boucle
End Sub

sinon
en deux parties
dans un module de classe nommé élève

Code:

1
2
3
4
5
 
Option Explicit
Public nom As String
Public prenom As String
Public classe As String

et dans un module vba

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub manipclasse()
Dim v As Variant
Dim macoll As New Collection
Dim boucle As Integer
Dim enumer As eleve
For boucle = 1 To 4
Set v = New eleve
v.nom = InputBox("nom?")
macoll.Add Item:=v
Set v = Nothing
Next boucle
For Each enumer In macoll
MsgBox (enumer.nom)
Next enumer
End Sub

contrairement à que prétend l'homme oiseau tu es suffisemment doué sur le net pour trouver trois réponses

Ok merci, ça marche !

Et puis c'est cool, maintenant je sais que " Type de données défini par l'utilisateur" et " Structure " bah c'est la même chose :mrgreen: