Discussion :

[xuorel]

Bonjour,

Pourriez-vous me dire s'il est possible de faire la chose suivante (certainement pas la possibilité la plus efficiente mais je ne suis pas un expert de VBA) :

je déclare un type de variable :

Code :

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

1
2
3
4
 
Type contact<div style="margin-left:40px">nom as string
prénom as string</div>
End type

imaginons que dans les différents traitements, quelques types de contacts reviendront tout le temps.

Est-il possible de déclarer une certains contacts en constantes ?
Quelque chose qui dirait en gros

contact1 est une constante de type contact où
nom = dupont
prénom = paul
contact2 est une constante de type contact où
nom = durant
prénom = julien

Merci

[unparia]

Bonjour
Non. On ne peut pas typer une constante en type personnalisé.

Code :

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

1
2
3
4
5
6
Private Type titi
 a As String
 b As String
End Type
Dim ben_oui As titi ' est correct et acceptable
Const ben_non as titi ' est irrecevable

PS et au passage : voici ce que tu aurais lu en ouvrant ton aide interne VBA à la rubrique Const, Instruction :

...
...
Vous ne pouvez utiliser ni variables, ni fonctions définies par l'utilisateur ni fonctions Visual Basic intrinsèques (telles que Chr) dans des expressions attribuées à des constantes
...
...

[xuorel]

Merci pour cet éclairage.

Je débute complètement en vba et n'ai donc pas encore les meilleurs réflexes.

Peux tu me dire où est-ce que l'on trouve l'aide interne VBA ?

Merci

[clementmarcotte]

[unparia]

Peux tu me dire où est-ce que l'on trouve l'aide interne VBA ?

bouton "?" ou "aide" ou "help" dans la barre de menu de l'éditeur VBA ne serait pas suffisamment "parlant" ?

[patricktoulon]

Bonjour
on peut quand même imbriquer les type
exemple

Code :

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

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
27
Option Explicit
Private Type subelement
    nom As String
    age As String
    sexe As String
End Type
Private Type element
    X(10) As subelement
End Type
 Dim person As element
'memorisation
Sub memo()
   Dim S, i
    S = Split("masculin,feminin,masculin", ",")
 
    Randomize
    For i = 0 To 9
        person.X(i).nom = "nom" & i
        person.X(i).age = Round(Rnd * 50)
        person.X(i).sexe = S(Round(Rnd * 2))
    Next
 
End Sub
Sub test_un_personne()
MsgBox person.X(4).nom & " a " & person.X(4).age & "ans et est de sexe " & person.X(4).sexe
MsgBox person.X(8).nom & " a " & person.X(8).age & "ans et est de sexe " & person.X(8).sexe
End Sub

[unparia]

Bonjour
je porte personnellement un regard différent tant sur la question que sur la méthode.
Une matrice typée comme la structure permet de mettre un index en constante --->> exemple --->>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const qui = 3 ' --->> voilà, ce que l'on met en constante : un index à utiliser dans la matrice
Private Type toto  ' --->> la structure (type personnalisé)
 nom As String
 prenom As String
End Type
 
 
Private Sub CommandButton1_Click()
  Dim titi(1 to 20) As toto ' --- on remplit ici la matrice juste pour avoir de la "matière" à tester 
  For i = 1 to 20
    titi(i).nom = "nom" & i
    titi(i).prenom = "prenom" & i
  Next
 
  MsgBox titi(qui).nom & vbCrLf & titi(qui).prenom '--->> et c'est là, que l'on utilise la constante qui.
End Sub