1000 CheckBox à vérifier

[Cougar]

Bonjour le forum,

Dans le code suivant je doix vérifier s'il est True or False. S'il est True donc continu


For j = 1 To 999
ActiveCell.Text = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell.Text = TextBox2
ActiveCell.Offset(0, 2).Select
If CheckBox = True Then 'comment écrire le CheckBox pour que la boucle fonctionne pour tous les CheckBox en être obligé de les identifier chacun (CheckBox1, CheckBox2, etc.)
ActiveCell.Text = ("x")
ActiveCell.Offset(1, -4).Select
Else
ActiveCell.Offset(1, -4).Select
End If
Next j

Merci de votre aide.

Cougar

 

[Pierrot93]

Re : 1000 CheckBox à vérifier

Bonjour Cougar

pour des controles de la "boite à outils controles" placés sur sur une feuille de calcul :

Dim i As Integer
For i = 1 To 999
    If Feuil1.OLEObjects("CheckBox" & i).Object = True Then MsgBox "Coché"
Next

dans un userform :

Dim i As Integer
For i = 1 To 999
    If Me.Controls("CheckBox" & i) = True Then MsgBox "Coché"
Next

bonne journée
@+

 

[Cougar]

Re : 1000 CheckBox à vérifier

Bonjour Pierrot93,

Le tout fonctionne très bien.

Merci