[VBA] Excel - Option button

Résolu

eternelnoir Messages postés 17 Statut Membre -
eternelnoir Messages postés 17 Statut Membre - 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 ....

Afficher la suite

1 réponse

Réponse 1 / 1
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281

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
1. eternelnoir Messages postés 17 Statut Membre
  
  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
2. eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
  
  Il te suffit d'effacer la plage :
  Private Sub OptionButton1_Change() [D3:E3].ClearContents [D3] = OptionButton1.Tag End Sub
  
  e;ri
  
  0
3. eternelnoir Messages postés 17 Statut Membre
  
  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
4. eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
  
  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
5. eternelnoir Messages postés 17 Statut Membre
  
  MERCI INFINIMENT, tu m'as vraiment été d'une précieuse aide.
  
  Eternelnoir
  
  0

[VBA] Excel - Option button

1 réponse

Discussions similaires

Newsletters