Incrémentation de CheckBox

[abalny]

Bonjour à tous,

Je n'arrive pas à incrémenter la lecture de plusieurs ChexBox contenu dans un UserForm :

For N = 1 To 12
If CheckBoxN.Value = True Then
Feuil2.Cells(3, 1 + N).Value = 1
Else
Feuil2.Cells(3, 1 + N).Value = 0
End If
Next N

Visual basic ne comprend pas que le N qui suit le CheckBox est son numéro d'ordre.... Je suis sûr que cela doit être possible, mais je ne trouve pas la solution...😡

Quelqu'un peut-il m'aider ??

Merci d'avance🙂

 

[Pierrot93]

Re : Incrémentation de CheckBox

Bonjour,

essaye peut être ainsi :

If Me.Controls("CheckBox" & N).Value = True Then

bon après midi
@+

 

[Guest]

Re : Incrémentation de CheckBox

Bonjour,

Si ce sont des checkbox de userform:

For N = 1 To 12

Feuil2.Cells(3, 1 + N).Value = Me.Controls("CheckBox" & N ).Value *-1
Next N

A+

 

[abalny]

Re : Incrémentation de CheckBox

Merci à Pierrot93 et Hasco !!!

Quelle est l'action de *-1 en fin de ligne ??

Alain

 

[Guest]

Re : Incrémentation de CheckBox

Bonjour,

True = -1
FAlse = 0

True*-1 = 1 (-1*-1 = 1)
False* -1 = 0 (0 * -1 = 0)

A+

 

[Compte Supprimé 979]

Re : Incrémentation de CheckBox

Bonjour Hasco

Ou alors

Feuil2.Cells(3, 1 + N).Value = ABS(Me.Controls("CheckBox" & N ).Value)

ABS(-1) = 1
ABS(0) = 0

😉

A+