Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

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
 
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…