macro pour renvoyer infos?

[jean-marie]

bonjour à tous,
problème:
feuille 1 : infos en B1:B500 ; A1 : A 500 cellules vides ;
feuille 2 : M 5 attend l 'info
comment faire pour qu'en cliquant sur A250, par exemple, la feuille 2 apparaisse avec la valeur B250 renvoyée en M5;
d avance merci à tous jean-marie

 

[sab]

bonjour jean-marie,

copie cette macro sur la page code de la feuille 1,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set x = Application.Intersect(Target, Range("A1:A500"))
If Not x Is Nothing Then
Sheets("Feuil2").Range("M5") = Sheets("Feuil1").Cells(Target.Row, 2)
End If
Sheets("Feuil2").Activate
End Sub

sab

 

[jean-marie]

sab, merci de ta réponse mais ca ne marche pas....Je dois mal recopier la formule...Peux-tu être plus précis....jean-marie

 

[jean-marie]

bonjour à tous,
problème:
feuille 1 : infos en B1:B500 et en A1:A 500 cellules vides ;
feuille 2 : M 5 attend l 'info
comment faire pour qu'en cliquant sur A250, par exemple, la valeur de B 250 soit envoyée vers feuille 2 cellule M5.
merci d 'etre précis dans vos réponses car vba n'est pas ma langue maternelle.... Jean-marie

 

[sab]

bonjour jean-marie,

as-tu copier macro sur la page code de la feuille1 ?

il ne faut pas la copier sur la page code d'un module standard car c'est une macro événemencielle associer à la Feuil1

sab

 

[jean-marie]

bonjour à tous,
problème:
feuille 1 : infos en B1:B500 et en A1:A 500 cellules vides ;
feuille 2 : M 5 attend l 'info
comment faire pour qu'en cliquant sur A250, par exemple : la feuille 2 apparaisse avec la valeur de B 250 en cellule M5.
merci d 'etre précis dans vos réponses car vba n'est pas ma langue maternelle.... Jean-marie

 

[michel]

bonsoir Jean-Marie , bonsoir Sab

la macro de Sab fonctionne très bien chez moi
le problème vient peut etre de la variable x non définie : Dim x As Range , à placer en début de macro


bonne soirée
MichelXld

 

[jean-marie]

bonsoir Michel, bonsoir Sab
toujours rien à faire.... ça coince quelque part! pourriez-vous m' envoyer un exemple pour voir comment celà se présente chez vous.
Vous allez me trouver "gonflé" si je demande,en plus, que la feuille 2 apparaisse après le clic en A 250 (par ex ) avec le résultat en M5 ?
Fallait pas être compétent ! merci d'avance jean-marie

 

[Michel_M]

Bonsoir Jean Marie,Sab, Michel


A tout hasard essaies cette variante:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A500")) Is Nothing Then: Exit Sub

Sheets("Feuil2").Range("M5") = Target.Offset(0, 1)
Sheets("Feuil2").Activate

End Sub

A+
Michel

 

[jean-marie]

HOURRA ! CA MARCHE !!!
exactement ce que je voulais....
merci A TOUS d'avoir passé du temps pour m'aider et merci particulier à michel_M pour la solution . à bientôt !? (hé oui, on va abuser de vous....)
amicalement . Jean-marie