Discussion :

[Liiinz]

Bonjour à tous,

tout nouveau sur le vba mais avec des bases de développeur java derrière , j'ai un petit soucis sur la récupération de l'evenement "click" sur les boutons que je créer dynamiquement sur mon userForm. ( J'aimerai qu'a chaque click sur chaque bouton , sa couleur change , 3 couleurs possible).

Quand je créer mes boutons manuellement il n'y a pas de soucis j'obtiens bien ce que je veux , mais lorsque je les créer dynamiquement , impossible de récuperer le focus sur le click.
Voici comment je créer mes boutons :

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
53
54
55
56
57
 
Private Sub UserForm_Initialize()
    Dim Color As ColorFormat
    Dim ObjCell As Range
    Dim ActWB As Workbook
    Dim I As Integer
    Dim Bouton1 As Control
 
    Dim yy As Integer
    yy = 20
 
    On Error Resume Next
 
 
 
 For Each ObjCell In Range("G175:G179").Cells
    Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1")
 
    With Bouton1
        .Name = ObjCell.Value
        .Caption = ObjCell.Value
        .Left = 20
        .Top = yy
        .Width = 50
        .Height = 18
        yy = yy + 25
    End With
    Next
 
      With UserForm1
        .Caption = "Validation RA"
        .StartUpPosition = 2
        .Height = yy + 40
        .Width = 30
    End With
 
     Set Color = ThisWorkbook.Colors(1)
    If Err.Number = 0 Then
        UserForm1.Controls.Item(0).BackColor = Split(Color, """")(1)
    End If
 
     Set Color = ThisWorkbook.Colors(2)
    If Err.Number = 0 Then
        UserForm1.Controls.Item(1).BackColor = Split(Color, """")(1)
    End If
     Set Color = ThisWorkbook.Colors(3)
    If Err.Number = 0 Then
        UserForm1.Controls.Item(2).BackColor = Split(Color, """")(1)
    End If
     Set Color = ThisWorkbook.Colors(4)
    If Err.Number = 0 Then
        UserForm1.Controls.Item(3).BackColor = Split(Color, """")(1)
    End If
     Set Color = ThisWorkbook.Colors(5)
    If Err.Number = 0 Then
        UserForm1.Controls.Item(4).BackColor = Split(Color, """")(1)
    End If

J'ai récupéré cette partie en piochant à gauche à droite sur internet. La deuxième partie me sert pour les changements de couleurs dont je veux garder l'état à la réouverture du fichier. ( création de variables cachés ).

Voici un exemple d'une action sur le click d'un des boutons ( j'en ai donc créée autant qu'il y a de boutons )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub AAL_Click()
If UserForm1.Controls.Item(0).BackColor = &H8000000F Then
    UserForm1.Controls.Item(0).BackColor = RGB(0, 0, 255)
ElseIf AAL.BackColor = RGB(0, 0, 255) Then
    UserForm1.Controls.Item(0).BackColor = RGB(0, 255, 0)
ElseIf AAL.BackColor = RGB(0, 255, 0) Then
    UserForm1.Controls.Item(0).BackColor = &H8000000F
    Else
   UserForm1.Controls.Item(0).BackColor = &H8000000F
End If
End Sub

AAL represente le nom de notre bouton ( objCell.Value) , mais à l’exécution je ne rentre jamais dans cette fonction.
Je galère depuis quelques jours et je ne trouve pas de solution que je comprenne ou qui soit fonctionnelle. Si quelqu'un peut m'aider.

J'ai de plus une autre question : est il possible de reset la macro chaque lundi midi par exemple? j'aimerai que les couleurs se réinitialise par defaut chaque lundi midi.


C'est pourquoi j'en appelle à vous et vous remercie par avance.

[unparia]

Bonjour
Il te faut constituer une collection de ces contrôles ajoutés dynamiquement et construire une classe pour y gérer les évènements du type des contrôles de cette collection.
Mais tout cela n'est pas du Excel (la présente section), mais du VBA (autre section de ce forum).

[Liiinz]

Merci pour la réponse, je suis désolé si je me suis trompé de section, est ce que j'ai la possibilité de la changer tout seul ou je laisse faire un modo ? Merci et encore désolé

C'est ce que j'ai fait ce matin et le comportement à l'aire plus que correct. Le dernier petit problème que j'ai , c'est la sauvegarde de la couleur par défaut. Lorsque je change les couleurs de mes boutons je n'ai pas de soucis à la fermeture/réouverture, j'ai bien ce que j'avais défini, sauf pour la couleur par défaut des boutons, à la réouverture ou au relancement de la macro, ils deviennent noirs et je dois cliquer une fois pour récupérer la couleur par defaut.

Voici donc la solution trouvé

Mon UserForm

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
53
54
Option Explicit
 
Private Sub UserForm_Initialize()
    Dim Color As ColorFormat
    Dim ObjCell As Range
    Dim ActWB As Workbook
 
    Dim Bouton1 As Control
 
    Dim Cl As Classe1
    Set Collect = New Collection
 
    Dim yy As Integer
    yy = 20
 
    On Error Resume Next
 
    For Each ObjCell In Range("G175:G190").Cells
    Set Bouton1 = UserForm1.Controls.Add("Forms.CommandButton.1")
 
    With Bouton1
        .Name = ObjCell.Value
        .Caption = ObjCell.Value
        .Left = 20
        .Top = yy
        .Width = 100
        .Height = 30
        yy = yy + 40
        'ajout de l'objet dans la classe
        Set Cl = New Classe1
        Set Cl.Bouton = Bouton1
        Collect.Add Cl
    End With
    Next
 
      With UserForm1
        .Caption = "Validation RA"
        .StartUpPosition = 2
        .Height = yy + 40
        .Width = 155
    End With
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
    'inscrit les valeurs dans des Noms cachés
    Dim Ctrl As Control
    Dim I As Integer
    I = 0
    For Each Ctrl In UserForm1.Controls
       ThisWorkbook.Colors(I + 1) = UserForm1.Controls.Item(I).BackColor
       I = I + 1
    Next
End Sub

Module de classe :

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
Option Explicit
 
Public WithEvents Bouton As MSForms.CommandButton
 
'exemple pour gerer l'evenement eclic sur les objets type CheckBox
Private Sub Bouton_Click()
 
Dim Ctrl As Control
For Each Ctrl In UserForm1.Controls
    If Ctrl.Name = Bouton.Caption Then
        If Bouton.BackColor = &H8000000F Then
             Bouton.BackColor = RGB(0, 0, 255)
        ElseIf Bouton.BackColor = RGB(0, 0, 255) Then
             Bouton.BackColor = RGB(0, 255, 0)
        ElseIf Bouton.BackColor = RGB(0, 255, 0) Then
             Bouton.BackColor = &H8000000F
            Else
            Bouton.BackColor = &H8000000F
        End If
    End If
Next
 
End Sub
'--------------------------------------

Module d'autoOpen

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
Option Explicit
 
Sub auto_open()
 Dim I As Integer
 Dim Ctrl As Control
 I = 0
 
 For Each Ctrl In UserForm1.Controls
    If Not (ThisWorkbook.Colors(I + 1) = &H8000000F) Then
        UserForm1.Controls.Item(I).BackColor = ThisWorkbook.Colors(I + 1)
    End If
    I = I + 1
Next
UserForm1.Show
 
End Sub

C'est possiblement codé à l'arrache mais tout à l'aire dynamique comme ça , les personnes allant l'utilisé n'auront qu'a changer la plage de cellule à inclure. Mais cette couleur noire à la place de la couleur par défaut me pose vraiment soucis.

[patricktoulon]

Bonjour je n'ai pas tout regardé mais pour ta couleur c'est peut etre un peu normal schant que "ThisWorkbook.Colors" contient 56 couleur si tu a plus de 56 cells(bouton) alors ca bug c'est normal

si tes couleur ne sont pas précises tu peut utiliser (rgb) avec rnd pour chaque partie tu aura certainement plus de choix de couleurs

edit:
après relecture de ton dernier post je pense que tu souhaite avoir un effet mouse over sur tes boutons

et bien cherche dans les contrib et meme ce forum avec ce qui est en gras tu trouvera largement ton bonheur

ou tout simplement dans les contrib avec mon pseudo