Comment creer une boucle for qui recupère automatiquement le nom [Résolu]

Signaler
-
 TSAF16 -
Bonjour chers tous !
J'ai un problème lors de l'exécution de ma boucle For. En fait, j'ai créer un formulaire d'inscription et je veux contraindre l'utilisateur à cocher au moins checkbox pour sélectionner une feuille; au nombre de 12 dans le cas présent donc 12 checkbox également. Le Code que j'utilise est :
For i = 1 To 12
If Me.Controls("CheckBox" &) = True Then
Coché = True
pour pouvoir ainsi recupérer le nom de la feuille automatiquement mais ça ne marche pas.lors de l'exécution le & est souligné par le débogueur et du coup je suis obligé de répéter la condition 12 fois pour que ça marche ce qui alourdi le code.
Quelqu'un pourrait-il me proposer quelque chose de mieux ?
Cordialement

2 réponses

Messages postés
2429
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juin 2021
137
Bonjour
A tester
for i = 1 to 12
if Me.Controls("CheckBox" & Cstr(i)) = True Then
Coche = True
Exit For ' on en coche qu'une seule
End If
Next


Evites de mettre des accents : Coche et non Coché
si cela ne convient pas explique ton cas plus clairement

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi. 
Bonjour VB95. Merci pour le code il fonctionne à merveille ! Mon problème est résolue à 100%
Bien à toi, TSAF16