Trouver une donnée en fonction de la feuillle

Bonjour à tous.

Si quelqu'un pouvait me donner une piste pour me débloquer ce serait très sympathique.

J'ai une feuille de report FR et j'ai créé autant de feuille que de jours dans le mois. Elles sont toutes nommées 01 02 03 04... 31

Dans la feuille de report, je souhaite inscrire dans une case par exemple B1 le numéro de la feuille correspondant à une journée par exemple 05. Et dans la case C1 de la même feuille apparaîtrait la valeur de la case D4 de la feuille 05. Si j'inscris 18 dans B1 de la feuille de report, il apparaît à la case C1 de la même feuille la valeur D4 de la feuille 18

Vous avez un modèle joint.

Merci pour votre aide.

Bonjour,

Formule en C1 :

=INDIRECT(B1&"!D4")

Cordialement

Ferrand

Bonsoir le fIl, bonsoir le forum,

Une proposition VBA. Je hais les formulistes !... Il sont trop forts.

En piece jointe ton fichier modifié avec la macro événementielle Change ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onget
Dim O As Worksheet 'déclare la variable O (Onglet)

If Target.Address <> "$B$1" Then Exit Sub 'si le changement a lieu ailleurs que dans B1, sort de la procédure
If Target = "" Then Target.Offset(0, 1).Value = "": Exit Sub 'si B1 est effacée, C1 est effacée aussi puis, sort de la procédure
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set O = Sheets(Target.Value) 'définit l'onglet O (génère une erreur si cet onglet n'existe pas
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    MsgBox "L'onglet " & Chr(34) & Target.Value & Chr(34) & " n'existe pas !" 'message
    Target.Select 'selectionne B1
    Exit Sub 'sort de la procédure
End If 'fin de la conditon
Range("C1").Value = O.Range("D4").Value 'récupère an C1 la valaur de D4 de l'onglet O
End Sub

Franchement Ferrand. Pourquoi faire si simple alors qu'on peut faire très compliqué ?!...

Ça me scotche ! Je ne vois pas comment matricialiser pour poursuivre !!

Merci MFERRAND

C'est très simple et cela me convient très bien.

Merci aux autres pour leur interventions également.

Et à bientôt.