Discussion :

[Ichigo_Mick]

Bonjour à toutes et à tous,

Je vais essayer d'expliquer simplement mon problème :
J'ai un userform contenant beaucoup de commandbutton (entre 50 et 100)
Je n'ai pas renommé mes boutons (caption = commandbutton1 : copie du même bouton) (name = commandbutton1, commandbutton2 ...)

Je voudrais faire un code simple et le plus court possible pour :
(je sais que le bout de code que je propose ne fonctionne pas mais c'est la "meilleure image" pour expliquer ce que je veux faire)

Code :

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

1
2
3
4
5
6
7
 
For i = 1 to 100
 
Private Sub CommandButton "i"_Click()
sheets("Feuil2").cells(lfin,1) = sheets("Feuil1").cells(i,1).value
 
Next

J'ai vu des choses sur le forum par "collection" pour par exemple changer la couleur de tous les commandbutton (ou autre type controle) mais je n'ai rien trouvé sur un code qui boucle sur tous les commandbutton et qui récupère l'indice du commandbutton et le stocke dans une variable.

Si besoin je peux fournir un bout de code et un fichier associé pour expliquer / détailler ma demande.

Merci d'avance

Mick

[casefayere]

Pour boucler sur les controles => http://silkyroad.developpez.com/VBA/...UserForm/#LI-B

.....qui récupère l'indice du commandbutton et le stocke dans une variable.

, qu'est-ce que l'indice ?

Bonne soirée, perso, je pars pour 10 jours mais j'espère que tu auras d'autres réponses

[Ichigo_Mick]

Merci pour la réponse, je vais voir ce que je peux en faire, mais je ne suis pas sur de pouvoir l'exploiter pour mon problème.
Quand je veux dire "récupérer" l'indice du commandbutton, en fait si je clique sur commandbutton1 je voudrais stocker en variable 1, si je clique sur commandbutton2, je veux récupérer 2 en variable.

En code il s'agirait d'optimiser :

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
 
Private Sub CommandButton1_Click()
Dim lfin As Integer
 
'Sélection de la dernière cellule vide
lfin = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
 
Cells(lfin, 1) = Sheets("Feuill2").Cells(1, 1).Value
End Sub
 
Private Sub CommandButton2_Click()
Dim lfin As Integer
 
'Sélection de la dernière cellule vide
lfin = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
 
Cells(lfin, 1) = Sheets("Feuill2").Cells(2, 1).Value
End Sub

... et si j'ai 50 boutons il faut recopier 50 fois le code.
De manière plus général, si je clique sur le bouton"i" (s'ils sont tous écrit avec la même syntaxe) pouvoir récupérer cette valeur et la stocker.

J'espère avoir été assez explicite.

Merci de votre aide

[Ichigo_Mick]

Merci, grâce au conseil et à un peu de recherche 'plus' poussée j'ai trouvé la solution en m'aidant du code sur les modules de classe trouvé sur :
http://excel.developpez.com/faq/?pag...sseControleUSF

Je clique donc sur résolu

Mick

Héhé, ta réponse est arrivée pendant que je testais un bout de code et que je te répondais !

Encore merci

[casefayere]

un exemple à adapter, à toi de mettre dans le module de classe ce que tu veux obtenir

Dans le code de l'usf

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
Private Sub Commandfermer_Click() 'ceci est mon code fermant l'usf
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim Cl As bouton
 
Set Collect = New Collection
 
'boucle sur les objets de la Feuil1
For Each Ctrl In Me.Controls
    'verifie s'il s'agit d'un CommandButton
    If TypeOf Ctrl Is MSForms.CommandButton Then
      If Ctrl.Name <> "Commandfermer" Then 'bouton nommé pour fermeture USF
        Set Cl = New bouton
        Set Cl.groupebouton = Ctrl
        Collect.Add Cl
      End If
    End If
Next Ctrl
 
End Sub

dans un module de classe nommé "bouton", par exemple

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Public WithEvents groupebouton As MSForms.CommandButton
 
Private Sub groupebouton_Click()
  Sheets("Feuil1").Range("A1") = groupebouton.Name 'à remplacer par ce que tu veux faire
End Sub

et dans un module standard

Code :

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

1
2
Option Explicit
Public Collect As Collection

[casefayere]

sauf que dans mon module de classe, il subsiste un "End if" en trop