Erreur avec des checkbox

Bonjour j'ai un petit problème que je ne comprend pas et n'arrive donc pas à résoudre.

Private Sub valider_click()

For i = 1 To 6
    If Me("A" & i).Value = True Then
        Range("H10") = i - 1
        Else: [H10] = ""
    End If
Next i

End Sub

Les checkbox sont très nombreuses mais on va s'intéressait juste au 6 premières nommé A1 à A6 d'où le i

Le problème est que seul A6 me met un 5 dans la case H10, toutes les autres ne donnent rien quand elles sont cochées.

Si il y a besoin de plus d'infos, demandez.

En attendant je vous remercie de la future aide.

Bonjour,

Ton code fonctionne très bien, il fait ce que tu lui demandes !

C'est à dire, pour A1 à A5 il écrit le résultat en H10 et A6 écrase ce résultat soit avec 5 soit avec ""

Bonjour,

Mais que veux tu faire ? Additionner dans H10 ? Ou inscrire dans H10, H11, etc.

ric

Ah et bien ce n'est pas ce que je souhaite ^^

Ce que je souhaiterais c'est que quand je coche A1, j'ai 0 qui s'affiche en H10, si je coche A2 j'ai 1 en H10, si je coche A3 j'ai 2 en H10, etc...

C'est possible ?

Bonjour,

Avec un bout de fichier représentatif, ce serait mieux.

Mais essayons :

Private Sub valider_click()

For i = 1 To 6
    If Me("A" & i).Value = True Then
        Range("H10") = i - 1
        Exit For        ' dès le premier résultat, met fin à la boucle
        Else: [H10] = ""
    End If
Next i

End Sub

ric

Ah un grand merci, tu m'enlèves une épine du pied et ce sera ma collègue qui sera contente ^^

Je mets le sujet en résolu

Encore merci