Problème déclenchement Evènement sur CommandButton

**ericdev67** · 24/10/2014, 22h14

Bonjour,

J'ai un Userform contenant 50 CommandButton. Les CommandButton prennent une couleur suivant l'évènement : j'ai un planning, 50 bureaux, j'ai fait un Userform où j'ai mis 50 commandbutton représentant les bureaux, si les bureaux sont occupés, ils apparaissent en rouge, s'ils sont disponibles, ils sont en vert.

J'ai donc le code me permettant de boucler sur les bureaux et de les mettre en couleur suivant l'état (dispo ou non) :

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
Private Sub UserForm_Initialize()
Dim MaPlage As Range
Dim DerligR2 As Integer
Dim ligne As Long
 
 
 
If Modification Then
        'Déterminer la première ligne libre du tableau
        ligne = 10 'ActiveCell.Row
 
        'Créer la nouvelle ligne d'enregistrement
        If Cells(ligne, 6) = "" Then
 
 
     With Sheets("Planning")
    DerligR2 = .Range("F" & .Rows.Count).End(xlUp).Row
    Set MaPlage = .Range(.Cells(1, 6), .Cells(DerligR2, 6))
    End With
 
   Dim ctrl As Control
 
   For Each ctrl In Me.Controls
 
            With MaPlage
                Set c = .Find(ctrl.Caption, LookIn:=xlValues, lookat:=xlWhole)
 
                If c Is Nothing Then
                    ctrl.BackColor = &HFF00&
 
                    Else
                    ctrl.BackColor = &HFF&
                End If
            End With
    Next
 
        End If
    End If

Jusque là, tout fonctionne, mais je souhaiterais cliquer sur le commandbutton d'un bureau disponible (=donc identifié en vert), afin de l'affecter, j'ai donc mis :

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
Private Sub CommandButton1_Click()
Dim MaPlage As Range
Dim DerligR2 As Integer
 
 
 
     With Sheets("Planning")
    DerligR2 = .Range("F" & .Rows.Count).End(xlUp).Row
    Set MaPlage = .Range(.Cells(1, 6), .Cells(DerligR2, 6))
    End With
 
 
            With MaPlage
                Set c = .Find(CommandButton1.Caption, LookIn:=xlValues, lookat:=xlWhole)
 
                If c Is Nothing Then
                    CommandButton1.BackColor = &HFF00&
 
                    Else
                    CommandButton1.BackColor = &HFF&
                End If
            End With
 
 
End Sub

Mais cela ne fonctionne pas et je comprends pas pourquoi….
J'ai appelé l'Userform par :

Code :

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

1
2
3
4
Public Sub AfficheUSF()
Modification = False
UserForm1.Show
End Sub

et dans la feuille "Planning", j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Cells(ActiveCell.Row, 6) = "" Then
        Cancel = True
        'Modification d'une ligne
        Modification = True
 
      UserForm1.Show
 
    End If
 
 
End Sub

Mais idem, lorsque je clique sur une cellule de la colonne 6, cela ne déclenche pas l'USERFORM……

Dans la colonne 6, se trouvent les bureaux déjà utilisés…

Merci de m'indiquer ce qui ne va pas….et ou de m'expliquer pourquoi cela ne fonctionne pas…..

AU CAS OU, je mets le fichier en PJ….avec juste l'évènement Userform1 : lors de l'ouverture, identification des bureaux dispo en vert et en rouge, les bureaux déjà pris…..

merci pour votre aide,

A+

Eric

**Theze** · 25/10/2014, 10h14

Bonjour,

Une piste avec un module de classe afin de ne pas avoir 50 fois la même proc évènementielle (contenant 50 CommandButton). Je ne sais pas trop comment tu veux gérer l'affectation des bureaux à tes différents collègues mais ça va déjà te donner une direction. Je te re-poste ton classeur et je mets le code ici. Dans le module de la Form :

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
Dim TblBtn() As New Classe1
 
Private Sub UserForm_Initialize()
 
    Dim Ctrl As Control
    Dim MaPlage As Range
    Dim Cel As Range
    Dim I As Integer
 
    With Sheets("Planning")
 
        Set MaPlage = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp))
 
    End With
 
    For Each Ctrl In Me.Controls
 
        I = I + 1
        ReDim Preserve TblBtn(1 To I)
        Set TblBtn(I).Bouton = Ctrl
 
        Set Cel = MaPlage.Find(Ctrl.Caption, , xlValues, xlWhole)
 
        Ctrl.BackColor = IIf(Cel Is Nothing, &HFF00&, &HFF&)
 
    Next
 
End Sub

Dans le module standard, c'est ici qu'il va falloir que tu regarde :

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
Public Sub Affecter(Btn As MSForms.CommandButton)
 
    Dim MaPlage As Range
    Dim Cel As Range
 
    With Sheets("Planning")
 
        Set Cel = .Cells(.Rows.Count, 6).End(xlUp).Offset(1, 0)
 
        If Cel.Row < 4 Then Set Cel = Range("F4")
 
        Set MaPlage = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp))
 
    End With
 
    If Btn.BackColor = &HFF00& Then 'si dispo (vert)
 
        Cel.Value = Btn.Caption
        Btn.BackColor = &HFF&
 
    Else
 
        Set Cel = MaPlage.Find(Btn.Caption, , xlValues, xlWhole)
 
        If Not Cel Is Nothing Then
 
            Cel.Value = ""
            Btn.BackColor = &HFF00&
 
        End If
 
    End If
 
End Sub

Et dans le module de classe :

Code :

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

1
2
3
4
5
6
7
Public WithEvents Bouton As MSForms.CommandButton
 
Private Sub Bouton_Click()
 
    Affecter Bouton
 
End Sub

Hervé.

**ericdev67** · 25/10/2014, 10h34

Merci Theze,

Merci pour ton aide, par contre 2 petits soucis :

Le premier : j'ai vu que lorsque l'on sélectionnait un bureau dans l'Userform, lorsqu'il s'inscrivait dans la cellule, le format changeait : par exemple , dans l'Userform ( "1.01" ) et dans la cellule ("1,01")….

Le deuxième et qui apporte une réponse à ta question : en fait, mon but est que lorsque je clique sur la cellule du "collègue10" (F13), l'Userform s'ouvre, montre en couleur verte les bureaux dispo, et donc, si je clique sur un des bureaux, il s'inscrit dans la case F13 (=collègue 10), ensuite je vais sur le "collègue20" (n'ayant pas de bureaux attitré), je clique etc, etc…

Et je ne connaissais pas les "modules de classes", je te remercie pour l'info, et vais faire 2-3 recherches de tuto pour comprendre ces "modules de classes" et leurs utilisation…….

Merci pour ton aide,

A+
Eric

Invité · 25/10/2014, 10h45

Bonjour,
pourqoui ne pas avoir utilisé des checkbox tu peux par ses propriétés lui donner la forme d'un bouton et toujour dans les propriétés lui dir rouge quand il est true et vert quamd il est false.

Je sais que 50 controles à modifier c'est galaire mais...

**ericdev67** · 25/10/2014, 10h58

Merci rdurupt,

Pour l'instant (sentant que je risquais de devoir changer 2-3 trucs…), je n'ai pas fait les 50 commandbutton, donc c'est toujours possible….

Donc par rapport à la proposition de Theze, il faudrait que je change le code en mettant checkbox à la place de commandbutton ? par contre, je n'ai pas trouvé la propriété pour remplacer la checkbox par un bouton…(je n'ai vu que la "specialeffect", mais cela met juste le "carré" en gras…)

Et si oui, cerise sur le gâteau : serait il possible de mettre en dessous du bouton le nom de l'activité ? ainsi, je pourrais voir lorsqu'un bouton est rouge (donc bureau pris), le nom de l'activité exercée dans ce bureau ? je m'explique : certains bureaux sont dédiés à la réception, d'autres sont pour des activités administratives. Donc si un bureau de réception est utilisé par un collègue qui va faire de l'administratif (et naturellement que je n'ai plus assez de bureaux de réception), je pourrai "voir" que je peux changer le bureau et mettre le collègue dans un bureau "administratif" ?

Dans mon fichier, en colonne E, j'avais mis un alerte : si le bureau de réception était utilisé pour faire de l'administratif, la cellule devenait rouge (=1 trait) me permettant de voir où je pouvais opérer des changements lorsque j'avais un problème de bureau (=plus de bureaux de réception..)

Mais bon, comme je le disais, ce serait THE cerise sur le gâteau…

Merci pour ton aide,

A+
Eric

Invité · 25/10/2014, 11h21

Oui tout ça c'est posible et en plus tu peux le metre directement sur le bouton!

Vue que je suis dans les transport, dificile de te donner un exemple.

Mon poste précédent, s'adressait tout autant a toi qu'au développeur pouvant t'aider a metre en oeuvre cette solution!

**ericdev67** · 25/10/2014, 11h37

Merci rdurupt,

Alors là, ce serait vraiment tip-top….car, tu l'as compris, l'USERFORM représenterait le plan du site, donc, à force, les bureaux, on les connait…donc, si effectivement on pouvait mettre le nom de l'activité à la place du N° de bureau, tout en faisant que lorsque je clique dessus, cela inscrive le N° de bureau dans la cellule du collègue, ce serait vraiment top….un truc dans le genre (cf photo jointe)

Mais là, suis vraiment dépassé….et aurait besoin d'un sacré coup de main….

merci,

A+

Invité · 25/10/2014, 11h54

J'ai vue dans les different poste qq1 te proposer un module de classe gerant les evenement

la le principe est le meme sauf que on utilise l'evenement change et que on passe lors lors de l'effectation (set) l'address de la celulle cible dans le tag du controle me.check1.tag=cells(1,2).address

**ericdev67** · 25/10/2014, 11h57

Merci rdurupt,

mais c'est dans ces moments là, que je vois que j'ai encore beaucoup de choses à apprendre…..car je n'ai pas compris ce que tu voulais dire…

Merci,

A+

Invité · 25/10/2014, 13h16

Chaque control dispose de la propriété tag, tu peux l'utiliser comme un varable.

Pour ecrire la valeur dans la cellule cible dans le module de classe tu définie l'evenement change et utilise le tag du controle pour resseigner la celulle.

Code module de classe :

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

1
2
3
private sub bt_change()
range(bt.tag)=bt.value
end sub

je m'adresse toujours a toi et au autre je suis toujours dans l'impossibité de t'aider plus

1) on définie un controle modèle non visible
2)on instencie 50 nouveau controle sur la base de ce modele
A)on les positionne dans le UserForm
B)on modifie le caption du controle pour aficher le site et/oula sale
C)on lui donne l'adress de la cellule cible au tag
D)on la rend visible
E) on l'affecte a une nouvelle instence de la classe (set)

