XL 2016 CheckBox et OptionButon

Choco2x · 13 Décembre 2020

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...

ChTi160 · 14 Décembre 2020

Re
je dois pas avoir le bon fichier pas de feuille" Commande" Lol
dans mon fichier je vois que rien est mis dans la colonne "A"
jean marie

Choco2x · 14 Décembre 2020

JM27 à dit:
moi je sais que cela ne marche pas( cela plante) sans parler du transfert des données.
Mets toi à la place des infirmières quand elle verront un déboggage , et de plus quand elles verront une ligne de données écrasée par une autre.
et je sais pourquoi.
un indice : voir dans le #111

Quand je disais que ça marchait, je voulais dire "une fois repris la correction de ton fichier !"
C'est pour çà que je disais "sauf erreur de ma part", car je pense n'avoir oublié aucune modification...
Sauf pour obliger la saisie du mode de transport, ne pas avoir "contentions" alors qu'après réflexion finalement on a choisi "vsl", etc, mais là je verrai çà demain...

JM27 · 14 Décembre 2020

Je ne sais si j'ai compris

Sauf pour obliger la saisie du mode de transport, ne pas avoir "contentions" alors qu'après réflexion finalement on a choisi "vsl", etc, mais là je verrai çà demain...

pour moi c'est de l'Hébreu
la logique pour moi veut :
que l'on sélectionnes ambulance ou VSL d'abord et ensuite si ambulance on affichage de la frame avec les checkBox.
et non pas affichage de la frame et si une des valeurs est saisie , on coche Ambulance.

pour info : les tags des champs dans mon userform sont gérés différemment . ( il sont documentées par le programme)

ChTi160 · 14 Décembre 2020

Re voir #116 lol

JM27 · 14 Décembre 2020

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

C'est bien ce qui est fait dans mon fichier ?
la propriété de la frame est à visible=false
j'ai l'impression comme toi que l'on n'a pas son fichier
je pense que je vais m'arrêter là

ChTi160 · 14 Décembre 2020

Re
Pour éviter l'erreur au niveau des "OptionButton" et autres "CheckBox" ex : Ambulance par exemple
j'ai modifié la procédure qui efface les Controls.
car .Value ="" sur ces Controls ca passe pas Lol

VB:

Sub RAZDonnées()
     ' remise à blanc des objets de 'userform ayant une propriété tag
     For Each ctrl In Me.Controls
             If ctrl.Tag <> "" Then
                Select Case TypeName(ctrl)
                       Case "TextBox"
                         ctrl.Text = ""
                       Case "ComboBox"
                         ctrl.Value = ""
                       Case "CheckBox"
                         ctrl.Value = False
                       Case "OptionButton"
                         ctrl.Value = False
                End Select
             End If
         Next
         ' J'efface la liste du déroulant prénom
    Me.ComboPrénom.Clear
End Sub

jean marie

JM27 · 14 Décembre 2020

Re celle qui était dans mon fichier
Je savais que le pb étais la

VB:

Sub RAZDonnées()
     ' remise à blanc des objets de 'userform ayant une propriété tag
     For Each Ctrl In Me.Controls
             If Ctrl.Tag <> "" Then
                    
                    If TypeName(Ctrl) = "OptionButton" Or TypeName(Ctrl) = "CheckBox" Then
                        Ctrl.Value = False
                        Ctrl.BackColor = &H80000018
                    Else
                        Ctrl.Value = ""
                        Ctrl.BackColor = &H80000005
                    End If
            End If
         Next
         ' J'efface la liste du déroiulant prénom
    Me.ComboPrénom.Clear
    Frame2.Visible = False
End Sub

ChTi160 · 14 Décembre 2020

JM27 · 14 Décembre 2020

ChTi160 à dit:
Mdr

en plus si tu regarde le post 111 , je l'avais mis sur la voie

Valeur de checkbox ou OptButton null ou"" au au lieu de false ou true

issu du post 111 de 14h23

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)

Choco2x · 15 Décembre 2020

...mais comme je suis nul et en plus au boulot...

Ce que je voulais dire, c'est que les valeurs des chkbox O² etc ne sont pas transposées si on les coche pour ensuite passer en VSL, sauf pour l'option"Contentions", qui reste validée dans le bon de commande même si on a finalement choisi VSL et donc fait disparaître la frame.
Je regarde çà dés que possible, mais l'aide et l'enseignement que vous m'avez apporté sont énormes, même si oui, je partais de loin !
Je me rend compte qu'on peut toujours trouver d'autres améliorations à apporter, c'est sans fin.
Alors en effet, je pense qu'on va s'arrêter là, le résultat est super l

Mille mercis à vous pour cette aide précieuse !
Bonne fin de journée à toutes et à tous !

ChTi160 · 15 Décembre 2020

Bonjour Choco2X
Bonjour le Fil (JM) ,le Forum

il te faut vérifier que ce CheckBox "Contentions" est mis a False comme les autres , Lorsqu'il le faut!
Bonne journée
jean marie

Choco2x · 15 Décembre 2020

En fait il était mal nommé, mais merci beaucoup !!

XL 2016 CheckBox et OptionButon

Choco2x

XLDnaute Occasionnel

Pièces jointes

ChTi160

XLDnaute Barbatruc

Choco2x

XLDnaute Occasionnel

JM27

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

Choco2x

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Choco2x

XLDnaute Occasionnel

Discussions similaires