click

Bonjour Cricri


A placer dans la page de code de la feuille concernée (Alt + F11 pour accéder à
l'éditeur VBA):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target(1), Range("B1:B100")) Is Nothing Then Exit Sub
MaValeur = target(1).value
..........................................
Ta procedure
..........................................
End Sub

La procédure Worksheet_SelectionChange intercepte les changements de sélection
(target est l'objet Range qui désigne la plage selectionnée, target(1) la
première cellule de cette sélection. La première ligne permet de vérifier si
cette cellule est dans la plage B1:B100.

OK?

@+

Yvan


"marianne puget" <puget.marianne@neuf.fr> a écrit dans le message de news:
OhKZOIW$FHA.2264@tk2msftngp13.phx.gbl...

bonjour,
Lorsque j'effectue un click sur un range("B1:B100")
je souhaite recuperer la valeur de mon click
pour executer une procédure de find dans un fichier
puis retourner dans ma feuille initiale pour new clck eventuel
Pouvez-m'aider
Merci d'avance
cricri

Bonjour,

Click ou DoubleClick. Je conseille plutot la seconde , moins
contraignante que la 1ere.Nonobstant , le code pourrait ressembler à
celui-ci (j'ai supposé que le fichier où doit se situer la recherche
s'appelle toto.xls et que la feuille de recherche s'appelle Feuil1. Ob
suppose bien sur que le fichier toto.xls est ouvert)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

If Not Intersect(Target, Range("B1:B1000")) Is Nothing Then
Set shrech = Workbooks("toto.xls").Sheets("Feuil1")
Set rng = shrech.UsedRange.Find(Target.Value, , xlValues, xlWhole)
If Not rng Is Nothing Then MsgBox rng.Address
End If

Cancel=true

End Sub

A+

bonjour,
Lorsque j'effectue un click sur un range("B1:B100")
je souhaite recuperer la valeur de mon click
pour executer une procédure de find dans un fichier
puis retourner dans ma feuille initiale pour new clck eventuel
Pouvez-m'aider
Merci d'avance
cricri