Click sur forme auto

[Francis]

Bonjour le forum,

J'aimerais savoir s'il est possible de lancer une procedure evenementielle par ex: Mousedown, sur une forme automatique qui est sur une feuille(Textbox, Commandbouttun,...car je n'y arrive pas. Merci de m'aider.

 

[Bricofire]

Bonjour Francis, 🙂

Pour une zone de texte, une fois sélectionnée, tu cliques droit sur la bordure (pas dedans) et tuas affecter une macro qui est accessible dans le menu.

Pour un bouton quand tu es en mode création, tu double clisk dessus et tu passes direct en éditeur VBA.

Bonne journée,

Brico

 

[Bricofire]

Arf ! bonjour José 😉

Collision !

Aïe, t'es plein de piquants !!!!

Bonne journée,

brico

 

[Francis]

Bonjour jmps, Bricofire,

Désolé pour l'abus de langage. Effectivement ce ne sont pas des formes automatiques. Je genère par ex untextbox:

Set Obj = Sheets('Feuil1').OLEObjects.Add(ClassType:='Forms.TextBox.1', _
Link:=False, DisplayAsIcon:=False, _
...
With Obj
.Name = 'Txbx'
...
et je veux faire une procedure:
Private Sub Txbx_click()
Mais celle-ci ne s'active pas.

Merci pour votre aide.

 

[Fracis]

Re jmps,

Non, en fait j'aimerai lancer une procedure quand je click dessus.
Merci

 

[Francis]

Re,

En fait mon lancement de Proc est:

Private Sub Txbx_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

mais cela reste sans effet.
Merci

 

[Bricofire]

Re tout le monde, 🙂

Un lien utile :

Lien supprimé

de plus en cliquant sur MichelXLD, tu auras accès à son WIKI qui regorge de choses et surement de ce pb 😉

Bonne appétit,

Brico