**ericdev67** · 25/10/2014, 14h06

Merci rdurupt,

Je suis désolé, je vois que tu essayes de m'expliquer, mais…..je ne suis vraiment pas à niveau…..et je ne comprends pas ce que je dois faire et/ou comment procéder, même si tu as donné le raisonnement logique….

j'ai compris 2-3 trucs avec VBA, mais là….suis vraiment largué…..

Merci pour ton aide, je pense avoir compris la logique, mais pour la mise en place….il me manque vraiment des compétences….donc, toute aide serait la bienvenue….

Merci,
A+
Eric

**Theze** · 25/10/2014, 14h37

Re,

Le premier : j'ai vu que lorsque l'on sélectionnait un bureau dans l'Userform, lorsqu'il s'inscrivait dans la cellule, le format changeait : par exemple , dans l'Userform ( "1.01" ) et dans la cellule ("1,01")….

Il te faut mettre la colonne au format "Texte" !

Le deuxième et qui apporte une réponse à ta question : en fait, mon but est que lorsque je clique sur la cellule du "collègue10" (F13), l'Userform s'ouvre, montre en couleur verte les bureaux dispo, et donc, si je clique sur un des bureaux, il s'inscrit dans la case F13 (=collègue 10), ensuite je vais sur le "collègue20" (n'ayant pas de bureaux attitré), je clique etc, etc…

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
 
Public Sub Affecter(Btn As MSForms.CommandButton)
 
    Dim MaPlage As Range
    Dim Cel As Range
 
    With Sheets("Planning")
 
        Set MaPlage = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp))
 
    End With
 
    Set Cel = ActiveCell
 
    If Btn.BackColor = &HFF00& Then 'si dispo (vert)
 
        Cel.Value = Btn.Caption
        Btn.BackColor = &HFF&
 
    Else
 
        Set Cel = MaPlage.Find(Btn.Caption, , xlValues, xlWhole)
 
        If Not Cel Is Nothing Then
 
            Cel.Value = ""
            Btn.BackColor = &HFF00&
 
        End If
 
    End If
 
End Sub

Pour ouvrir automatiquement la Form, tu peux utiliser la proc évènementielle "Worksheet_BeforeDoubleClick" de la feuille "Plannig". 0 mettre dans le module de la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Select Case Target.Column
 
        Case 6, 11, 16, 21, 26, 29 'etc...
 
            UserForm1.Show
            Cancel = True
 
    End Select
 
End Sub

Hervé.

**Theze** · 25/10/2014, 14h43

Re,

On peut t'aider à développer ton projet mais il faut tout de même que tu te fixe un but et une marche à suivre !
Tu veux quoi finalement, des CheckBox, des CommandButton ou autres ?
Comment sais-tu quel bouton ou checkbox est administratif au réception ?
Si tu en connais l'ordre, il est possible d'utiliser un tableau (Array) avec le Caption que devra avoir chaque bouton (ou autres) et ensuite de le créer de façon à ce qu'il correspondent à ce que tu souhaite.

Hervé.

Voici ton classeur version 2 avec des cases à cocher et une création dynamique de ces dernières. Ne t'inquiète pas si l'UserFform est vide de contrôles !

