Limite de l'utilisation d'un CommandButton_Click()

Version imprimable

Bonjour,
Une question probablement toute bête mais sur laquelle je bug depuis un moment.
Est il possible de créer une boucle ou autre avec des commandButton_Click?

Je m'explique....

Aujourd'hui, par exemple, je code de cette manière :
Code:

1 2 3 4 5 6 7 private sub commandbutton1_click() MsgBox "Vous avez cliqué sur le bouton 1" End sub Private sub commandbutton2_click() MsgBox "Vous avez cliqué sur le bouton 2" End sub
Imaginons que je me retrouve avec 30 boutons, le code est surchargé.....

Est il possible d'écrire sous une forme, du style :
Code:

1 2 3 4 5 6 7 Private sub userform_activate() For i = 1 to 30 if controls("commandbutton" & i).click then MsgBox "Vous avez cliqué sur le bouton" & i end if Next End sub
Merci d'avance

05/03/2017, 20h13
unparia

Bonjour
L'évènement activate et l'évènement click d'un bouton n'ont absolument aucun lien entre eux ...
Ce que tu veux faire ne peux donc se faire que par une instruction dans chaque évènement click de chaque bouton de commande *****
ou (mieux, mais alors à bûcher sérieusement) en utilisant un module de classe gérant les évènements d'une collection de ces contrôles.

EDIT ***** --->> J'en profite pour te rappeler que sur un userform (puisque c'est le cas), le contrôle cliqué est aussi l'objet ActiveControl
07/03/2017, 12h59
Aurélien13140

Bonjour, merci pour ta réponse. Dans mon exemple, j'ai mis le code dans un Activate mais effectivement, cela n'a aucun lien.

Cependant, je ne comprends pas ce que tu as voulu expliquer dans ton "EDIT".
07/03/2017, 13h07
unparia

Citation:

Cependant, je ne comprends pas ce que tu as voulu expliquer dans ton "EDIT".

Ah.
Et je suppose que tu t'es bien évidemment (ou non ?) précipité pour ouvrir au moins ton aide VBA à la rubrique ActiveControl, propriété, pour savoir ce dont il s'agissait !
...
Alors ? -->>
Si tu l'as fait --->> que n'as-tu pas compris ? Qu'as-tu testé sur les bases de cette simple lecture ?
Si tu ne l'as pas encore fait --->> qu'attends-tu (surtout si débutant) pour le faire ?
07/03/2017, 23h25
Aurélien13140

Démasqué !!! :P

Je lis tout ca et je reviens vers toi en fonction !! Merci ;)

EDIT : Bon bah je comprend rien.... je pense que je vise quelque chose qui est bien loin de mon niveau........

Ce n'est pas compliqué.
Regarde. On va prendre ton exemple
Mets 3 boutons de commande sur ton userform et ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() exemple End Sub Private Sub CommandButton2_Click() exemple End Sub Private Sub CommandButton3_Click() exemple End Sub Private Sub exemple() MsgBox "vous avez cliqué sur le bouton " & ActiveControl.Name End Sub
A partir de là, à toi de concevoir, en utilisant au besoin des Select case dans la procédure exemple ******

Il reste que l'utilisation d'une collection et d'un module de classe sont préférables (mais peut-être à éviter pour l'instant à ton niveau).

****** lorsque tu auras fait le 1er test, remplace la procédure exemple par celle-ci et regarde
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub exemple() With ActiveControl Select Case Right(.Name, 1) Case 1 .BackColor = RGB(255, 0, 0) Case 2 .Move .Left + 100 Case 3 For i = 1 To 10 .Move .Left + 10 For j = 1 To 10000 DoEvents Next .Move .Left - 10 For j = 1 To 10000 DoEvents Next Next .Caption = "coucou" End Select End With End Sub
Le reste dépend de ta créativité et/ou de tes besoins. A toi de "faire".

2 pièce(s) jointe(s)

Serieusement, tu devrais rédiger les exemples à la place des programmeurs de Office, on comprend largement plus facilement :D

J'ai parfaitement compris le principe de l'activecontrol du coup.
Néanmoins, je me rend compte qu'en voulant simplifier mon problème pour qu'il soit compréhensible et que ca ne fasse pas un monologue, la réponse que tu m'as donné ne me donne pas ma solution...... (même si il fort possible que je me serve très prochainement de l'activecontrol qui m'ouvre de nouvelles possiblilités ;))

Voici mon problème réel :
J'ai le tableau de données suivant :
Pièce jointe 251953
qui s'enrichit ligne après ligne grace à un userform. Ce tableau est dans une feuille excel qui est masquée, il ne me sert donc que de "stockage" de données.

Dans mon userform, j'ai la possiblité de consulter ce tableau via un ou plusieurs filtre :
Pièce jointe 251957

Lorsque je fais rechercher, un UF apparait avec une liste d'info correspondant à mes filtres.

