next sans for

zephir94 · 28 Juin 2015

Bonjour à tous,

J'ai une erreur avec ma petite boucle et je n'arrive pas à trouver pourquoi !
J'ai l'erreur next sans for !

voici mon code :

Code:

Sub valider()
Dim b
Dim nb As Integer
For b = 1 To 109 Step 2
If Me.Controls("checkbox" & b) = True Then
nb = nb + 1
Next
If nb = 55 Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub

Merci pour vos aides

Cousinhub · 28 Juin 2015

Re : next sans for

zephir94 à dit:
ce que je veux, que soit oui ou non soit coché dans son ensemble et qu'il n'en manque aucune !

D'accord....

C'est ce que j'essaie de te faire comprendre, mais....

Bon courage

Edit, et juste avant que je n'aille manger....

Si tu as lu mon post #11 :

Il faut tester TOUS les CheckBox de l'USF, et si tu as la moitié du nombre total, c'est tout bon...

zephir94 · 28 Juin 2015

Re : next sans for

Comme certaines checkbox sont pour l'instant grisées et ne se dégriseront qu'a une certaine date, j'ai donc modifié comme ceci et ça marche bien

Code:

Sub valider()
 Dim b
 Dim nb As Integer
 For b = 1 To 109 Step 2
     If Me.Controls("checkbox" & b) = True Or Me.Controls("checkbox" & b + 1) = True Then
         CommandButton1.Enabled = True
     Else
         CommandButton1.Enabled = False
     End If
     If Me.Controls("checkbox" & b).Enabled = False Or Me.Controls("checkbox" & b + 1).Enabled = False Then
          b = (b + 1)
       CommandButton1.Enabled = True
       End If
  Next
 End Sub

Si j'ai bien compris il faut que je le fasse pour tous les évènements change !
Aller courage au boulot

Merci pour tout

laetitia90 · 29 Juin 2015

Re : next sans for

bonjour tous 🙂🙂
en utilisant tag
un exemple avec 12 CheckBoxs dont seulement 5 tagues
si CheckBox.tag =3 le commandbutton enabled=true

mais comme le dit l'ami bhbh🙂 tu es parti sur une "usine a gaz"

Si... · 29 Juin 2015

Re : next sans for

salut

Les changements seront peu nombreux mais payants avec un Module de classe même en éiminant avec la moitié des Cases à cocher. En griser certaines au début n'offre aucune difficulté.
Voici un exemple dans lequel mes "tags" ne ressemblent pas à ceux de Laetitia😉😀.

next sans for

zephir94

XLDnaute Impliqué

Cousinhub

XLDnaute Barbatruc

zephir94

XLDnaute Impliqué

laetitia90

XLDnaute Barbatruc

Pièces jointes

Si...

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

next sans for

zephir94

XLDnaute Impliqué

Cousinhub

XLDnaute Barbatruc

zephir94

XLDnaute Impliqué

laetitia90

XLDnaute Barbatruc

Pièces jointes

Si...

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency