Incrémentation de CheckBox

Pierrot93

XLDnaute Barbatruc

• 16 Juillet 2010

• #2

Re : Incrémentation de CheckBox

Bonjour,

essaye peut être ainsi :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Juillet 2010

• #3

Re : Incrémentation de CheckBox

Bonjour,

Si ce sont des checkbox de userform:

Code:

For N = 1 To 12

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

A+

 

Vote positif 0 Vote négatif

A

abalny

Guest

• 16 Juillet 2010

• #4

Re : Incrémentation de CheckBox

Merci à Pierrot93 et Hasco !!!

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

Alain

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Juillet 2010

• #5

Re : Incrémentation de CheckBox

Bonjour,

True = -1
FAlse = 0

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

A+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Juillet 2010

• #6

Re : Incrémentation de CheckBox

Bonjour Hasco

Ou alors

Code:

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

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

😉

A+

 

Vote positif 0 Vote négatif