On en arrive à mon problème.
Je veux que mes choix apparaissent les uns à la suite de autres, sans sauter de ligne, même si dans mon tableau de données, le filtre fait que plusieurs lignes séparent mes choixs.
Par exemple, prenons le cas du type "F" : sont concernés dans mon tableau les lignes 1,2 9 et 11.
Dans mon UF qui consultera ces 4 lignes, je veux qu'elles appraissent les une à la suite des autres.
J'y suis parvenu grace à ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub userform_activate() Dim Numlab As Long Numlab = 2 'Filtre par "FAST" If Sheets("parametres").Cells(46, 10).Value = "Fast" Then For i = 1 To 40 If Sheets("parametres").Cells(i + 7, 46) = "F" Then Controls("label" & Numlab).Caption = Sheets("parametres").Cells(i + 7, 53).Value Controls("label" & Numlab).Visible = True Controls("CommandButton" & Numlab).Visible = True Numlab = Numlab + 1 End If Next End If End sub
Ceci m'affichera le titre de chacune de mes lignes.
Par contre, en face de chacune de ces lignes, je veux faire apparaitre un bouton qui m'envoie sur un lien hyperlink correspondant à la colonne BC de mon tableau.

Voilà pourquoi je voulais intergrer dans mon "private sub activate ()" mon état "click" de mes boutons pour pouvoir leur associer à chacun un lien hyperlink en fonction de mes lignes filtrées dans mon tableau

Houlà, j'arrive à m'embrouiller dans mes explications, je n'imagine même pas vous qui me lisez 8O

Une idée?

Citation:

Houlà, j'arrive à m'embrouiller dans mes explications, je n'imagine même pas vous qui me lisez

En effet. ce que tu montres (sans que l'on sache qui est baptisé quoi) ne me permet pas d'y voir vraiment clair

Citation:

Dans mon UF qui consultera ces 4 lignes, je veux qu'elles appraissent les une à la suite des autres.

Qu'elles "apparaissent" où ?

Et par ailleurs, ce code :
Code:

1 2 3 4 5 6 7 8 For i = 1 To 40 If Sheets("parametres").Cells(i + 7, 46) = "F" Then Controls("label" & Numlab).Caption = Sheets("parametres").Cells(i + 7, 53).Value Controls("label" & Numlab).Visible = True Controls("CommandButton" & Numlab).Visible = True Numlab = Numlab + 1 End If Next
montre que tu as sur ton userform au moins :
- 40 contrôles Label nommés Label1, Label2 ... Label 40
- 40 contrôles CommandButton nommés CommandButton1, CommandButton2, ..... CommandButton40

Tu devrais probablement repenser la conception de tout cela. Un si grand nombre de contrôles présents sur un userform n'est pas de nature à rassurer et je suis quasiment certain de ce que ce que tu cherches à faire peut l'être de manière plus technique et efficace, mais :
1) il faudrait connaître tous les tenants et aboutissants exacts et parfaitement exposés de ta démarche
2) cela n'aurait plus rien à vraiment voir avec le sujet de la présente discussion

10/03/2017, 09h03
Aurélien13140

Effectivement, je conçois qu'il doit forcément exister une solution plus technique que cette "magouille" de codage....
Je débute en programmation et suis loin à 2000 lieux de connaitre certaines solutions plus abouties.
J'ai besoin de travailler sur un fichier rapidement mis en oeuvre, malheureusement... Comme tu le signale, la solution n'est donc pas à répertorier dans ce sujet.
Merci quand même 👍

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim CmBu(40) As New Classe1
Private Sub UserForm_Initialize()
Dim Numlab As Integer: Numlab = 2
With Sheets("parametres")
 If .Cells(46, 10).Value = "Fast" Then
        For i = 1 To 40
            Controls("label" & Numlab + i - 1).Caption = .Cells(6, 53).Offset(i).Value
            Controls("label" & Numlab + i - 1).Visible = .Cells(6, 46).Offset(i).Value = "F"
            Controls("CommandButton" & Numlab + i - 1).Visible = .Cells(6, 46).Offset(i).Value = "F"
            Set CmBu(i).Bouton = Controls("CommandButton" & Numlab + i - 1)
        Next
    End If
End With
End Sub

Code:

1
2
3
4
Public WithEvents Bouton As CommandButton
Private Sub Bouton_click()
    MsgBox "Vous avez cliqué sur " & Bouton.Name
End Sub

29/05/2017, 09h29
Aurélien13140

Bonjour,
Ayant acquis de nouvelles connaissances depuis mon problème initial, je m'apercois que tu avais parfaitement raison Unparia en disant qu'il existait probablement une solution technique beaucoup plus simple à metre en oeuvre que mon amxi Userform composé de 8000 activecontrols, lol.

Et cette solution etait tout simplement...... la Listbox....

Quoi qu'il en soit, merci de vous être interessé à mon problème... Ceci m'a permis à ce jour de mettre en pratique de nouvelles connaissances!
:D

Résolu