Boucle sur Commandbutton

[JC de Lorient]

Bonjour le forum
voilà j'ai 27 commandbutton de A a Z plus 1 pour la totalité de ma feuille
puis une mise a jour de ma listbox avec ce code: (affichage alpha suivant le nom)

Private Sub CommandButton4_Click()
ListBox1.Clear
Dim j, c As Integer
Dim cel As Range
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = '25;70;50;0'
j = 0
For Each cel In Sheets('332').Range('B3:B' & Range('B65536').End(xlUp).Row)
If Left(cel, 1) = 'A' Then
c = cel.Row
ListBox1.AddItem Cells(c, 1)
ListBox1.List(j, 0) = Cells(c, 1)
ListBox1.List(j, 1) = Cells(c, 2)
ListBox1.List(j, 2) = Cells(c, 3)
ListBox1.List(j, 3) = c
j = j + 1
End If
Next
End Sub

Y aurait il une façon de boucler suivant la valeur de mon bouton plutot de de recopier 28 fois la procédure 1 avec A puis B puis C ... jusque Z
merci a vous

 

[JC de Lorient]

re
petite précision
mon 1er bouton commence a CommandButton4
et le dernier : commandbutton30

merci

 

[MichelXld]

Bonjour JC

tu pourrais utiliser un module de classe

un exemple dans ce lien :

http://j-walk.com/ss/excel/tips/tip44.htm


ken emberr
MichelXld

 

[JC de Lorient]

re
bonjour Michel
Wahooooo !!!
ben je vais essayer de m'en sortir tout seul !
au besoin je te fais appel

merci bcp