Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

USERFORM : Validation par Bouton d'option

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

roidurif

XLDnaute Occasionnel
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()

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


Merci
 
Trier par date Trier par votes
Re : USERFORM : Validation par Bouton d'option

Bonsoir roidurif,
Tu y étais resque en fait il faut l'écrire comme cela:
Code: 
   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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Re : USERFORM : Validation par Bouton d'option

Bonsoir roidurif,

rajoute ce code à la place de ton validuer_Click:
Code: 
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:
Code: 
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!
 
Vote positif 0 Vote négatif
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


Code: 
  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
 
Dernière édition:
Vote positif 0 Vote négatif
Re : USERFORM : Validation par Bouton d'option

Bonjour roidurif,

Une solution ci-après pas formcément la meilleure mais elle fonctionne:
Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Impression Userform en format paysage + Envoyer l'imprime écran du Userform par courriel
2
Réponses
17
Affichages
796
patricktoulon
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
433
gillesda
G
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
646
vgendron
X
  • Résolu(e)
XL 2016 Problème lors de recherche croisée.
Réponses
4
Affichages
467
Xender
X
E
  • Résolu(e)
Microsoft 365 forcer REMPLISSAGE Combobox Userform
2
Réponses
15
Affichages
1 K
ChTi160
  • Résolu(e)
XL 2019 OptionButton dans une Userform
Réponses
2
Affichages
418
chinel
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
F
  • Question Question
XL 2021 Initialisation UserForm par un bouton
Réponses
4
Affichages
589
Foot49
F
  • Résolu(e)
XL 2013 (RESOLU) Adapter un code
Réponses
8
Affichages
761
TooFatBoy
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
625
piga25
M
  • Résolu(e)
XL 2013 Gestion clic bouton UserForm
2
Réponses
23
Affichages
2 K
M.Ben
M
  • Question Question
XL 2010 Impression d'un userform en pdf & Multipages
Réponses
6
Affichages
2 K
PoloTaz67
M
  • Résolu(e)
XL 2013 Affichage onglets multiPage (Userform)
Réponses
10
Affichages
1 K
patricktoulon
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
685
job75
J
  • Question Question
XL 2016 Ouverture d'un onglet avec CommandButton sur Userform
Réponses
9
Affichages
593
JPrev
J
P
  • Question Question
XL 2019 Ajouter une date de fin pour un débit/crédit récurrent via VBA
2
Réponses
19
Affichages
3 K
herve62
H
  • Question Question
Microsoft 365 besoin d'aide pour une macro pour Userform
Réponses
1
Affichages
544
sylvanu
C
  • Résolu(e)
XL 2013 afficher image dans Userform via HyperText
Réponses
5
Affichages
860
Cyril-neo
C
S
  • Résolu(e)
Microsoft 365 Bouton d'annulation sur Userform
Réponses
4
Affichages
942
ChTi160
G
  • Question Question
XL 2019 Répondre à des conditions d'une feuille pour un affichage dans un Userforms
Réponses
3
Affichages
964
cp4
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…