Gerer evenement click ds feuille excel

Gerer evenement click ds feuille excel - VB/VBA/VBS - Programmation

Marsh Posté le 03-02-2005 à 11:35:26    

Bonjour,
 
Je recherche en ce moment une maniere de recupere l'info concernant l evenement click ds une feuille excel...
En plus clair je veux savoir qd le user click sur telle ou telle case et gerer ca sous VB...
Est -ce possible?!!! :??:  :??:  :??:  
 
Merci
 
Eliz

Reply

Marsh Posté le 03-02-2005 à 11:35:26   

Reply

Marsh Posté le 04-02-2005 à 20:05:40    

Bonsoir,
Sorry, il n'est pas prévu de récupérer l'évènement Click dans les feuilles Excel.
En principe on se débrouille très bien avec les évènement suivants :
Worksheet_SelectionChange (changement de cellule active)
et... Worksheet_Change (modification du contenu d'une cellule)
pour t'en convaincre tu peux coller les 2 macros ci-dessous dans un nouveau classeur
(Clic droit sur l'onglet de Feuil1 puis Visualiser le code)
Ensuite faire un copier coller
 
Private Sub Worksheet_Change(ByVal Target As Range)
Beep
MsgBox Target.Value
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub
 
puis faire Alt Q pour revenir à Feuil1...
 
Ok ?

Reply

Marsh Posté le 08-02-2005 à 11:10:10    

En fait je recupere l information concernant la cellule en lui affectant une macro et un code :
 ligne = Selection.row
 colonne = Selection.column
 
Le pb c k'avec cette methode je ne peux recuperer k'une case a la fois et moi je veux selectionner plusieurs cases et leur affecter le meme code....
 
Moui je sais c'est pas banal...
 
Une idee?
 
Thanks

Reply

Marsh Posté le 09-02-2005 à 00:21:09    

bonsoir,
ta formulation n'est pas très claire aussi je ne suis ps sur de ne pas tomber à coté...
Cette macro permet de contrôler la zone ("A1:B4" ) et de faire quelque chose quand on active ces cellules...
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:B4" )) Is Nothing Then
MsgBox "Tu as cliqué ligne " & Target.Row & ", colonne" & Target.Column
End If
End Sub
 
Ok ?


Message édité par galopin01 le 09-02-2005 à 00:33:32
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed