hilpers


  hilpers > microsoft.* > microsoft.vb

 #1  
08/01/2017, 23h59
krad007
Bonjour a tous,

Je sollicite une aide face à un problème que je rencontre en ce qui concern
l’ergonomie de mon code VBA sur Excel :

J'utilise une UserForm contenant 40 CheckBox, et j'ai une fonction a utilise
sur chacune des CheckBox quand on coche ou décoche la case, et mon cod
ressemble a ça:

Private Sub CheckBox1_Click()
CBoxChange (1)
End Sub

Private Sub CheckBox2_Click()
CBoxChange (2)
End Sub

Private Sub CheckBox3_Click()
CBoxChange (3)
End Sub

Je cherche une méthode qui m’éviterai d'avoir a taper 40 fois la même chose
genre
For each CheckBox_Change

Si quelqu'un peut m'aider, ça simplifierai grandement la lecture de mon code.

Merci d'avance a tous ceux pouvant m'apporter leur lumière.

 #2  
10/01/2017, 15h10
ibenny
Le dimanche 08 Janvier 2017 à 23:59 par krad007 :
[..]
> End Sub
> Je cherche une méthode qui m’éviterai d'avoir a taper 40
> fois la même chose, genre
> For each CheckBox_Change
> Si quelqu'un peut m'aider, ça simplifierai grandement la lecture de mon
> code.
> Merci d'avance a tous ceux pouvant m'apporter leur lumière.

Private Sub CheckBox1_Click()
CBoxChange 1
End Sub

Private Sub CheckBox2_Click()
CBoxChange 2
End Sub

Private Sub CheckBox3_Click()
CBoxChange 3
End Sub

Private Sub CBoxChange(Box As Byte)
Select Case Box
Case 1
code
Case 2 To 5
code
Case 6, 8, 10
code
Case Is > 10
code
Case Else
code
End Select
End Sub

Discussions similaires
checkbox multiple

Multiple CheckBox - le retour

Multiple CheckBox

[checkbox] executer une requete HTML en cliquant dans une checkbox


Fuseau horaire GMT +2. Il est actuellement 03h07. | Privacy Policy