XL 2010 Paramétrer nom onglet dans une variable au niveau d’une cellule

[jeanmi]

Bonjour à tous,

Je souhaite copier la cellule A1 de l’onglet « toto » dans la cellule J1 de l’onglet données

Actuellement je fais en J1 =toto!A1

Mais si je mais dans B2 le nom « toto » afin de pouvoir changer l’emplacement de récupération.

Es que l’on peut faire ?

Merci pour la réponse.

Cordialement

 

[TooFatBoy]

Bonjour,

=INDIRECT("'"&B2&"'!A1")

 

[C'est papy Mougeot !]

Bonjour,
Pas tout compris jeanmi. Le mieux c'est d'essayer et si cela ne fonctionne pas nous proposer le fichier avec de meilleures explications.

 

[TooFatBoy]

Bonjour,
Pas tout compris jeanmi. Le mieux c'est d'essayer et si cela ne fonctionne pas nous proposer le fichier avec de meilleures explications.

Coucou 😉 Je crois que ça va fonctionner. 😄

 

[C'est papy Mougeot !]

Super !

 

[jeanmi]

Bonjour,

=INDIRECT("'"&B2&"'!A1")

Bonjour @TooFatBoy à tous,

Merci pour la réponse, qui fonctione très bien.

dans mon utilisation, j'ai un calcul,
Peut-être ne faut-il pas mettre le calcul , ou j'ai une autre erreur ?

=INDIRECT("'"&$h$1&"'! (B2*SIN(RADIANS(C2)))")


merci pour l'aide.
Cordialement

 

[sylvanu]

Bonjour tout le monde, 😉

Peut-être ne faut-il pas mettre le calcul

Exact.
B2*SIN(RADIANS(C2)) est un nombre décimal, donc votre Indirect correspondra par exemple à =$H$1!0.75894647
Ce qui ne veut rien dire.
Dites plutôt ce que vous voulez obtenir.

Si par ex voulez récupérer la date avec Dobs en B2 et Longitude en C2 alors faites :

=SIERREUR(INDEX(Données!B:B;EQUIV(B2*SIN(RADIANS(C2));Données!H:H;0));INDEX(Données!B:B;EQUIV(B2*SIN(RADIANS(C2));Données!H:H;1)))

La première partie donne un résultat si la donnée exacte est trouvée, sinon la deuxième partie donne le plus approchant.

 

[jeanmi]

Bonjour tout le monde, 😉

Exact.
B2*SIN(RADIANS(C2)) est un nombre décimal, donc votre Indirect correspondra par exemple à =$H$1!0.75894647
Ce qui ne veut rien dire.
Dites plutôt ce que vous voulez obtenir.

Si par ex voulez récupérer la date avec Dobs en B2 et Longitude en C2 alors faites :

=SIERREUR(INDEX(Données!B:B;EQUIV(B2*SIN(RADIANS(C2));Données!H:H;0));INDEX(Données!B:B;EQUIV(B2*SIN(RADIANS(C2));Données!H:H;1)))

La première partie donne un résultat si la donnée exacte est trouvée, sinon la deuxième partie donne le plus approchant.

re bonjour,

je vais donc faire avec le code de @TooFatBoy , pour ne pas me compliquer, après avoir créé les colonnes avec les bonnes données directement, donc le résultat des calculs.

Cela sera surement plus simple, pour ma compréhension.

Ça devrait fonctionner ?

 

[TooFatBoy]

Peut-être ceci :

=INDIRECT("'"&$h$1&"'!B2)*SIN(RADIANS(INDIRECT("'"&$h$1&"'!C2)))

 

[jeanmi]

Peut-être ceci :

=INDIRECT("'"&$h$1&"'!B2)*SIN(RADIANS(INDIRECT("'"&$h$1&"'!C2)))

je vais tester, cette proposition, a la soirée.

Merci

 

[sylvanu]

Re,
J'ai rapatrié votre dernière demande du fil ici ( Lien )
En PJ un essai avec deux approches:
1- avec des formules :

=INDIRECT($H$1&"!$C$2")*SIN(RADIANS(INDIRECT($H$1&"!$B$2")))
=INDIRECT($H$1&"!$C$2")*COS(RADIANS(INDIRECT($H$1&"!$B$2")))

2- avec des fonctions perso VBA :

Function CoordX(Feuille As String)
With Sheets(Feuille)
    CoordX = .[C2] * Sin(Application.Radians(.[B2]))
End With
End Function
Function CoordY(Feuille As String)
With Sheets(Feuille)
    CoordY = .[C2] * Cos(Application.Radians(.[B2]))
End With
End Function

Il vous suffit de partir de ce fichier et de nous expliquer le contexte et la finalité de votre demande.

 

[jeanmi]

Re,
J'ai rapatrié votre dernière demande du fil ici ( Lien )
En PJ un essai avec deux approches:
1- avec des formules :

=INDIRECT($H$1&"!$C$2")*SIN(RADIANS(INDIRECT($H$1&"!$B$2")))
=INDIRECT($H$1&"!$C$2")*COS(RADIANS(INDIRECT($H$1&"!$B$2")))

2- avec des fonctions perso VBA :

Function CoordX(Feuille As String)
With Sheets(Feuille)
    CoordX = .[C2] * Sin(Application.Radians(.[B2]))
End With
End Function
Function CoordY(Feuille As String)
With Sheets(Feuille)
    CoordY = .[C2] * Cos(Application.Radians(.[B2]))
End With
End Function

Il vous suffit de partir de ce fichier et de nous expliquer le contexte et la finalité de votre demande.

Bonjour @sylvanu à tous,

J’ai mis le fichier avec les explications sur les onglets, j’espère que se sera compréhensible.

Merci pour l'aide

Cordialement

 

[TooFatBoy]

=INDIRECT("'" & Feuil4!$H$1 & "'!B2")

=INDIRECT("'" & Feuil4!$H$1 & "'!C2")

=INDIRECT("'" & Feuil4!$H$1 & "'!D2")

J'ai mis H1, mais c'est peut-être L5...

 

[sylvanu]

Re,
@jeanmi,
Si le but est de rapatrier des données uniquement sur centaines années, c'est plus simple de passer par une macro VBA. Voir PJ
( je n'ai pas traité "choix jour" )

Question : Serait ce pour utiliser le fichier de votre post précédant avec plusieurs planètes ?

 

[jeanmi]

Re,
@jeanmi,
Si le but est de rapatrier des données uniquement sur centaines années, c'est plus simple de passer par une macro VBA. Voir PJ
( je n'ai pas traité "choix jour" )

Question : Serait ce pour utiliser le fichier de votre post précédant avec plusieurs planètes ?

bonjour,

Les but est effectivement de rapatrier les données, d'une feuille d1, d2, d3 etc., sur les années choisies, et pour le/les jours choisis, afin de tracer le graphique correspondant aux choix définis.

Pour répondre à la question c'est : oui