USERFORM : Validation par Bouton d'option

[roidurif]

Bonjour,

Dans mon USERFORM, j'ai 3 bouton d'option. j'ai integer dans la bouton de commande, un controle si les 3 bouton d'option ne sont pas cocher alors mettre message "indiquer type de demande...." si 1 des 3 est selectionné, alors ok

J'ai fait cela mais ca n a pas l'air de fonctionner

Private Sub CommandButton1_Click()

If Controls("OptionButton1", "OptionButton2", "OptionButton3") = False Then
MsgBox "Vous devez indiquer votre TYPE DE DEMANDE !", vbExclamation, _
"ERREUR ...!"
      
       Exit Sub
End If

Merci

 

[chris]

Re : USERFORM : Validation par Bouton d'option

Bonjour

En général on fait un groupe d'options et c'est le groupe que l'on teste.

 

[roidurif]

Re : USERFORM : Validation par Bouton d'option

Comment faire pour ce groupe d'option??

Merci

 

[alex67800]

Re : USERFORM : Validation par Bouton d'option

Bonsoir roidurif,
Tu y étais resque en fait il faut l'écrire comme cela:

   If [COLOR="red"]Not[/COLOR] (OptionButton1 [COLOR="Red"]Or[/COLOR] OptionButton2 [COLOR="red"]Or[/COLOR] OptionButton3) Then
    MsgBox "Vous devez indiquer votre TYPE DE DEMANDE !", vbExclamation, _
"ERREUR ...!"
    OptionButton1.SetFocus
    Exit Sub
    End If

 

[roidurif]

Re : USERFORM : Validation par Bouton d'option

Bonjour,

Voila j'ai presque reussi simplement j'ai ajouter un mulitipage à plusieurs onglet, mais je n'arrive pas exprimer la suite

Ce que j'ai fait:

J'ai pu ajouter 10 boutons d'options correspondant à un "metier", selon la selection du bouton, ca va aller renseigner le nom du metier en celulle B26 de la feuille "fiche".

Ce que je n'arrive pas à faire :

Seulement le dernier Bouton est particulier, celui-ci correspond au profil "Valideur"

1) Si on selectionne "Valideur" on doit obligatoirement renseigner la suite

2) il exite 4 types de "Valideurs" representer par un multipage à 4 onglets.

Si on selectionne un des 4 onglets valideurs, il faut que en B26 de la feuille "fiche" soit renseigné le profil "Valideur" (ex valideur hierarchique). Ensuite, une fois l'onglet chosis, il doit obligatoirement renseigner les champs cette onglet.

Ci joint ce que j'ai fait cordialement.

Merci d avance

 

[alex67800]

Re : USERFORM : Validation par Bouton d'option

Bonsoir roidurif,

rajoute ce code à la place de ton validuer_Click:

Private Sub VALIDEUR_Change()
If VALIDEUR.Value = True Then
MsgBox "Vous devez Renseigner votre FICHE DE VALIDATION!", vbExclamation, _
"ERREUR ...!"
End If
End Sub

Puis modifie le coed du bouton Valider comme cela:

Private Sub CommandButton1_Click()
Sheets("Fiche").Select

  If Not (Acheteur Or CREATEUR_MOD_PUBLIC Or Adm_Modif_Cde Or CDC Or CDC_INTERIM Or Cdc_Modif_Cde Or CREATEUR_MOD_PUBLIC Or RECEP_CENTRALISE Or RECEP_SIMPLE Or SUPERVISEUR Or VALIDEUR) Then
    MsgBox "Vous devez indiquer votre PROFIL !", vbExclamation, _
"ERREUR ...!"
    Exit Sub
    End If
    [COLOR="Red"]If V_ID.Value <> "" Then [B26] = MultiPage2.Page1.Caption
    If TextBox15.Value <> "" Then [B26] = MultiPage2.Page2.Caption
    If TextBox9.Value <> "" Then [B26] = MultiPage2.Page3.Caption
    If TextBox21.Value <> "" Then [B26] = MultiPage2.Page4.Caption[/COLOR]
    
    
Unload UserForm1

End Sub

A te lire!

 

[roidurif]

Re : USERFORM : Validation par Bouton d'option

Bonjour,

Je me retrouve confronter à un probleme, lorsque aucun bouton est selectionner, j'arrive à bien à obtenir un message, "vous devez indiquer votre PROFIL".

Seulement je n'arrive pas exprimer Si le bouton "Valideur" est selectionner et que le type de valideur n'est pas renseigner, Alors avoir un message "Vous devez indiquer votre TYPE VALIDEUR".

Merci d'avance

  If Not (Acheteur Or CREATEUR_MOD_PUBLIC Or Adm_Modif_Cde Or CDC Or CDC_INTERIM Or Cdc_Modif_Cde Or CREATEUR_MOD_PUBLIC Or RECEP_CENTRALISE Or RECEP_SIMPLE Or SUPERVISEUR Or VALIDEUR) Then
    MsgBox "Vous devez indiquer votre PROFIL !", vbExclamation, _
"ERREUR ...!"
    OptionButton1.SetFocus
    Exit Sub
        End If
        
        If VALIDEUR <> "" Then
MsgBox "Vous devez indiquer votre TYPE VALIDEUR!", vbExclamation, _
"ERREUR ...!"
    Exit Sub
End If
        
        
        If V_ID.Value <> "" Then [B26] = MultiPage2.Page1.Caption
    If TextBox15.Value <> "" Then [B26] = MultiPage2.Page2.Caption
    If TextBox9.Value <> "" Then [B26] = MultiPage2.Page3.Caption
    If TextBox21.Value <> "" Then [B26] = MultiPage2.Page4.Caption
    
Unload UserForm1

End Sub

 

[alex67800]

Re : USERFORM : Validation par Bouton d'option

Bonjour roidurif,

Une solution ci-après pas formcément la meilleure mais elle fonctionne:

Private Sub CommandButton1_Click()
Sheets("Fiche").Select

  If Not (Acheteur Or CREATEUR_MOD_PUBLIC Or Adm_Modif_Cde Or CDC Or CDC_INTERIM Or Cdc_Modif_Cde Or CREATEUR_MOD_PUBLIC Or RECEP_CENTRALISE Or RECEP_SIMPLE Or SUPERVISEUR Or VALIDEUR) Then
    MsgBox "Vous devez indiquer votre PROFIL !", vbExclamation, _
"ERREUR ...!"
    Exit Sub
    End If
    [COLOR="Red"]If VALIDEUR.Value = True And V_ID.Value = "" Then
        If VALIDEUR.Value = True And TextBox15.Value = "" Then
            If VALIDEUR.Value = True And TextBox9.Value = "" Then
            If VALIDEUR.Value = True And TextBox21.Value = "" Then
        MsgBox "Vous devez indiquer votre TYPE VALIDEUR !", vbExclamation, _
"ERREUR ...!"
    Exit Sub
            End If
            End If
        End If
    End If[/COLOR]    If V_ID.Value <> "" Then [B26] = MultiPage2.Page1.Caption
    If TextBox15.Value <> "" Then [B26] = MultiPage2.Page2.Caption
    If TextBox9.Value <> "" Then [B26] = MultiPage2.Page3.Caption
    If TextBox21.Value <> "" Then [B26] = MultiPage2.Page4.Caption
    
    
Unload UserForm1

End Sub