Boutons d'option

Le 27/07/2022 à 20:48

Bonjour,

Grand débutant avec Excel VBA, j'ai crée grâce à des tutos une base de données pour une association qui a de très nombreux adhérents.
J'ai créé deux boutons d'option pour indiquer le sexe de la personne adhérente, mais je n'arrive pas à le coder. Merci pour vos conseils.

S'il y a une meilleure solution que les boutons d'option, je suis preneur...

Par ailleurs, lorsque je remplis un formulaire j'utilise beaucoup la touche tabulation, est-ce qu'ii est possible lorsque l'on sélectionne le bouton d'option grâce à la touche tabulation de valider le choix par la touche entrée ?

Merci pour votre aide

10base-donnees-modele-copie.xlsm (36.31 Ko)
Le 27/07/2022 à 21:02

Hello,

Tu peux tester si un bouton d'option est coché comme ceci :

If OptionButton1 = -1 Then MsgBox "Masculin" Else MsgBox "Féminin"

Pour valider un bouton d'option après tabulation, la touche par défaut est l'espace.

Je ne crois pas que ça soit modifiable de base. Peut être via API windows mais usine à gaz pour pas grand chose.

Le 27/07/2022 à 23:22

Bonjour @Rag02700, n'oublions pas d'accueillir les nouveaux venus comme il se doit

Bonjour Einsteiger et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Ainsi que sur les fonctionnalités (Nouveau Forum au bas de page notamment)

Merci de votre participation

Cordialement

Le 28/07/2022 à 10:21

Merci pour la réponse.

Pour sélection du bouton d'option, j'ai intégré que l'on pouvait le sélectionner avec la barre d'espace, mais quand je sélectionne de cette manière la touche tabulation de répond plus, est-ce normal ? Est-ce qu'il y a une solution ou dois-je me résigner à devoir utiliser la souris ?

Pour le code VBA, j'avais fait celui-ci dans le but de mettre dans la base de données l'information suivant le bouton d'option sélectionné, mais ça ne fonctionne pas. peut-on m'éclairer sur mes erreurs ? Merci

Feuil2.Activate
Feuil2.Range("A1048576").End(xlUp).Offset(1, 0).Select
'On affecte les données du formulaire dans la source'
ActiveCell = Me.TBox_NOM
ActiveCell.Offset(0, 1) = Me.TBox_Prenom
ActiveCell.Offset(0, 2) = OptionButton
If OptMasculin = True Then
.Range("C" & Insmot).Value = "M"
Elself OptFeminin = True Then
.Range ("C" & Insmot).Value = "F" end If
ActiveCell.Offset(0, 3) = CDate(Me.TxtB_DateNaissance)
ActiveCell.Offset(0, 4) = Me.TBox_NomParrain
ActiveCell.Offset(0, 5) = CDate(Me.Txt_DateAdhesion)
ActiveCell.Offset(0, 6) = Me.TxtB_Numero
ActiveCell.Offset(0, 7) = Me.Cbb_Cotisation
ActiveCell.Offset(0, 8) = Me.Cbb_Bulletin
Le 28/07/2022 à 20:45

Hello,

Salut Bruno

Chez moi la tabulation fonctionne après avoir validé par espace

OptionButton1 étant le nom du bouton Homme et le 2 celui de la Femme

Feuil2.Activate
Feuil2.Range("A1048576").End(xlUp).Offset(1, 0).Select
'On affecte les données du formulaire dans la source'
ActiveCell = Me.TBox_NOM
ActiveCell.Offset(0, 1) = Me.TBox_Prenom
ActiveCell.Offset(0, 2) = OptionButton
If OptionButton1 = -1 Then
Range("C" & Insmot).Value = "M"
Elself OptionButton2 = -1 Then
Range ("C" & Insmot).Value = "F" 
end If
ActiveCell.Offset(0, 3) = CDate(Me.TxtB_DateNaissance)
ActiveCell.Offset(0, 4) = Me.TBox_NomParrain
ActiveCell.Offset(0, 5) = CDate(Me.Txt_DateAdhesion)
ActiveCell.Offset(0, 6) = Me.TxtB_Numero
ActiveCell.Offset(0, 7) = Me.Cbb_Cotisation
ActiveCell.Offset(0, 8) = Me.Cbb_Bulletin
Rechercher des sujets similaires à "boutons option"