Hello.
J'ai plusieurs sheets dans un seul fichier.
Ma première sheet (qui s'appelle "tableau") est :
Ma deuxième sheet est : extract_Pierre
Ma troisième sheest est : extract_Amandine
J'aimerais faire un truc du style :
Pour i allant de 2 à 100, la valeur de la case Cells(i,1) de la sheet extract_Pierre est injectée dans Cells(1,i) et la valeur de la case Cells(i,1) de la sheet extract_Amandine est injectée dans Cells(2,i)
J'ai tenté un truc :
Sub testencore()
For i = 2 To 100
Sheets("tableau").Cells(1,i).Value = Sheets("extract_"&Sheets("tableau").Cells(1,1).Value).Cells(i,1).Value
Sheets("tableau").Cells(2,i).Value = Sheets("extract_"&Sheets("tableau").Cells(2,1).Value).Cells(i,1).Value
Next i
End Sub
Mais ça ne marche pas du tout. J'ai aucune idée de comment faire (sachant qu'en pratique j'ai un tableau avec bien plus de lignes donc j'aimerais bien automatiser tout ça avec un truc du style
Sheets("extract_"&Sheets("tableau").Cells(1,1).Value)
pour faire appel à extract_Pierre).
Merci !