Discussion :

[gangsterus]

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.

[fring]

Bonjour,

Le tuto ci-dessous pourra sans doute t'aider, notamment le chapitre I-B

Utiliser les contrôles dans un UserForm
.

[ouskel'n'or]

Si ça peut te donner une idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim Ctrl As Control
 
    For Each Ctrl In Frm2.Controls
        If TypeName(Ctrl) = "CheckBox" Then
            Select Case True
                Case CheckBox1
                    Range("B21").Borders(xlDiagonalDown).LineStyle = xlContinuous
                Case CheckBox2
                    Range("C21").Borders(xlDiagonalDown).LineStyle = xlContinuous
                Case CheckBox3
                    Range("D21").Borders(xlDiagonalDown).LineStyle = xlContinuous
            End Select
        End If
    Next
End Sub

(Hello Fring)

[gangsterus]

Hello!

Tout d'abord, merci pour vos interventions.
En fait, je ne comprends pas pourquoi ma macro ne fonctionne pas
Mon formulaire a 19 checkbox.
Je souhaite que lorsque je clique sur un bouton valider, si aucun checkbox n'est coché, alors une cellule de la feuille excel qui est B21 est barrée en diagonale, sinon (c'est à dire si un checkbox est coché), rien ne se passe.

Merci

[ouskel'n'or]

Alors c'est plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Ctrl As Control, ok as boolean
 
    For Each Ctrl In Frm2.Controls
        If TypeName(Ctrl) = "CheckBox" Then
              ok = ok or Ctrl
              if ok then exit for
        End If
    Next
 
    if not ok then Range ("B21").Borders(xlDiagonalDown).LineStyle = xlContinuous
End Sub

[JackOuYA]

Bonjour, cavalier

Alors c'est plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Ctrl As Control, ok as boolean
 
    For Each Ctrl In Frm2.Controls
        If TypeName(Ctrl) = "CheckBox" Then
              ok = ok or Ctrl
              if ok then exit for
        End If
    Next
 
    if not ok then Range ("B21").Borders(xlDiagonalDown).LineStyle = xlContinuous
End Sub

il manquerai pas le cas ok ?