Valeur d'une cellule / position du curseur

Bonjour à toutes et tous,

Je fait face à un léger problème :

Est-ce possible ce récupérer la valeur d'une cellule en VBA en fonction de la position du curseur ?

Admettons que ma macro se lance en faisant ctrl+maj+h, je souhaiterais récupérer la valeur de la cellule survolée par le curseur au moment où j'appuie sur les touches ci-dessus indiquées.

Je met un fichier en PJ pour expliciter un peu mon bazar !

Bonjour,

Cellule active ! (et non simplement "survolée"...)

v = ActiveCell.Value

Telle qu'elle était posée ma question était incompréhensible... j'ai mis un fichier test pour essayer d'être plus clair

Bonjour,

la question est totalement différente dans le fichier...

eric

En effet... Salut Eric...

Je dois passer à d'autres activités... donc ! Bye !

Re,

pour la demande de ton fichier pas besoin de bouton ni de vba.

Insertion / lien hypertexte / Emplacement dans ce document.

eric

Bonjour,

Désolé ! Un jour j'apprendrais à m'exprimer clairement xD

En gros ce que je souhaite c'est pouvoir affecter une seule et même macro aux 3 boutons dans mon exemple et que si je lance depuis le bouton 1 il me récupère la valeur en A1, Bouton 2 celle de A2 et Bouton 3 celle de A3... ainsi de suite.

Je me disait qu'en récupérant la position du curseur au moment où je clique c'était peut être possible ! Mais en me relisant aujourd'hui il est vrai que mes explications sont incompréhensibles.

Suis-je plus clair dans mes explications ?

Merci à tous pour le temps que vous me consacrez

Bonjour,

cliquer sur un bouton ne change pas la cellule active. Et déterminer quel est le bouton cliqué pour trouver sa position serait bien compliqué. Autant que chaque bouton ait sa macro et appelle une macro commune en lui passant la cellule voulue.

Sinon récup par un double-clic dans la cellule :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [A2:A5]) Is Nothing Then
        Cancel = True
        MsgBox Target
    End If
End Sub

eric

Bonjour,

Une macro à affecter à tous les boutons :

Sub test()
    Dim lgn%, v
    lgn = Val(Right(Application.Caller, 2))
    v = ActiveSheet.Cells(lgn, 1)
    MsgBox v
End Sub

Le nom du bouton doit se terminer par le numéro de la ligne sur lequel il se trouve (du moins il renverra la valeur de la cellule en A sur la ligne correspondant à son numéro).

Cette procédure peut demeurer inchangée jusqu'au bouton 99.

Si on prevoit plus de bouton modifier :

lgn = Val(Mid(Application.Caller, 7, 5))

qui ira jusqu'au bouton 9999 !...

Cordialement.

Bonjour,

Désolé pour le délai ! J'étais en Corse sans internet (Oui je sais c'est dur la vie :p)

Vos réponses sont futées et fonctionnent !

Merci !

Girodo