Valeur en fonction de la feuille active

Bonjour,

J'ai trois onglets et je voudrais que si je suis sur la feuille 2, la cellules B3 de la feuille 1 reçoit la valeur de la cellule B3 de la feuille2 et si je suis sur la feuille 3, la cellules B3 de la feuille 1 reçoit la valeur de la cellule B3 de la feuille3.

En un mot je voudrais que la cellule B3 de la feuille 1 reçoive la la de la cellule B3 de la feuille active (la feuille sur laquelle je suis)

Je sais pas comment m'y prendre.

merci.

Bonjour,

Une proposition utilisant l'évènement Worksheet.Activate

A+

Bonjour,

pas regardé la réponse de frangy mais ça doit être du pareil au même.

Mise à jour sur activation de la feuille et sur édition de la date. A mettre dans thisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    majDate
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target = [B3] Then majDate
End Sub

Sub majDate()
    Dim feuilles As String
    feuilles = ";Feuil2;Feuil3;"    ' liste des feuilles concernées
    If InStr(feuilles, ";" & ActiveSheet.Name & ";") Then
        Application.EnableEvents = False
        Sheets("Feuil1").[B3] = [B3].Value
        Application.EnableEvents = True
    End If
End Sub

Adapter la liste des feuilles concernées.

eric

Bonjour,

Merci ça parfaitement marché.