Discussion :

[jazziestan]

bonjour,


Voici le code

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
Sub test()
 
Dim nom1 As String
Dim nom2 As String
Dim nom3 As String
Dim nom As String
 
Dim n As Double
 
Dim tabl As Variant
 
nom1 = "sarah"
nom2 = "vianney"
nom3 = "paul"
 
tabl = Array(nom1, nom2, nom3)
 
 
 
For n = 0 To 2
    MsgBox (tabl(n))
Next n
 
End Sub

la priblèmatique est que j'aimerais avoir la possibilité de faire évoluer le tabl en ajoutant ou en enlevant les items..............

comment je fais?????????????,

[LeForestier]

Bonjour, Primo, un Array c'est justement pour éviter d'assigner un grand nombre de variable...

Code :

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

1
2
Dim Tabl
    tabl = Array("sarah", "vianney", "paul")

Ensuite tu peu traiter tabl comme un tableau normal
Pour ajouter...

Code :

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

1
2
    Redim Preserve tabl(Ubound(tabl)+1)
    Tabl(Ubound(tabl)) = "Ernest"

Pour supprimer c'est plus compliquer faut employer une boucle qui va remplacer le nom supprimer par les suivants.
A+

[jazziestan]

je savais bien que cela serait simple mais mon cerveau refusait de me donner la solution


merci