[VBA] Excel - Option button

Résolu
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 -
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

Réponse 1 / 1
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 273
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 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 273
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 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 273
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

Discussions similaires

Power Button Lockout...
yelrak -
juju -

Bonjour,

Je possède depuis peu un écran HP LA2205wg relié à mon pc portable. Problème: depuis peu, je ne peux plus ni allumer, ni éteindre l'écran, l'étiquette "Power Button Lockout" s'affiche.
Habituée des forums, j'ai compris qu'il s'agissait du bouton verrouillé, et ai essayé de tenir le bouton appuyer 10sec, puis 15, puis 30 (comme conseiller sur divers sites), et rien n'y a fait, l'écran ne réagit à rien...

Une idée ?
Merci d'avance pour vos réponses.

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
Option de connexion est désactivé sur pc HP
franky95 -
georges97 -

Bonjour,  Voilà, ça fait 3 jours que mon pc est bloqué. Quand j allume mon pc HP, ensuite quand ça me demande mon code confidentiel pour ouvrir ma page du bureau, je mets mon code et ça me met" Cette option de connexion est désactivée en raison des echecs des tentatives de connexion ou des arrêts répétés.Utilisez une autre option de connexion ou laissez votre appareil allumé pendant au moins 2 heures, puis réessayez " J'ai essayé une autre option de connexion mais impossible de me souvenir de mes identifiants et en recherchant sur Microsoft ça ne passe pas non plus et ça fait 3 jours que le pc est ouvert et allumé et toujours rien.  Que dois je faire? Est ce que le fait que le pc se mette...

2 réponses
Ecran IIyama GB2773HS-2 OSD Vérrouillé
Exil -
667audiodopeaudiocrystalmeth -

Bonjour

Le problème est tout dans le titre, j'ai suivit les instructions sur la notice, d'autres sur internet, j'ai pas le moyen de régler le problème de l'OSD Vérrouillé.

Voilà ce que j'ai :
-OSD Vérrouillé.
-Pas de signal ( donc en gros j'ai même pas l'affichage de base donc il passe sous tension )
-Aucune des manipulations n'a fonctionnées.

Je vous remerci d'avance de l'aide que vous pouvez tous fournir

6 réponses