càse à cocher multiples

[pparanthoen]

Bonjour,

Dans une feuille excel, j'ai une série de case à cocher pour l'affichage d'une valeur de cellule. Mon script VB ressemble à ça :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[h4] = [d4]
Else
[h4] = "0"
End If
End Sub
.....
Private Sub CheckBox10_Click()
If CheckBox1.Value = True Then
[h13] = [d13]
Else
[h13] = "0"
End If
End Sub

Je ne connais que très peu le VB, mais je pense qu'il y a moyen de définir une fonction puis d'y faire appel afin d'incrémenter automatiquement les CheckBoxI+1_Click() et les cellules. Mais comment ? quelqu'un aurait-il une idée ?

merci

P.

 

[Mytå]

Re : Case à cocher multiples

Salut Pparanthoen et le Forum

Tu peux facilement gérer celà avec un module de classe

Voir pièce jointe

Mytå