[AC-97] code sur double clic de tous les controles d'un formulaire [Résolu]

[docjo]

Bonjour

J'ai une soixantaine de controles dans mon formulaire que j'ai nommé
monchamp1, monchamp2,...,monchamp60

J'aimerai exécuter le même code sur le double clic de chaque champ.
Quel est le moyen de rentrer un seul code plutôt que de rentrer le code pour chaque double clic du champ. Je pense à un truc du style:

Code :

1
2
3
4
5
6
7
 
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
   'on dblclick
   'mon code
Next Ctrl

Merci par avance

[Orion34080]

Peut-être quelque chose comme :


Dans un module à part :

Code :

1
2
3
Public Sub MonCodeCommun ()
' là ton code
End sub

Et dans le double clic de chacun de tes champs tu mets simplement

Code :

MonCodeCommun 'Call du Sub

Michel

[docjo]

Merci pour le conseil mais en fait, c'est justement pour eviter les 60 codes sur double clic.
J'avais pensé au module: peut être avec un code intégrant une fonction double clic mais j'ai pas trouvé.

[lelensois16]

Bonjour,

Ceci est possible mais faudra passer par des modules de classes...
le hic c'est que je maitrise pas encore ces notions , mais je suis persuadé qu'il faut passer par ces notions.

Bien cdt

[Philippe JOCHMANS]

Bonjour


Tu peux tester cela :

Déclare une fonction publique :

Code :

1
2
3
Public Function test()
    MsgBox "toto"
End Function

Ensuite sur l'ouverture de ton formulaire mets ce code :

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
 
    Dim objCtrl As Control
    For Each objCtrl In Me.Controls
        With objCtrl
            .OnDblClick = "=test()"
        End With
    Next objCtrl
 
End Sub

Maintenant fais un double-click sur les contrôles pour voir si cela correspond à ce que tu souhaites.

Philippe

[Serico]

Merci pour le code, marche très bien

trouve très pratique

[docjo]

Genialissime !
Cela fonctionne aussi sur . onafterupdate ? D'autres évènements ?