Discussion :

[Patnel]

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 :

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

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 :

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

N_copains(2) = copains(3)

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

Code :

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

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.

[PMO2017]

Bonjour,

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

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
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

[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