ajout item dans array

bonjour,


Voici le code

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

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

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

Code:

---

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

---

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

Code:

---

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+

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


merci