Automatiser déclaration MouseMove

Version imprimable

Bonjour, j'ai encore besoin de votre aide.

J'ai un UserForm qui contient un tableau (différentes TextBox alignées)
Dans mon exemple j'ai 4 lignes et 3 colonnes, la première ligne servant d'entetes

Les différentes TextBox se nomment:
tb_p_0_z_1 , tb_p_0_z_2 , tb_p_0_z_3
tb_p_1_z_1 , tb_p_1_z_2 , tb_p_1_z_3
tb_p_2_z_1 , tb_p_2_z_2 , tb_p_2_z_3
tb_p_3_z_1 , tb_p_3_z_2 , tb_p_3_z_3

L'objectif est, au survol d'une TextBox, changer la couleur de fond de la TextBox correspondant à son entete.
Dans mon exemple j'y parviens avec le code suivant:

Code:

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
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_1.BackColor = RGB(255, 255, 255)
    tb_p_0_z_2.BackColor = RGB(255, 255, 255)
    tb_p_0_z_3.BackColor = RGB(255, 255, 255)
End Sub
 
Private Sub tb_p_1_z_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_1.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_1_z_2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_2.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_1_z_3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_3.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_2_z_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_1.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_2_z_2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_2.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_2_z_3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_3.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_3_z_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_1.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_3_z_2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_2.BackColor = RGB(225, 225, 225)
End Sub
Private Sub tb_p_3_z_3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tb_p_0_z_3.BackColor = RGB(225, 225, 225)
End Sub

Le problème, c'est que le nombre de colonnes est continuellement amené à grandir, j'en ai plus de 20 à présent, pour une dizaine de lignes... Je cherche à automatiser ces déclarations, mais je ne comprends pas comment faire... Quelqu'un aurait une piste s'il vous plait? :D

21/03/2019, 18h48
unparia

Bonjour

Citation:

Le problème, c'est que le nombre de colonnes est continuellement amené à grandir, j'en ai plus de 20 à présent, pour une dizaine de lignes...

donne à penser que tu ferais bien de remettre en cause la conception. Tu comptes aller ainsi jusqu'à quel nombre de textboxes ? ;)

Mais si tu tiens vraiment à la fois à une telle interface et à un seul évènement mousemove, il va te falloir passer par un module de classe (le moteur de recherches de ce forum te permettra de trouver ce qu'il te faut apprendre à cette fin).
21/03/2019, 19h21
julietindiamike

Merci pour cette réponse rapide! ;)

Effectivement, ca peut paraitre mal pensé, mais c'est pour effectuer une tache provisoire (quelques mois) et ca ne devrait pas exéder 35 colonnes j'imagine. Quant au nombre de lignes, il ne dépasse pas 10, car c'est 10 max affiché par page. :)

J'ai déjà survolé des tutoriaux de modules de classes, mais ca me dépasse, sans vouloir abuser, mais aurais tu un petit exemple que je pourrai facilement transposer et comprendre? :oops:
Inutile de préciser que je débute, c'est encore un peu abstrait, je n'arrive pas à voir comment un module de classe peut me simplifier, comment créer différentes procédures et/ou événements :S

1 pièce(s) jointe(s)

bonsoir

un petit exemple comme ca vite fait

code userform

Code:

1
2
3
4
5
 
Dim CL As New overtextbox
Private Sub UserForm_Activate()
CL.init Me
End Sub

code de la classe portant le nom de overtextbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Public WithEvents Txt As msforms.TextBox
Public WithEvents usf As UserForm
Dim cls() As New overtextbox
Public uf As Object
Sub init(usf)
    Dim ctrl As msforms.TextBox, i&
    For Each ctrl In usf.Controls
        If TypeName(ctrl) = "TextBox" And Left(ctrl.Name, 3) <> "col" Then
            i = i + 1: ReDim Preserve cls(0 To i): Set cls(i).Txt = ctrl: Set cls(i).usf = usf: Set cls(i).uf = usf
        End If
    Next
End Sub
Private Sub Txt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If uf.Tag <> "" And Txt.Name <> uf.Tag Then uf.Controls(uf.Tag).BackColor = vbWhite
    If Txt.BackColor = vbWhite Then Txt.BackColor = &HFF8080: uf.Tag = Txt.Name
End Sub

Pièce jointe 460050

mais comme dit unparia jusqu'a combien de textbox tu va aller sachant que selon les control un userform a une limite du nombre de controls possibles;)

21/03/2019, 20h04
julietindiamike

8O

Comme ca vite fait... Et moi qui vais mettre quelques heures à bien comprendre... :lol:
Un tout grand merci, ca me confirme qu'au final ca sera plus compact que de continuer des déclarations une par une.
Par contre, je trouve qu'en lecture ca me parait toujours plus compliqué, par rapport aux manipulations de TextBox Label et CommandButton avec lesquelles je commencais à m'habituer :oops:

Oui la tableau est assez grand, mais les TextBox sont petites, il s'agit juste de mettre "X" "V" ou "/", d'ou l'intéret de créer un hover sur l'header pour ne pas se tromper de colonne ;)

Encore merci, je ne mets pas encore résolu, le temps d'essayer et d'adapter ;)
21/03/2019, 22h15
patricktoulon

re

re
quand je parle de limite de controls possible c'est du nombre de controls que je parle qu'importe la taille 360 je crois

conclusion 360/4 colonnes ca fait 90 lignes de 4 textboxs