Bonsoir
Si la cellule A1 doit faire toujours référence à des Feuilles connues à l'avance, il est intéressant d'utiliser une Fonction SI comme celle qui est en D1, et qui en combinant avec des formules SI nommées peut contenir 20 ou 30, voire plus de combinaisons avec des Fonctions SI imbriquées et Nommées.
=SI(A1="Feuil2";Feuil2!B3;SI(A1="Feuil3";Feuil3!B3;""))
Par contre, si A1 doit faire référence à des Feuilles non connues à l'avance, le problème est plus compliqué.
Dans l'exemple joint, la cellule A1 contient "Feuil2", la cellule B1 contient la Formule:
="="&$A$1&"!$B$3" qui renvoie =Feuil2!$B$3 au format texte et est donc inactive.
Une petite combine consiste à créer une Macro qui, lorsqu'elle est activée ET que la cellule B1 est sélectionnée, dont le code recopie cette cellule en B2 afin de conserver la formule="="&$A$1&"!$B$3" intacte en B1 pour l'utilisation suivante(La cellule de renvoi devient B2).
Le code de la Macro sur le Module 1 est bizarre et m'a déjà valu les "sarcasmes" d'un spécialiste VBA sur un autre Forum (Mais fourni par Microsoft pour la partie en gras)
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/11/2006 par Amadéus
'Sub Enter_Values()
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B2"), Type:=xlFillDefault
Range("B1:B2").Select
Range("B2").Select
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell
End Sub
Fichier joint
Cordialement,
Amadéus
https://www.excel-pratique.com/~files/doc/TextValeur.xls