Hello!

J'ai effectué quelques recherches mais je n'ai pas réussi à trouver de réponse à ma question.

J'ai 1 un formulaire n°2 qui apparaît lorsqu'on clique sur un bouton dans le formulaire n°1.
Dans le formulaire n° 2, j'ai tout plein de checkbox.

Je pourrais faire des tests avec des if pour chaque checkbox, mais je pense qu'il est possible de faire beaucoup plus rapide.
J'ai essayé ça mais ça ne fonctionne pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim ChkB As CheckBox
 
For Each ChkB In Frm2
 
If ChkB=True Then
 
Range ("B21").Borders(xlDiagonalDown).LineStyle = xlContinuous
 
Exit For
 
End If
 
Next ChkB
Ca me dit "Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet.

D'avance merci pour vos contributions.