Hervé.

**ericdev67** · 25/10/2014, 18h45

Super Merci Theze !!

En fait, j'étais parti sur des commandbutton, mais comme rdurupt m'a indiqué plus de possibilités avec les checkbox, je regardais dans cette direction…..En fait, j'ai juste besoin de visualiser les bureaux lorsque j'ouvre l'USERFORM, de les choisir, etc..Mais il est vrai que le fait de pouvoir mettre dans le chekbox le nom de l'activité et la couleur, c'était quelque chose auquel je n'avait pas pensé…car à mes yeux inimaginable….d'où ce changement de but initial…mais l'esprit est toujours là, mais c'est clair que si cela est possible, ce serait top génial…

Oui, les bureaux ont toujours la même fonction : réception ou administratif. Mais dans la réception, il y a des sous activités : réception sur flux, réception sur RDV, réception entretien, etc….idem pour l'administratif…donc par exemple, le bureau 1.01 est un bureau de réception, mais l'activité "réception" peut changer de nom.

Dans la feuille "Bureaux", tu peux voir les affectations des bureaux.

C'est pourquoi, l'idée de faire un array est bonne, mais ne correspondrait pas à ce que je cherchais à faire : je voulais "dessiner" le plan d'implantation du site dans l'Userform et visualiser les bureaux…c'était d'ailleurs la raison pour laquelle j'étais parti sur des commandbutton (cf PJ, j'ai mis dans ton fichier le Userform2 correspondant à mon implantation, mais n'ai pas encore renommé tous les bureaux…mais cela donne l'idée), car il me semblait plus visuel….

Merci pour ton aide,

Merci,
A+
Eric

Invité · 25/10/2014, 18h54

génial Theze,
beau travail, j'ai repris en l'état ton fichier et j'ai replacé les checkbox par des ToggleButton

**ericdev67** · 25/10/2014, 19h09

Effectivement, c'est absolument génial !!! cela donne presqu'exactement le résultat final que je souhaitais….

, sauf pour le visuel : cf image : en effet, je ne "vois" pas tous les bureaux et ne peux descendre sur les bureaux 2.05 à 3.07 par exemple.

Nom : Sans titre4.JPG
Affichages : 351
Taille : 188,2 Ko

Nom : Sans titre4.JPG
Affichages : 351
Taille : 188,2 Ko

Pour la cerise sur le gâteau, il faudrait juste qu'en terme visuel, je puisse avoir l'Userform qui ressemble à l'Userform2 de ma réponse à Theze, (=plutôt avoir des checkbox ou togglebutton, car visuellement je peux reproduire l'implantation de mon site), et là, ce serait top du top !!!!!!!!!! l'image que je t'ai posté en post 8…

Merci,

A+
Eric

Invité · 25/10/2014, 21h36

Regard le fichier joint.

**ericdev67** · 25/10/2014, 21h48

Merci rdurupt,

Tu as résolu le problème du format de l'Userform, où je peux voir tous les bureaux, merci

Mais juste pour la cerise sur le gâteau : est-il possible de :

reprendre le format de l'implantation du site (cf mon Userform2 de la PJ) et de mettre dans la case (togglebutton, suite à ta proposition) le nom de l'activité qui est dans la colonne D (j'ai mis dans la feuille "activités", toutes les activités + leur affectation : réception ou administratif ou responsable qui seront affectées aux collègues)….

Merci pour ton aide,

A+
Eric

**ericdev67** · 26/10/2014, 20h33

Merci,

Je viens de faire 2-3 essais visuels, mais finalement, l'implantation de tous les bureaux devient un peu illisible (=mon Userform2)…le Userform de rdurupt est plus lisible (et un très grand merci à Theze, car son code est vraiment top !!!).

Par contre, en admettant que je rentre le Array avec tous les bureaux, est-il possible d'avoir 1 colonne pour les bureaux "1.", 1 colonne pour les "2.", idem pour les 3,4,5 (qui représentent les étages) ?

Et si oui, est-il possible de mettre le nom de l'activité qui sera en colonne D ?

car j'ai oublié de préciser cette information qui a son importance : en fait je rentre le planning des activités et ensuite, je cherche les bureaux où mettre les collègues…c'est pourquoi le planning est d'abord rempli avec les activités des collègues, et seulement ensuite, je les positionne dans les bureaux disponibles…..

Je comprends mieux la remarque de Theze et son questionnement…idem pour rdurupt….mais c'est vrai que la prochaine fois j'appliquerai à la lettre la devise de rdurupt….

Donc merci, de me dire si c'est possible et comment ?

Merci pour votre aide,

A+
Eric