[VBA] Excel - Option button

Résolu
eternelnoir Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
eternelnoir Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -
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 ....

1 réponse

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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   Statut Membre Dernière intervention  
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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   Statut Membre Dernière intervention  
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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   Statut Membre Dernière intervention  
 
MERCI INFINIMENT, tu m'as vraiment été d'une précieuse aide.

Eternelnoir
0