Si aucune checkbox est cochés alors

Bonjour à tous !

J'aurai besoin d'un petit coup de pouce pour mon code vba

J'ai 137 checkbox sur une feuille de calcul, permettant d'exprimer un besoin. Je voudrais "simplement" ajouter une condition dans mon code me permettant d'afficher un msgbox "Vous n'avez sélectionné aucun produit" si l'utilisateur n'a coché aucune checkbox.

En d'autres termes il me faudrait une condition du type : si aucune checkbox cochés alors ...

Merci d'avance pour votre aide !

Bonjour,

Oui ?

Je n'ai aucune idée de la syntaxe en vba pour la partie "aucune checkbox coché"

Une idée ?

Je relance le sujet, personne n'a une idée ?

J'ai trouvé !

n = 0

For i = 1 To 137
    n = n - (Me.OLEObjects("CheckBox" & i).Object.Value = False)
    If n = 137 Then
        MsgBox "Vous n'avez sélectionné aucun consommable !"
        Exit Sub
    End If
Next i

En espérant que ça puisse en aider certains !

En es-tu sûr ?

Je conseillerais vivement de tester pour visualiser l'erreur.

Euh bah écoutes ça fonctionne de mon côté Je n'aurai pas posté quelque chose qui ne fonctionne pas ! Après il a y peut être un façon plus optimale d'écrire ce code.

Qu'est ce que tu identifies comme une erreur ?

Exact ! J'ai fait une inversion... Désolé. Mais tu aurais sans doute gagné à cumuler le nombre de coché :

n = 0
For i = 1 To 137
    n = n - Me.OLEObjects("CheckBox" & i).Object.Value
    If n = 0 Then
        MsgBox "Vous n'avez sélectionné aucun consommable !"
        Exit Sub
    End If
Next i

Et pour peu que ce nombre s'avère utile ensuite, tu en disposais.

Bonne continuation.

Exact, je n'y avais pas pensé ! et oui je m'en ressert par la suite, cela va simplifier le tout, merci !!

Bonne journée