Discussion :

[daniel_gre]

Bonjour,

j'essaye de gerer le click d'une cellule avec OnEntry, je ne souhaite pas utiliser une autre fonction, pour activer une macro lorsque n'importe quelle cellule est activee dans une feuille.
dans un module (module1) j'ai entre le code, suivant afin de declarer, a l'ouverture du classeur ce qui devait arriver lorsque je clique sur une cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Auto_Open()
  ActiveWorkbook.Sheets("Sheet1").OnEntry = "Handle"
  'u = MsgBox("INFO", vbInformation, "Handle activate")
End Sub
 
et ensuite ecrit dans ce meme module (module1) la macro suivante
Sub Handle()
  If Application.Caller.Column = 1 Then
    ThisRow = Application.Caller.Row
    If ThisRow = 1 Then
        u = MsgBox("INFO", vbInformation, "Click...")
    End If
  End If
End Sub

Malheureusement lorsque je clique une case ma macro n'est pas appelle !!!

Quelqu'un a t'il une idee de mon erreur?

par avance merci,

Daniel.

[tirex28]

Bonsoir,

Ca fonctionne tres bien mais ca se declenche quand on modifie une cellule pas quand on la selectionne.

Pour detecter la selection d'une cellule je crois que la seule solution est de passer par l'évènement prévu à cet effet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

Cordialement,

Tirex28/

[AlainTech]

je ne souhaite pas utiliser une autre fonction,

Alors, là... J'aimerais bien savoir pourquoi.
Lorsque je tape F1 sur OnEntry dans mon vieil Excel 97, l'aide me renvoie le Change Event...
Autrement dit, cette syntaxe était déjà obsolète en 97.

A moins que tu aies encore du Excel 4 ou 5 dans ton parc, je ne vois pas bien pourquoi tu refuses d'utiliser une gestion plus moderne des événements.