=valeur d'une cellule active autre feuille

[phil69]

Bonsoir à toutes et tous

je suis perdu sur quelque chose je pense simple

je cherche un code pour que une cellule active en feuille deux prenne la valeur de la cellule active de la feuille1
code ou je cale Range("A500").End(xlUp).Offset(1, 0).Select (le code pour la cellule active de la feuille 2)
ActiveCell.Value=ActiveCell"feuille1".Value (c'est une conner!!!! que j'ai écrit mais ou est le truc???)
merici
phil69

 

[camarchepas]

Re : =valeur d'une cellule active autre feuille

Bonjour,

A mettre dans le module de la feuil2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Sheets("Feuil1").Range(Target.Address)
End Sub

 

[phil69]

Re : =valeur d'une cellule active autre feuille

re le forum

Merci pour la réponse et comme tu le dis si bien une question bien posée est en partie résolue et ce qui n'a pas été mon cas
je joint un petit fichier pour mieux me faire comprendre
dans l'exemple je voudrai que la valeur de la cellule A4 feuille1 alimente la colonne A de la feuille2 par une macro
via un bouton. Donc quand j'ai sélectionnée A4 feuille1, je lance ma macro j'ai le code (Range("A500").End(xlUp).Offset(1, 0).Select)qui me cherche la premiere cellule vide colonne A feuille2 et un code qui qui ferait que la premiere cellule vide colonne A feuille2 prendrait la valeur de la cellule selectionnée dans la collonne A feuille1 (A4) dans l'exemple
merci
phil69

 

[camarchepas]

Re : =valeur d'une cellule active autre feuille

Et oui tu apprends vite en tout cas ,

c'est vrai avec un fichier cela toujours mieux

Sheets("Feuil2").Range("A500").End(xlUp).Offset(1, 0) = ActiveCell.Text

 

[phil69]

Re : =valeur d'une cellule active autre feuille

Bonjour le forum

merci çà a l'air tellement simple pour vous
phil69

 

[phil69]

Re : =valeur d'une cellule active autre feuille

bonjour à toutes et tous

Encore moi
quel code en plus de Sheets("Feuil2").Range("A500").End(xlUp).Offset(1, 0) = ActiveCell.Text pour que dans la cellule colonne B sur
la même ligne j'ai la date du jour mais qui reste figée (ne change pas les jours suivants)

 

[camarchepas]

Re : =valeur d'une cellule active autre feuille

Bonjour Phil,

Remplace la macro 2 par celle ci

Sub Macro2()
'Mémorise

Sheets("Feuil2").Range("A500").End(xlUp).Offset(1, 0).Resize(1, 2) = Array(ActiveCell.Text, Now())

End Sub

 

[phil69]

Re : =valeur d'une cellule active autre feuille

re le forum

Merci pour ta réponse, mais ça coince Je te joint le fichier
merci
phil69

 

[phil69]

Re : =valeur d'une cellule active autre feuille

re le forum

Quel beta, j'ai oublié produits au pluriel
merci
phil69