Discussion :

[Rickhq]

Bonjour,

J'ai un formulaire qui contient un cadre avec deux cases à cocher (une ou l'autre, pas les deux). Je veux afficher sur enregistrement, un popup du genre: " vous devez cocher une l'autre de ces options!") pour ne pas laisser ces case à blanc. Les deux cases ce nomment "Cocher190" et "Cocher 192".

J'ai cherché avant d'appeler à la communauté mais sans succès...

Merci à l'avance pour votre retour!

[marsouin_89]

Bonsoir,

Tu pourrais définir une valeur par défaut afin d'avoir systématiquement une case de cochée lorsqu'un nouvel enregistrement est créé.
De ce fait, elles ne seront jamais toutes les 2 blanches.

Cordialement

Christophe

[Robert1957]

Bonsoir Rickhq,
Ton cadre est associé à quel genre de champ? Si c'est un champ Oui/Non la solution de marsouin_89 est la seule que je vois, si c'est un champ texte ou numérique tu peux mettre un test:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
    If Me.Cadre0 = -1 Then
        MsgBox "Vous devez ....", vbCritical
        Cancel = True
        Me.Cadre0.SetFocus
    End If
 
End Sub

Si le champ est numérique.

Si le champ est texte tu remplaces -1 par 0.

[Invité]

Bonjour
Peut être n'ais je pas bien compris, mais pourquoi ne pas utiliser un groupe d'option?

[Rickhq]

Bonsoir à vous, et merci pour votre aide!

J'ai opté pour l'option de Gayot et utilisé un "Groupe d'option" ce qui règle le problème de sélection d'une seule case à la fois. Cependant ce "Groupe d'option" (case à cocher) ne semble pas prendre le code qui permet d'afficher des champs supplémentaires si coché...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub afficher_Click()
  If Me![Cocher192] = True Then     'si la case est cochée
          Me![DateReponse].Visible = True
     Else
          Me![DateReponse].Visible = False
 
                    End If
 
End Sub

[Invité]

Bonjour

Lorsque l'on utilise des groupes d'options il faut utiliser la valeur du groupe d'option et non l'état du bouton d'option.

Une exemple dans ce tuto : http://starec.developpez.com/tuto/groupeoptions/#LIII-C

Philippe

[Rickhq]

Bonjour et merci M.JOCHMANS pour le retour,

J'ai bien saisi l'idée avec le tuto mais comme je ne suis pas très versé en code, je n'arrive pas à assembler tout ça pour que çà tienne la route...

Voici mon dernier essai. Désolé pour "L'amateuriste" que je suis...

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
Private Sub Cocher192_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
        Select Case Me.Cocher192.Value
            Case 2
 
            Me![DateReponse].Visible = True
            Me![Commande150].Visible = True
            Me![HeureReponse].Visible = True
            Me![Cocher195].Visible = True
            Me![Cocher195].Visible = True
            Me![IndépendantOLE208].Visible = True
 
    End Select
 
End Sub

Vous aurez vu que je tente de faire apparaitre tout ces champs en relachant la souris sur la case à cocher du groupe d'option.

[Tofalu]

Bonjour

Utilisez plutôt l'évènement AprèsMaj du groupe d'option

[Rickhq]

Bonsoir,

Je l'ai placé comme indiqué mais "Erreur d'exécution '2427' ... C'est probablement ma façon de coder...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Cadre187_AfterUpdate()
  Select Case Me.Cocher192.Value
            Case 2
 
            Me![DateReponse].Visible = True
            Me![Commande150].Visible = True
            Me![HeureReponse].Visible = True
            Me![Cocher195].Visible = True
            Me![Cocher195].Visible = True
            Me![IndépendantOLE208].Visible = True
 
    End Select
 
End Sub

Merci de me vérifier.

[Invité]

Re

Deux choses :

Relis le tuto, tu verras qu'il faut récupérer la valeur du cadre d'option et non du bouton d'option.

Nomme correctement tes contrôles, sinon tu auras de gros soucis par la suite : http://argyronet.developpez.com/office/vba/convention/

Philippe

[Rickhq]

Merci pour les conseils, je vais m'y mettre. Je vous tiendrez au courant de l'aboutissant.

Au plaisir!