Bonjour à tous,

J'ai un petit problème sur un code que je suis en train de réaliser.

Sous VBA après avoir rempli un tableau de type Variant de par exemple 26 colonnes et 12 lignes j'aimerai extraire chaque colonne du tableau et mettre un colonne par feuille.

Par exemple j'ai 26 feuilles : a, b, c, d, e, f etc....
et j'aimerai que la feuille a colonne 1 = 1ere colonne du tableau
feuille b colonne 1 = 2ème colonne du tableau
feuille c colonne 1 = 3ème colonne du tableau etc

j'ai tenté de mettre le nom des feuilles dans une liste

et d'essayer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
for j =1 to 26
 
for each zy in liste
nom=zy.Value
 
for i=1 to 12
 
Sheets(nom).Cells(i,1)=Tableau(i,j)
 
Next i
Next zy
Next j
Mais comme vous vous en doutez cela ne marche pas. La même opération est effectuée sur chaque feuille et ce pour chaque j....

Auriez vous une idée pour résoudre ce problème ?

Merci beaucoup pour votre aide !