recuperation de variables

Bonjour,

j'ai un code vba qui fait plusieurs test avec des conditions if sur des noms

si les conditions sont respectées je souhaite recupere le nom qui a répondu aux conditions
une boucle tourne sur tous les noms disponibles.
a la fin de la procédure je souhaite afficher tous les noms qui ont satisfaits aux conditions.
une solution serait de les ecrire sur une feuille excel a chaque fois qu'un nom convient mais je souhaiterais les mettre dans un tableau de type

Code:

---

1 2	dim tableau as variant

---

mais je n'arrive pas a alimenter ce tableau!
peut etre y a t il un moyen plus simple de récuperer ces noms?

merci de votre aide

bonjour,

Code:

---

1 2 3 4 5 6 7 8

Sub tableau() Dim tb() For i = 1 To 10 ReDim Preserve tb(i) tb(i) = "Nom" & i Next Range("A1").Resize(UBound(tb, 1), 1) = Application.Transpose(tb) End Sub

---

Bonjour,
merci pour la réponse.

cependant si on a plu de 10 variables nom a alimenter dans le tableau est que ce marche?
je connais pas la fonction

Code:

---

1 2	ReDim Preserve

---

mais peut etre qu'elle evite justement ce souci.
le probleme c'est que je connais pas a l'avance le nombre de variables a alimenter...

merci

bonjour,

tu peut remplacer le chiffre 10 par le nombre de valeur de ton tableau,
par exemple si tu a nommé ton tableau, "MonTableau"

Code:

---

1 2	NombreItemDuTableau = Application.CountA(Range("MonTableau")) For i = 1 To NombreItemDuTableau

---

bonsoir,

le souci c'est que je connais pas le nombre de valeur du tableau.
comment je peux alimenter le tableau sans connaitre la valeur maximum de valeur e.g. la valeur max de i ici?

merci

bonjour,

tu peut compter le nombre de valeur du tableau avec une de ses méthodes,

en supposant que le tableau est sur la Feuil1 et occupe la plage A1:Ax

Code:

---

x = Sheets("Feuil1").Range("A65536").End(xlUp).Row

---

ou bien
en supposant que le tableau est sur la Feuil1 et occupe la plage B10:Bx

Code:

---

x = Sheets("Feuil1").Range("B65536").End(xlUp).Row - 9

---