Interception click sur objets dans UserForm

Bonjour,

je souhaiterais que le click sur les objets contenus dans une userform soit intercepté par une seule fonction et récupérer le nom de l'objet clické.


En effet, en fonction du tag de la userform soit l’évènement de l'objet est exécuté ou pas. Et je ne me vois pas écrire pour chaque objet un truc du genre :

Code:

---

1 2 3 4 5

If Not Me.Tag = "CONF" Then code... code... code... End if

---

Comment puis-je faire cela ?

par avance merci.

J'ai trouvé ce bout de code qui intercepte le Click souris et sa position. Mais je souhaiterai obtenir le nom de l'objet sur lequel l'utilisateur a cliqué:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal uAction As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim Pos As POINTAPI   Private Sub Timer_Timer() 'interval 100 Key = GetAsyncKeyState(i) if i = 1 then msgbox "leftclick" if i = 2 then msgbox "rightclick" if i = 3 then msgbox "centerclick" GetCursorPos Pos 'met les positions de la souris Position.Caption = Pos.x & " ; " & Pos.y 'affiche la pos End Sub

---

bonjour

ton problème a une solution le nom de cette solution s'appelle "classe"( colection de controls

une classe te permet de gérer toute une palanquée de contrôles en une seule fonction

en voila un petit exemple vite fait qui reprend un peu l'exemple qu'il y a dans les contributions que tu aurais trouvé si tu avais fait une toute petite recherche

ouvre un nouveau classeur et fait l'essai

dans ce nouveau classeur insère un userform,un module standard,un module classe que tu nommera "mesboutons"

met des boutons et met un tag a ceux que tu souhaite traiter
dans l'exemple ici on va mettre comme tag "cliquable"

dans le module de l'userform et me ceci:

Code:

---

1 2 3 4

Private Sub UserForm_Activate() Set maform = Me memorise_bouton Me End Sub

---

dans le module standard met ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Public bouton() As New mesboutons 'pour instancier la classe "Mesboutons" Dim ctrl As Object Sub memorise_bouton(maform)   Dim e As Long For Each ctrl In maform.Controls On Error Resume Next If TypeName(ctrl) = "CommandButton" Then e = e + 1 'on incrémente la variable e 'on mémorise la collection des boutons ReDim Preserve bouton(1 To e) Set bouton(e).GroupeBouton = ctrl End If Next   End Sub

---

et pour finir dans le module classe"mesboutons"mes ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public WithEvents GroupeBouton As Msforms.CommandButton ' on a tagué les bouton avant bien sur Private Sub GroupeBouton_Click() If GroupeBouton.Tag = "cliquable" Then 'si le tag correspond a ce que tu veux faire ceci:::: MsgBox "ce bouton est cliquable" Else 'si le tag ne correspond pas a ce que tu veux faire cela::::   MsgBox "ce bouton n'est pas cliquable" End If End Sub

---

voili voilou tu a une seule fonction pour gérer tes boutons

au plaisir ;)

Bonjour Patrick,

Je te remercie pour ta réponse. Cela m'a permis de découvrir WithEvents.
Et cela fonctionne nickel !!!

Penses-tu qu'il y a moyen d'intercepter tous le click sur tous les objets de la userform ? Le problème est que je doit aussi faire la différence entre click sur un listview et click sur son entête de colonne.

Enfin le code contenu dans commandbutton_1click s’exécute. Y a-t-il possibilité de "canceler" son exécution si le tag correspond à une condition ?

Encore merci.

rebonjour

la réponse est oui pour tout les controls

maintenant pour la listeview j'avais utiliser la position X etY de la souris dessus pour gérer les en tête ou voir même les colonnes

cela dit ça peut être parfaitement intégré a une classe de la même manière

et ce qu'il faut retenir c'est la manière dont VBA interprète groupebouton
c'est le principe de la collection

cela dit dans le modèle que je t'ai vite fait comme ça tu peut intégrer tout les controls
et dans la classe faire un (select case) sur le type de controls
se sera peut être moins compliqué pour toi


au plaisir

Merci pour toutes ces infos.