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

Usine à gaz · 30 Mai 2018

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

Code:

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 · 30 Mai 2018

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 · 30 Mai 2018

Bonsoir Chalet53,

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

Si... · 30 Mai 2018

Bon_soir

en feuil2

VB:

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

en feuil1

VB:

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 · 30 Mai 2018

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... · 30 Mai 2018

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

CHALET53

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Discussions similaires