Discussion :

[aleximan]

Bonjour à tous,
J'essaie d'être clair pour ce problème de référence ou langage dont mes mots clés n'ont rien trouvé en recherche.

J'ai 50 feuilles ou onglets nommés par un numéro 001, 002,003 toutes identiques en présentation.
La première feuille est une synthèse dont la première colonne est justement ce numéro de feuille ou onglet.
A1 = 001
A2 = 002
Dans la colonne B de ma feuille de synthèse, je voudrais aller récupérer des données dans les feuilles suivantes.
J'ai essayé :
B1 = =A1!D1
B1 = ='A1'!D1
B1 = ='TEXTE(A4;"@")'!C11 sans résultats.

Merci de votre aide

[aleximan]

Suite à une recherche google j'ai trouvé
C'est la fonction INDIRECT

Désolé pour le dérangement

[Fvandermeulen]

Bonjour,
Voici un petit code VBA qui applique la formule que tu veux:
Pour l'exemple, il place dans les cellule de B2 à B7 la formule avec comme cellule cible D1 (figée)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub AppliqueFormule()
 
Dim i As Integer
Dim MaF As String
'
For i = 2 To 7 'jusque 7 pour l'exemple, tu adaptes selon le nombre de ligne
    MaF = Sheets("001").Cells(i, 1).Value 'récupère le contenu de la cellule A2 à la première boucle, A3 à la 2ème, etc.
    Sheets("001").Cells(i, 2).FormulaR1C1 = "='" & MaF & "'!R1C4" 'Applique la formule !! R1C4 = $D$1
Next i
End Sub

N'hésites pas si quelque chose n'est pas clair.

A+

Edit: Ben évidemment! INDIRECT, c'est dans ces moment là qu'on se sent vraiment idiot