[VBA] Excel - Option button

Résolu/Fermé
eternelnoir Messages postés 15 Date d'inscription lundi 19 mai 2014 Statut Membre Dernière intervention 26 mai 2014 - 19 mai 2014 à 09:43
eternelnoir Messages postés 15 Date d'inscription lundi 19 mai 2014 Statut Membre Dernière intervention 26 mai 2014 - 21 mai 2014 à 11:28
Bonjour tout le monde.
J'ai créer des options button avec, pour le premier 2 choix et le second 4 choix, mais il semblerait que j'ai un problème avec le code car bien qu'un seul bouton ne puisse être cocher sur l'userform, si je décoche un bouton pour cocher le second (lors d'une faute de manipulation par exemple) je retrouve cochées les deux cases correspondantes sur la feuille excel alors que seule celle correspondant au dernier bouton choisi devrait apparaitre.
Je vous prie de bien vouloir m'aider, je suis vraiment a bout de nerf a force d'y avoir passer énormément de temps et merci d'avance ....
A voir également:

1 réponse

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
19 mai 2014 à 09:56
Bonjour,

Merci de déposer le fichier xls (réduit au nécessaire et anonymisé, avec les explications et éventuellement le résultat attendu) sur cjoint.com et coller ici le lien fourni.

eric
1
eternelnoir Messages postés 15 Date d'inscription lundi 19 mai 2014 Statut Membre Dernière intervention 26 mai 2014
19 mai 2014 à 10:44
J'ai créer des options button avec, pour le premier 2 choix et le second 4 choix, mais il semblerait que j'ai un problème avec le code car bien qu'un seul bouton ne puisse être cocher sur l'userform, si je décoche un bouton pour cocher le second (lors d'une faute de manipulation par exemple) je retrouve cochées les deux cases correspondantes sur la feuille excel alors que seule celle correspondant au dernier bouton choisi devrait apparaitre.
En d'autres termes, je voudrais qu'en cochant par exemple "homme" puis "femme" sur userform, seule la case "femme" soit cochée (par un 1) sur excel.
Voici ci-joint le lien et merci d'avance eric.
https://www.cjoint.com/?0EtkLXPOqle
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
19 mai 2014 à 12:35
Il te suffit d'effacer la plage :
Private Sub OptionButton1_Change()
    [D3:E3].ClearContents
    [D3] = OptionButton1.Tag
End Sub

e;ri
0
eternelnoir Messages postés 15 Date d'inscription lundi 19 mai 2014 Statut Membre Dernière intervention 26 mai 2014
19 mai 2014 à 13:29
Ouuuf ! Merci eric, ca marche enfin.
serais-ce trop te demander de me dépanner aussi par rapport au fait que je voudrais imposer le format date sur userform et MERCI POUR TOUT.
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
19 mai 2014 à 14:54
Pourquoi vouloir imposer un format de saisie ?
Ce qui t'intéresse c'est l'affichage sur te feuille et ça se fait avec un format de cellule.

A la limite reformate ton textbox à la sortie que l'utilisateur voit l'interprétation de sa date avec :
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox2 = Format(CDate(TextBox2), "dd/mm/yyyy")
End Sub

mais au moins il peut saisir 15/03 ou 15-03 ou 15-3-14 si il préfère.

eric
0
eternelnoir Messages postés 15 Date d'inscription lundi 19 mai 2014 Statut Membre Dernière intervention 26 mai 2014
19 mai 2014 à 15:50
MERCI INFINIMENT, tu m'as vraiment été d'une précieuse aide.

Eternelnoir
0