Comment obtenir la valeur d'une cellule dans toutes les feuilles de calcul

Question

J'essaie d'écrire une fonction VBScript qui collecte la valeur d'une cellule ("E1") dans tous les onglets d'un document Excel dans un tableau (réviseurs).

J'ai écrit le code suivant, mais les données ne sont pas stockées dans le tableau, quelqu'un peut-il me dire ce que je fais mal?

Voici le code:

Answer 1

Je ne vois pas votre code comme mon entreprise a bloqué l'accès à ImageShack.

Avez-vous essayé quelque chose comme ce qui suit?

Dim i As Long 
Dim reviewers() As String 
ReDim reviewers(0 To Worksheets.Count - 1) 

For i = 0 To Worksheets.Count - 1 
    reviewers(i) = Worksheets(i + 1).Cells(1, 5).Value 
Next 

Answer 2

Ou encore, puisque 1 est-Worksheets basé (on peut donc perdre que +1 et -1 affaires):

Dim i As Long 
Dim reviewers() As String 
ReDim reviewers(1 To Worksheets.Count) 

For i = 1 To Worksheets.Count 
    reviewers(i) = Worksheets(i).Cells(1, 5).Value 
Next 

Answer 3

Votre code dit

Reviewers(N) = Sheets(N+1).Range("B7:C7").Value 

Gamme B7: C7 est constitué de deux cellules, et non une, et donc la valeur est un tableau, pas une seule valeur. Utilisez une plage d'une cellule.

Answer 4

Vous avez juste besoin de concaténer les cellules si vous les voulez toutes les deux là ou remplacez le & par + si vous voulez les ajouter, je ne sais pas s'il s'agit de valeurs ou de texte.

Reviewers(N) = Sheets(N+1).Range("B7").Value & Sheets(N+1).Range("C7").Value