Microsoft 365 Récupérer la valeur de la cellule sélectionnée dans une autre feuille

Usine à gaz · 6 Octobre 2022

Bonjour à toutes et à tous

J'ai de nouveau besoin de nos ténors...
J'ai fait des recherches hier nuit et beaucoup d'essais et je n'y arrive pas

Comme l'indique mon titre : Je voudrais "Récupérer la valeur de la cellule sélectionnée dans une autre feuille"

Voici le contexte
- La cellule sélectionnée de la Feuil1 est en ligne 5 cellule A

Je suis sur la feuil2
- à la modification de la cellule B4 ou C4 ou D4 :
- Je voudrais que ma cellule G4 (Cells(ActiveCell.Row, 7))
prenne la valeur de La cellule (Cells(sélectionnée de la Feuil1 en ligne 5(Cell.Row, 7)),
soit la cellule E5 de la Feuil1

Auriez-vous le bon codage ?
Je joins un petit fichier test.

Un grand merci à tous
Entre temps, je m'y remets cette nuit ...

Amicalement,
lionel

sousou · 6 Octobre 2022

Bonjour lionel.
1/ le cellule active ne peux pas être dans une autre feuille
La solution est de mémoriser la cellule quant tu est dans la feuil1
et de récupérer cette donnée à la modification de tes cellules de la feuille 2
regarde ceci

vgendron · 7 Octobre 2022

pas encore très clair..
En feuille 2: si tu modifies B4 C4 ou D4==> tu récupères la donnée en ligne4 de la feuille 1

si tu modifies B10 C10 D10 de la feuille 2, tu récupères alors, la données en ligne 10 de la feuille 1

==> la ligne récupérée en feuille 1 dépend de la ligne modifiée en feuille 2==> C'est ca??
si oui. quid de la colonne??

si tu modifies B C ou D.
c''est toujours la colonne G de la feuille 2 qui est remplie?
c'est toujours la colonne E de la feuille 1 qui est récupérée??

en fait. dans ton fichier, je pense qu'il manque des lignes de données exemple

Usine à gaz · 7 Octobre 2022

Pas tout à fait :
- Quand je traite Feuil2 ligne4, c'est que j'ai au préalable mémorisé en Feuil1 ligne4
- Si je veux traiter une autre ligne de la Feuil2, par exemple la ligne 5, je dois d'abord allez en Feuil1 pour mémoriser la cellule de la ligne5

Précision que j'avais omis de te donner : la mémorisation en Feuil1 me dirige automatiquement en Feuil2 même ligne.

J'espère que mon explication est meilleure lol
lionel

vgendron · 7 Octobre 2022

OK
effectivement, en donnant toutes les infos . ca va mieux

plutot que de sauvegarder la cellule active à CHAQUE evenement_change de la feuille, je te propose un bouton
une fois que tu as cliqué ta cellule de la feuille "Source", tu cliques sur le bouton
==> la celluleActive est sauvegardée
un message t'indique quelle ligne va etre selectionnée
si tu modifies la ligne en feuille "Destination", le texte est copié

Usine à gaz · 7 Octobre 2022

Re-bonjour vgendron

Effectivement, c'est mieux avec toutes les explications lol.
Super cette version.
Grand merci,
lol Mais "usine à gaz" n'a pas dit son dernier mot ....
lionel

Dudu2 · 7 Octobre 2022

Bonjour,
J'ai lu rapidement et peut-être que cette solution simple sans mémorisation a déjà été évoquée.

VB:

Sub a()
    Dim CelluleAutreFeuille As Range
    Dim FeuilleActive As Worksheet
    Dim AutreFeuille As Worksheet
    
    Application.ScreenUpdating = False
    Set FeuilleActive = ActiveSheet
    Set AutreFeuille = ThisWorkbook.Worksheets(2)
    AutreFeuille.Activate
    Set CelluleAutreFeuille = ActiveCell
    FeuilleActive.Activate
    Application.ScreenUpdating = True
    
    [A1] = CelluleAutreFeuille.Value
End Sub

Usine à gaz · 7 Octobre 2022

Bonjour Dudu2

Merci pour ce code "nouveau".
Je teste dès que j'ai un moment et je reviens te dire.
lionel

Usine à gaz · 7 Octobre 2022

Re-Bonjour @Dudu2

Je ne suis pas arrivé à faire fonctionner ton code... mais tu m'as donné une idée intéressante.
Je vois ça dès que je peux et je répondrai.
lionel

Dudu2 · 7 Octobre 2022

Je ne suis pas arrivé à faire fonctionner ton code...

L'idée est toute bête... Le même avec les commentaires:

VB:

Sub a()
    Dim CelluleActiveAutreFeuille As Range
    Dim FeuilleActive As Worksheet
    Dim AutreFeuille As Worksheet
   
    'Inhibe l'affichage
    Application.ScreenUpdating = False
   
    'Mémorise la feuille active
    Set FeuilleActive = ActiveSheet
   
    'Active la feuille autre où se trouve la cellule active à récupérer
    Set AutreFeuille = ThisWorkbook.Worksheets(2)
    AutreFeuille.Activate
   
    'Mémorise la cellule active à récupérer dans la feuille autre
    Set CelluleActiveAutreFeuille = ActiveCell
   
    'Ré-active la feuille initialement active
    FeuilleActive.Activate
   
    'Désinhibe l'affichage
    Application.ScreenUpdating = True
   
    'Récupère la valeur de la cellule active de la feuille autre
    [A1] = CelluleActiveAutreFeuille.Value
End Sub

Usine à gaz · 7 Octobre 2022

Dudu2 à dit:

L'idée est toute bête... Le même avec les commentaires:

VB:

Sub a()
    Dim CelluleActiveAutreFeuille As Range
    Dim FeuilleActive As Worksheet
    Dim AutreFeuille As Worksheet
  
    'Inhibe l'affichage
    Application.ScreenUpdating = False
  
    'Mémorise la feuille active
    Set FeuilleActive = ActiveSheet
  
    'Active la feuille autre où se trouve la cellule active à récupérer
    Set AutreFeuille = ThisWorkbook.Worksheets(2)
    AutreFeuille.Activate
  
    'Mémorise la cellule active à récupérer dans la feuille autre
    Set CelluleActiveAutreFeuille = ActiveCell
  
    'Ré-active la feuille initialement active
    FeuilleActive.Activate
  
    'Désinhibe l'affichage
    Application.ScreenUpdating = True
  
    'Récupère la valeur de la cellule active de la feuille autre
    [A1] = CelluleActiveAutreFeuille.Value
End Sub

LOL, si je comprends bien, je suis plus bête que l'idée

Bon sang : alors c'est vrai

Dudu2 · 7 Octobre 2022

LOL, si je comprends bien, je suis plus bête que l'idée

Ça je ne sais pas.
L'essentiel c'est que tu la comprennes et qu'elle serve à quelque chose

Usine à gaz · 9 Octobre 2022

Bonjour sousou

Bonjour vgendron

Le Forum

Je reviens sur le fil car à l'utilisation, j'ai un souci :
Les 3 codes fonctionnement parfaitement
- sousou = memoire
- vgendron = Public CelluleActive As Range
- lionel (Job75) = ActiveCell.Name = "MaCell" 'nomme la cellule

Mon souci :
Quand j'ai fait mon traitement, j'ai besoin d'annuler l'effet des fonctions :
- memoire
- Public CelluleActive As Range
-ActiveCell.Name = "MaCell" 'nomme la cellule
C'est à dire annuler les mémorisations.

J'ai fait des tests, des recherches mais je n'ai pas trouvé comment faire.
Impossible de m'en débarrasser lol... Même après fermetures et réouvertures des fichiers.

J'ai aussi tenté en sélectionnant une autre cellule (même vide) mais c'est, évidemment, la cellule vide qui est mémorisée.

Auriez-vous la solution ?
Merci à vous,
Je continue mes recherches ...
lionel

Usine à gaz · 9 Octobre 2022

Re
J'ai également tenté :

VB:

Public Sub ClearClipboard1()
Application.CutCopyMode = False: Cells(Application.Rows.Count, Application.Columns.Count).Copy: Application.CutCopyMode = False
End Sub

sans succès

ChTi160 · 9 Octobre 2022

Bonjour Lionel
Bonjour le Fil
Pas tout compris mais pour supprimer le Nom de la cellule

VB:

ActiveWorkbook.Names("MaCell").Delete

Jean marie

Usine à gaz · 9 Octobre 2022

Bonjour ChTi160

Merci Jean-Marie ... mais si, tu as tout compris.
C'est exactement ça.
Merci à toi,

Microsoft 365 Récupérer la valeur de la cellule sélectionnée dans une autre feuille

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

sousou

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires