Word 2016 : TextBox obligatoire si OptionBouton sélectionné
Fermé
Mecton77
Messages postés
2
Date d'inscription
vendredi 28 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019
-
28 juin 2019 à 13:33
thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 - 29 juin 2019 à 18:48
thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 - 29 juin 2019 à 18:48
A voir également:
- Word 2016 : TextBox obligatoire si OptionBouton sélectionné
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Word gratuit - Guide
- Signature électronique word - Guide
3 réponses
Mecton77
Messages postés
2
Date d'inscription
vendredi 28 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019
28 juin 2019 à 13:40
28 juin 2019 à 13:40
La vérification des champs doit-elle se faire uniquement par un bouton ? car je n'en ai pas dans mon formulaire...
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
28 juin 2019 à 14:43
28 juin 2019 à 14:43
Bonjour,
voir ceci
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-C
ensuite tu mets la propriété Enabled à True ou False de tes TextBox et ComboBox en fonction de tes
OptionButton
voir ceci
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-C
ensuite tu mets la propriété Enabled à True ou False de tes TextBox et ComboBox en fonction de tes
OptionButton
TextBox1.Enabled = True
thev
Messages postés
1852
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
23 avril 2024
681
29 juin 2019 à 18:48
29 juin 2019 à 18:48
Bonjour,
ci-dessous exemple de code pour des contrôles ActiveX
End Sub
ci-dessous exemple de code pour des contrôles ActiveX
Sub contrôle_remplissage() Dim champ As Field Dim ctrl As Object Dim boutons_option As New Collection Dim zones_texte As New Collection Dim listes_déroulantes As New Collection '// stockage des contrôles ActiveX dans leurs collection respectives For Each champ In ActiveDocument.Fields Set ctrl = champ.OLEFormat.Object If TypeOf ctrl Is MSForms.OptionButton Then boutons_option.Add ctrl, ctrl.Name If TypeOf ctrl Is MSForms.TextBox Then zones_texte.Add ctrl, ctrl.Name If TypeOf ctrl Is MSForms.ComboBox Then listes_déroulantes.Add ctrl, ctrl.Name Next champ '// contrôle remplissage zones de texte et listes déroulantes If boutons_option("OptionButton1") = True And zones_texte("TextBox1") = Empty Then MsgBox "Veuillez remplir la zone xx ": Exit Sub
End Sub