XL 2013 cel col3 de la ligne active de la feuil2 inactive copiée en B3 feuille activée

[Usine à gaz]

Bonjour à toutes et à tous,

Je bute sur un nouveau problème que je n'arrive pas à résoudre.
Je cherche, je cherche et je dois "tourner" autour de la solution (enfin, je pense) mais rien à faire, je n'y arrive pas.

Voici que voilou :
J'ai fait ce code qui ne fonctionne pas

Private Sub Worksheet_Activate()
    'cellule col3 ligne active de feuille2
    [b3] = Worksheets("Feuil2").Cells(ActiveCell.Row, 3) '.Text
End Sub

Je voudrais qu'à l'activation de la feuil1
la cellule col3 de la ligne active de la feuil2 soit copiée en B3 (de la feuil1)

Auriez-vous la solution ?
En cas, je joins un fichier test.

Avec mes remerciements déjà pour m'avoir lu,
Je vous souhaite à toutes et à tous une belle fin de journée
Amicalement,
arthour973

 

[CHALET53]

bonjour,

Un peu tordu mais ça semble marcher

Private Sub Worksheet_Activate()
'Stop
'cellule col3 ligne active de feuille2
Application.EnableEvents = False
Sheets("Feuil2").Activate
ligne = ActiveCell.Value
Sheets("Feuil1").Activate
Sheets("Feuil1").Range("B3") = ligne
[b3] = ligne ' Worksheets("Feuil2").Cells(ActiveCell.Row, 3) '.Text
' [b3].Select
Application.EnableEvents = True
End Sub

 

[Usine à gaz]

Bonsoir Chalet53,

Merci de m'avoir répondu mais ça ne fonctionne pas chez moi.
Je continue mes recherches
Amicalement,
arthour973

 

[Si...]

Bon_soir

en feuil2

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  C = Cells(R.Row, 3).Value
End Sub

en feuil1

Private Sub Worksheet_Activate()
  [B3] = C: [B3].Select
End Sub

à condition d'avoir déclaré la variable C en Public dans un Module Standard

Bien entendu il faut commencer,ici par sélectionner une cellue dans Feuil2

 

[Usine à gaz]

Bonsoir Si

Bon sang, ça ne s'invente pas et je suis incapable de faire ça

Un grand Mer Si, c'est super
Amicalement,
arthour973

 

[Si...]

re,
j'ai édité mon message pour apporter un complément d'information