Test sur tout un formulaire

Version imprimable

03/09/2008, 15h59
gangsterus

Test sur tout un formulaire
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:

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.
03/09/2008, 16h11
fring

Bonjour,

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

Utiliser les contrôles dans un UserForm
.

Si ça peut te donner une idée

Code:

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)

04/09/2008, 11h58
gangsterus

Hello!

Tout d'abord, merci pour vos interventions.
En fait, je ne comprends pas pourquoi ma macro ne fonctionne pas :cry:
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

Alors c'est plus simple

Code:

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

Bonjour, cavalier

Citation:

Envoyé par ouskel'n'or

Alors c'est plus simple

Code:

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 ?

04/09/2008, 14h02
ouskel'n'or

Citation:

Envoyé par gangsterus

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.

Si ok est true, ou j'ai mal compris et je n'aurais pas dû comprendre ce que j'ai compris, ou gangsterus s'est mal exprimé ;)
Mais rien ne t'empêche de répondre si ok 8-)

Bonjour,

Tu as 19 checkboxes ...

Je les nomerais tyoutes pareil (toto, par exemple), suivi d'un chiffre dans la série continue de 1 à 19 (donc toto1, toto2,.....toto19), puis :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub CommandButton1_Click() dim trouve as boolean trouve = false For i = 1 to 19 if me.controls("toto" & i) = true then trouve = True exit for end if next If trouve then .... etc... end if End if End Sub
Ce qui éviterait de parcourir tpous les autres contrôles...