Boucle qui parcourt checkbox

Bonjour,

J'ai 800 checkbox sur ma feuille, de la checkbox1 à checkbox800.

Il me faut une boucle me permettant de recopier la valeur de la checkbox dans la cellule.

mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub mail()   Dim i as integer   x=12 For i=1to800 worksheets("planning maintenance").Cells(x,12)=worksheets("planning maintenance").checkbox1.value x=x+1 Next End sub

---

J'ai tenter d'écrire ("checkbox")&i.value mais cela ne fonctionne pas.

Merci de votre aide
Cordialement

Bonjour et bienvenu sur ce Forum,

Merci de baliser ton code avec les bornes #. Il sera plus lisible ainsi

i est une variable VBA donc pas de .Value

Si les cases à cocher sont intégrés à ta feuille, alors ils doivent être considérés comme Objets Ole

A adapter à ton cas de figure.

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Public Sub valcheck() Dim i As Integer For i = 1 To 800 MsgBox ActiveSheet.OLEObjects("CheckBox" & i).Object.Value Next i End Sub

---

Bonsoir,

Une remarque.

Plutôt que d'utiliser une formule du type

Citation:

---

=Si(A2=3;1;0)

---

J'utilise souvent

Citation:

---

= (A2= 3) * 1

---

Valeur booléenne * 1

Cette méthode pourrait s'appliquer aux cases à cocher (CheckBox).
A ceci près. La valeur d'une case à cocher * 1 donne comme résultat -1 (si la case est cochée) ou 0 si elle ne l'est pas.
Pour obtenir donc 1 ou 0, il faut écrire
(d'après le code ci-dessus)

Code:

---

MsgBox Abs(ActiveSheet.OLEObjects("CheckBox" & i).Object.Value * 1)

---

Salut

Avant d'écrire une macro il faudrait se poser la question «mais où vais-je l'écrire ?».
Celle que je propose sous-entend qu'elle est dans la Fenêtre de Codes de la feuille contenant le contrôle (Alt F11).

Lors de l'écriture de la macro, ma version me propose pour un contrôle ActiveX* dans l'onglet

Code:

---

1 2 3 4 5 6

Sub mail() x = 12 For i = 1 To 800 Cells(x + i, 12) = Me.CheckBox1 'le nom est dans la liste affichée juste après la frappe du point Next End Sub

---

Si l'on veut la mettre dans un Module Standard, car, par exemple lancée d'un autre Onglet, la feuille cible doit être référencée :

Code:

---

1 2 3 4 5 6 7 8

Sub mail() x = 12 With Sheets("planning maintenance") For i = 1 To 80 .Cells(x + i, 12) = .CheckBox1 Next End With End Sub

---

*cela se complique avec un Contrôle de Formulaire d'autant plus que la portabilité mais pas toujours au rendez-vous !