Discussion :

[moimemessssssssss]

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 :

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

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

[sabzzz]

bonjour,

Code :

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

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

[moimemessssssssss]

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 :

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

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

[sabzzz]

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 :

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

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

[moimemessssssssss]

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

[sabzzz]

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 :

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

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 :

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

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