Copie de variables typées

Version imprimable

28/03/2013, 14h22
Patnel

Copie de variables typées
Bonjour,

je ne sais pas si c'est possible et c'est pourquoi je pose la question :

si je fais une variable typée, comme un structure en C,

exemple
Code:

1 2 3 4 5 6 7 8 type MaVar nom as string tel as integer end type dim copains(1 to 10) as MaVar dim N_copains(1 to 20) as MaVar
je voudrais copier une variable copains vers N_copains du style

Code:

N_copains(2) = copains(3)

au lieu de recopier éléments par éléments
Code:

1 2 N_copains(2).nom = copains(3).nom N_copains(2).tel = copains(3).tel
ce serait très intéressant quand la structure contient beaucoup d'éléments.

Bonjour,

Une belle interrogation.
Cela marche. Je viens de faire le test avec le code suivant

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
27
28
Type structIndividus
  Nom As String
  Prenom As String
  Age As Integer
End Type
 
Sub aa()
Dim Individu(1 To 3) As structIndividus
Dim Particulier As structIndividus
Dim IndividuAutreTabeau(1 To 20) As structIndividus
With Individu(2)
  .Nom = "Durand"
  .Prenom = "Jean"
  .Age = 36
  '---
  MsgBox "Individu(2) : " & .Nom & Space(1) & .Prenom & Space(1) & .Age
End With
'**********
Particulier = Individu(2)
With Particulier
  MsgBox "Particulier : " & .Prenom & Space(1) & .Nom & Space(1) & .Age
End With
'**********
IndividuAutreTabeau(15) = Individu(2)
With IndividuAutreTabeau(15)
  MsgBox "IndividuAutreTabeau(15) : " & .Age & " ans - " & .Prenom & Space(1) & .Nom & Space(1)
End With
End Sub

02/04/2013, 08h02
Patnel

Merci PMO2017,

ça marche maintenant, je pense que j'ai du faire un erreur de syntaxe dans l'essai que j'ai codé sur mon pc,

en tout cas c'est bon à savoir

Bonne journée