XL 2016 CheckBox et OptionButon

[Parti.]

Bonjour à toutes et à tous !

J'ai trouvé beaucoup de réponses concernant ce que je cherche, mais chaque fois soit je n'ai pas réussi à l'adapter, soit ça ne correspondait pas à mes besoins...
Précision : je suis d'un niveau très faible en VBA, si je suis déjà allé aussi loin c'est uniquement grâce à votre aide (surtout JM27 🙏).

J'ai deux problèmes :
- J'ai un formulaire avec des CheckBox, et quand je coche les cases pour les retrouver dans la feuille "Commande", les résultats vont toujours sur la ligne 3
, remplaçant chaque fois le résultat précédent, au lieu d'aller juste en dessous, sur la ligne correspondant à la nouvelle entrée du formulaire.

- Ensuite, mais c'est plus optionnel, je n'arrive pas à remplacer les ComboBoxCivilité et ComboTps par des OptionButon, tout en résupérant les résultats dans la feuille "Commande" pour les deux, et dans la feuille "BD Patients" pour la civilité.

La userform est en vrac, je sais, mais j'ai changé si souvent que j'attends à présent que tout fonctionne pour la mettre en forme...

Quelqu'un pourrait-il m'aider ?...

Merci d'avance...

 

[JM27]

Qu'est ce qu'il y a devant le dim.
Il faut bien lire les messages

 

[Parti.]

J'ai trouvé !
Je l'ai mis dans les Private sub, selon les boutons, et ça fonctionne nickel !!!

 

[JM27]

quand tu auras fini.
tu postes ton fichier et je me ferais un plaisir de le tester.

 

[Parti.]

C'était bien prévu 👍 😀
Je le mets donc à dispo pour le forum, si ça intéresse quelqu'un d'aussi nul que moi, d'ici quelques années...

 

[Parti.]

Je vais peut-être même faire en sorte que si on coche une des cases, l'option VSL disparaisse et que l'option Ambulance soit cochée d'office, ce qui serait plus logique, mais çà c'est pour quand j'aurai moins mal au crâne ! 😆
Je suis dessus, je tâtonne, mais j'avance !

 

[JM27]

Civilité non renseigné ( grave , surtout pour les saisies suivantes)
moyen de transport non renseigné
et pourtant le transfert dans la base de données se fait !!!
quand on fais une appli , il faut se mettre dans la peau de l'opérateur le plus vicieux, qui ne connais pas forcément excel, cela ne doit jamais planter , si cela se produit c'est que le programme est mal fait.

Après une validation , les optionButton ont une valeur vide , alors qu'ils ne devrait avoir comme valeur que false ou true (pas grave)(valeur en grisée des optionButton)

fais une validation sans documenter la date de naissance et regardes ce qui se passe

de plus tu peux virer l'api sleep, car tu l'as supprimé

bon courage 😀

 

[Parti.]

J'arrive à faire disparaître VSL si je coche une des cases mais :
- il ne réapparaît pas si je la décoche
- Il ne valide pas Ambulance si une des cases est cochée.

Je bosse dessus.

 

[Parti.]

L'api sleep est toujours en sortie de formulaire, non ?
La date de naissance sera obligatoire, comme presque tous les champs, d'ailleurs...
Je vais décortiquer ce que tu m'as expliqué.

Merci 😉

 

[Parti.]

Les civilités sont renseignées sur l'exemplaire que j'ai...

 

[JM27]

re

 

[ChTi160]

Re
pourquoi pas masquer le Frame a l'ouverture et l'afficher au choix Ambulance !
jean marie

 

[Parti.]

En effet,quand on ne les saisis pas, elles ne sont pas obligatoires, je ne sais pas comment les rendre obligatoires en saisie avec des boutons...

 

[Parti.]

Re
pourquoi pas masquer le Frame a l'ouverture et l'afficher au choix Ambulance !
jean marie

Oui c'était ce que j'avais au début, mais comme je ne savais pas où le placer, ça bugait...
Pour le moment ma meilleure version enlève l'affichage quand on coche VSL.
Je pense en rester là...

 

[ChTi160]

Re
voilà ce que j'ai modifié
j'ai ainsi pu supprimer la procédure

Private Sub OptbtnVSL_Change()

j'ai aussi ajouter ceci pour masquer le Frame4 a l'ouverture

    Me.Height = 27
    Me.Width = 93
    Me.Frame4.Visible = False 'Ici je masque le Frame dans l'activate du Userform

Private Sub OptbtnAmb_Change()
Dim OkChange As Boolean
With UserFormTransport
OkChange = .FrameTps.OptbtnAmb.Value
  With .Frame4
       .ChkBxContentions.Value = Not OkChange
       .ChkBxBar.Value = Not OkChange
       .ChkBxBMR.Value = Not OkChange
       .ChkBxCOV.Value = Not OkChange
       .ChkBxO2.Value = Not OkChange
       .Visible = OkChange
  End With
End With
End Sub

jean marie

 

[Parti.]

Le 2è code pour masquer, tu le mets où ?
Super, ça décoche les options si on valide le VSL !