Discussion :

[Pierreschu]

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 :

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

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

[MarcelG]

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 :

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

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

[MarcelG]

Bonsoir,

Une remarque.

Plutôt que d'utiliser une formule du type

=Si(A2=3;1;0)

J'utilise souvent

= (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 :

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

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

[OrDonc]

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 :

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

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 :

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

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 !