Petit problème avec code checkbox

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

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:

---

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:

---

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:lol:

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

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

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

Sorry :?

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