Discussion :

[moilou2]

Re j'ai un problème qui je le pense va très vite être réglé

Je souhaite en fonction que si ma check box est cochée, renvoyer une valeur dans une cellule d'une feuille. J'ai réussi à réaliser cela, mais je souhaiteré réduir mon code par ce que j'ai 400 check box et sa pernd de la place

Actuelement mon code est le suivant:

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
Private Sub CheckBox100_Click()
 
If CheckBox100 = True Then
Sheets("PP5").Select
Range("h49").Select
ActiveCell.FormulaR1C1 = "x"
 
Else
Sheets("PP5").Select
Range("h49").Select
ActiveCell.FormulaR1C1 = ""
 
End If
 
End Sub

Et j'ai essayé de le réduir comme ceci mais sa ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
 
If CheckBox1 = True Then
Sheets("PP1").Range("f31").Value = "x"
 
Else
Sheets("PP1").Range("f31").Value = ""
 
End If
 
End Sub

Merci du coup de pouce

[epsylon_9]

Salut,
Pourrais tu apporter des précision.
Lorsque tu dis cela ne fonctionne pas qu'entends tu par là?

Est ce que tu souhaites faire une seule procédure pour TOUT tes checkbox?

@+
Julien

[fring]

jette un oeil sur cette discution qui permet de boucler sur toutes les CheckBox d'un UserForm, un ptit coup de tournevis et ce sera adapter à ton utilisation

http://www.developpez.net/forums/sho...d.php?t=536724

[moilou2]

En fait sa marche désolé je ne sais pas se qui s'est passé!

Sorry

[epsylon_9]

Re,

Cela ne change pas. Avec 400 CheckBox, je pense qu'il va te falloir factoriser encore un peu.

• Si tu le fais pour tout les click des CheckBox
  Avec une procédure prenant un Objet Checkbox Comme parametres (et éventuellement l'endroit ou il devront agir)
• Si tu le fais une fois, une boucle sur tout les checkbox

Voilà j'espère que les idées t'aideront
@+
Julien