=valeur d'une cellule active autre feuille

camarchepas

XLDnaute Barbatruc

• 23 Juillet 2014

• #2

Re : =valeur d'une cellule active autre feuille

Bonjour,

A mettre dans le module de la feuil2

Code:

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

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 23 Juillet 2014

• #3

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

 

Pièces jointes

• Classeur1.xls

  33.5 KB · Affichages: 32
• Classeur1.xls

  33.5 KB · Affichages: 28
• Classeur1.xls

  33.5 KB · Affichages: 36

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Juillet 2014

• #4

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

Code:

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

 

Pièces jointes

• Mémoire.xls

  36.5 KB · Affichages: 32
• Mémoire.xls

  36.5 KB · Affichages: 30
• Mémoire.xls

  36.5 KB · Affichages: 34

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 24 Juillet 2014

• #5

Re : =valeur d'une cellule active autre feuille

Bonjour le forum

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

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 25 Juillet 2014

• #6

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)

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 25 Juillet 2014

• #7

Re : =valeur d'une cellule active autre feuille

Bonjour Phil,

Remplace la macro 2 par celle ci

Code:

Sub Macro2()
'Mémorise

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

End Sub

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 25 Juillet 2014

• #8

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

 

Pièces jointes

• flux.xls

  71.5 KB · Affichages: 29
• flux.xls

  71.5 KB · Affichages: 31
• flux.xls

  71.5 KB · Affichages: 38

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 25 Juillet 2014

• #9

Re : =valeur d'une cellule active autre feuille

re le forum

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

 

Vote positif 0 Vote négatif