Récupérer l'Evenement ON_CHANGE quelque soit le contrôle

**Freiya** · 31/05/2007, 12h54

Bonjour,

J'ai X TextBox sur une feuille (pas une form)
Pour chacunes d'entre elles j'ai la même action à appliquer sur l'évènement ON CHANGE.
Ex : tout en majuscule

De même j'ai une autre action à faire à chaque Got_FOCUS et Lost FOCUS.

Je ne souhaite pas pourrir mon code en réécrivant X fois la même chose.

Comment fait-on pour dire :
Sur tout les évènements on change de toutes les textbox de ma page j'applique telle action.

Merci d'avance

**Freiya** · 31/05/2007, 15h37

Bon .....

J'ai vue des infos en utilisant les modules de classes, mais ça me semble un peu complexe ...et cela semble gourmand en resssources.

Je recherche plutot une fonction du genre get_event qui capterait n'imorte quel evenement de ma page.
Si l'évènement capté est un ON_CHANGE sur une textbox quelconque alors je fais telle action sur cette textbox.
Si c'est un évènement on_FOCUS je fais telle autre action ....

Help !

**ouskel'n'or** · 31/05/2007, 18h10

Mais non, ce n'est pas si compliqué
Pour tester le code ci-après, tu insères un userform dans un classeur tout neuf
Tu insères un module standard et un module de classe nommé classe1
Dans userform, tu mets des textbox 1, 2, 3, beaucoup
Ensuite, tu colles ça ou c'est dit que ça va

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
'*****************dans le module standard ***************
Option Explicit
 
Public Col1 As Collection
 
Sub Ouvrir()
    Load UserForm1
    UserForm1.Show
End Sub
'********************************************************
 
'********************** Dans l'UserForm *****************
 
Private Sub UserForm_Initialize()
     Dim Cl1 As Classe1
    Dim txtbox As Control
    Dim i As Integer, nb As Byte, ctr As Control
 
    Set Col1 = New Collection
    For Each ctr In Me.Controls
        If InStr(ctr.Name, "TextBox") = 1 Then _
            nb = nb + 1
    Next
    For i = 1 To nb
        Set txtbox = Me.Controls("TextBox" & i)
 
        With txtbox
            Set Cl1 = New Classe1
            Set Cl1.Objtxt = txtbox
            Col1.Add Cl1
        End With
    Next
End Sub
'********************************************************
 
'*********  Dans le module de classe "Classe1" **********
Option Explicit
Public WithEvents Objtxt As MSForms.TextBox
 
Private Sub Objtxt_Enter()
    MsgBox Objtxt.Name
End Sub
 
Private Sub Objtxt_Change()
    MsgBox Objtxt.Name
End Sub
 
Private Sub Objtxt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox Objtxt.Name
End Sub
 
'********************************************************

C'est fait ? Alors tu testes

Avec l'aide "passive" de SilkyRoad (passive parce qu'il le sait pas encore) grâce auquel j'ai enfin pu comprendre comment et par quels méandres il faut passer pour jouer avec les collections toutes bêtes de contrôles tout simples.
Plus un peu de lecture dans les FAQs et les discussions du forum

NB - Les événements enter et click ne sont pas interceptés

**Freiya** · 31/05/2007, 18h29

Merci Bien ouskel'n'or !

Mais je n'ai pas de Form ! je sais ce n'est pas bien mais je n'ai pas le choix !
Je suis dans une feuille et je ne suis pas sûre que ton code fonctionne.

Je suis obligé de multiplier mon code ?

Code :

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

1
2
3
4
 Private Sub TextBox_1_Change()
Dim s As String
TextBox_1.Value = UCase(TextBox_1.Value)
End Sub

Code :

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

1
2
3
4
 Private Sub TextBox_2_Change()
Dim s As String
TextBox_2.Value = UCase(TextBox_2.Value)
End Sub

..... X fois

**ouskel'n'or** · 31/05/2007, 18h39

Vous êtes désespérants, vous les gens

Je n'ai jamais fait ça pour une feuille de calculs, et ne le ferai jamais... Je ne sais donc pas si c'est faisable mais si j'avais des raisons de le faire (il faudra discuter longtemps pour me convaincre) je remplacerais l'userform pas la feuille de calculs puisque les contrôles lui sont alors liés.
Mais je te laisse le découvrir. Tu en éprouveras une immense satisfaction et le plaisir de nous offrir la solution

Bon courage
Je suis tes progrès

**Freiya** · 31/05/2007, 19h06

Bon et bien j'ai testéé 5 mnutes en remplacants
les Me.Controls par des ActiveSheet.OLEObjects mais ce n'est pas concluant

Et malheureusement je n'ai plus le luxe de tatonner

C'est une urgence pour demain.

Donc je vais multiplier mon code.
Je sais je suis désepérante.
Merci pour tout quand même.
J'ai quand même testé ton code et ça marche super avec une UserForm