Discussion :

[astragor]

Bonjour,

J'aurais une petite question.

Dans un de mes projet j'ai un formulaire qui doit récupere les coordonnées de la cellule active automatiquement dès qu'on la déplace.

Facile vous allez me dire on a l'évènement :

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Mon problème est que cet évènement est lié à une feuille précise d'un classeur précis. Or pour mon projet il est important que la macro fonctionne quelque soit le classeur ouvert. (Ma macro étant dans mon dossier XLSTART).
Je voudrais donc savoir s'il y a moyen de réaliser ce genre de chose.

Je me doute bien que certains d'entre vous vont être tenté de me répondre, c'est impossible, c'est un évènement de feuille, on ne peut utiliser une évènement de feuille que dans une feuille, ....

Là ce qui m’intéresserai c'est plutôt d'avoir des réponses de gens qui ont été confrontés au problème et qui ont des pistes intéressantes.

[parmi]

Bonjour,

Peux-tu expliquer un peu plus ?
De ce que je comprends,

Code :

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

Activeworkbook.Activesheet.Activecell

devrait te donner la cellule active de la feuille active du classeur actif...

[Philippe Tulliez]

Bonjour,

c'est un évènement de feuille, on ne peut utiliser une évènement de feuille que dans une feuille, ....

Ce n'est pas tout à fait exact. Il est possible d'intercepter l'événement SelectionChange qui se déroule dans n'importe qu'elle feuille d'un classeur avec l'événement Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) où sh représente l'objet feuille où s'est déroulé l'événement et Target la cellule.

Par contre je n'ai pas d'expérience pour un événement qui aurait lieu sur un classeur ouvert depuis le classeur xlStart ou même depuis un classeur xlam mais j'imagine que cela doit être possible avec WithEvents.

[astragor]

@Parmi. Alors recupérer la position de la cellule active, ça va je sais faire, ce n'est d'ailleurs pas l'objet de ma question

@Philippe Tulliez : Alors oui effectivement il y a un évènement prévu dans le classeur. Je l'avais zappé et ca marche très bien tant qu'on reste dans le classeur.
Si on sort du classeur, ca ne marche plus.
Quelqu'un m'a orienté vers les modules de classes et l'excellent tuto présent ici.

Par contre j'ai tout suivi. Mais je ne m'en sort pas n'y entendant pas encore grand chose.

(Pour mon test j'ai fait simple, chaque fois que je bouge le curseur, j'affiche un msgbox.)

J'ai donc tout fait comme dans la doc, j'ai créé un module de classe et j'y ai mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Option Explicit
    Private WithEvents xlApp As Application
 
    Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     MsgBox "Ca devrait marcher"
    End Sub
 
    Private Sub Class_Initialize()
       Set xlApp = Application
    End Sub

Ensuite j'ai créé un module standard dans lequel j'ai mis le code suivant

Code :

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

1
2
3
4
5
6
7
 
    Option Explicit
    Dim ThisApplication As AppEvents
 
    Public Sub Activer_Evenements_Application()
       Set ThisApplication = New AppEvents
    End Sub

Lorsque je lance la macro Activer_Evenement_Application j'ai l'erreur suivante qui apparait :

Erreur de compilation : Utilisation incorrecte du mot clé New....

[astragor]

Bon j'avais juste oublié d’appeler mon module de classe AppEvents

Du coup ca marche mieux comme ça