XL 2016 CheckBox et OptionButon

C

Choco2x

XLDnaute Occasionnel

• 13 Décembre 2020

• #91

Tout fonctionne nickel, semble-t-il...
J'essaye de comprendre...

Je crée un module à part et je mets tout en haut :

dim LigneDeTransfert As Long
With Sheets("BD patients")
LigneDeTransfert = .Range("A10000").End(xlUp).Row + 1
.Range("A" & LigneDeTransfert) = Sheets("Commande").Range("A" & LigneDeDestination)
.Range("B" & LigneDeTransfert) = Me.ComboNom
.Range("C" & LigneDeTransfert) = Me.ComboPrénom
.Range("D" & LigneDeTransfert) = CDate(Me.TxtDateDeNaissance)
End With


C'est bien çà ? Rien de plus rien de moins ?

(Je ne sais pas reporter l'indentation ici, mais elle est bien là dans mon fichier)

 

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 13 Décembre 2020

• #92

Je dois prendre la route, là.

J'essaye de comprendre demain, mais c'est pas gagné... A tête reposée, peut-être...

Merci beaucoup en tout cas pour toute cette aide...



Bonne fin de soirée...

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 14 Décembre 2020

• #93

bonjour
voir post #86

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 14 Décembre 2020

• #94

Bonjour Choco2x
Bonjour JM ,le Forum
Un fichier modifié qui semble répondre à la demande Lol
Bonne journée
jean marie

 

Pièces jointes

• Transport Hopital Chti160-1.xlsm

  83 KB · Affichages: 7

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 14 Décembre 2020

• #95

Bonjour le forum !

Merci ChTi pour ce fichier !
Et merci JM d'avoir continué à te pencher dessus !

ChTi > Le mien fonctionnait impec', mais comme JM me demandait des modifs que je suis incapable de faire à mon niveau, j'imagine que ton fichier sera plus sûr que le mien !

Est-il possible, pour terminer, promis !, de faire en sorte que les cases à cocher soient invalides quand on demande un VSL ?
Ou sinon mettre une Msgbox si on demande un VSL en ayant une des cases cochées, même si c'est dans la feuille ? Ou modifier les transport automatiquement sur "Ambulance" avec une Msgbox qui prévient ? Qu'est-ce qui serait le plus simple à réaliser ?
En gros, tant qu'on coche une case, il s'agit forcément d'une ambulance...

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 14 Décembre 2020

• #96

Bonjour
Effectivement cela marche
mais moi j'aurai mis
Mais les deux marchent

Code:

If TypeName(ctrl) = "checkBox" Then
                            If ctrl.Value = True Then .Cells(LigneDeDestination, CByte(Split(ctrl.Tag, " ")(0))) = "X"
                       ElseIf TypeName(ctrl) = "OptionButton" Then
                            If ctrl.Value = True Then .Cells(LigneDeDestination, CByte(Split(ctrl.Tag, " ")(0))) = ctrl.Caption
                       Else
                        .Cells(LigneDeDestination, CByte(Split(ctrl.Tag, " ")(0))) = ctrl.Value

a la place de

VB:

 Select Case CInt(Split(ctrl.Tag, " ")(0))
                           Case 1, 6
                               If ctrl.Value = True Then .Cells(LigneDeDestination, CByte(Split(ctrl.Tag, " ")(0))) = ctrl.Caption
                           Case 13 To 17
                               If ctrl.Value = True Then .Cells(LigneDeDestination, CByte(Split(ctrl.Tag, " ")(0))) = "X"
                           Case Else 'ajout ici
                        ' Transfert des strings
                           .Cells(LigneDeDestination, CByte(Split(ctrl.Tag, " ")(0))) = ctrl.Value

 

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 14 Décembre 2020

• #97

J'ai remis le transfert de la civilité du post 86, justement, dans le fichier de ChTi...
Mais comme je ne sais pas ce que veut dire "ne pas oublier de déclarer en début de macro LigneDeTransfert en integer ou long "...
Pourtant, ça fonctionne super bien ! (pour le moment...).

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 14 Décembre 2020

• #98

Re
ce que tu peux faire , c'est inhiber l'accès au Frame qui contient les "checkBox" en fonction du Choix de mode de transport .
je regarde
jean marie

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 14 Décembre 2020

• #99

@Choco2x

t'est sur que cela fonctionne nickel ?

regardes ce qui se passe après une saisie.( il faut prendre en compte les erreurs possible et inévitables des infirmières)

et si tu fais une saisie suivante , ca va très mal se passer pour la base de données

 

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 14 Décembre 2020

• #100

Je n'ai pas encore obligé les saisies des champs Nom etc.
Il me reste 2 ou 3 choses à peaufiner avant de le mettre à disposition...

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 14 Décembre 2020

• #101

Ok
une piste je te laisses réfléchir pour les zones avec optionButton

 

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 14 Décembre 2020

• #102

Je sèche...C'est rageant, car je suis certain que c'est un truc tout simple, mais je ne sais même pas si c'est dans les propriétés des objets ou un code à taper, ni où il faudrait le taper...
Quand je pense à ma toute première version qui n'était faite que de formules et de menus déroulants dynamiques !...

 

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 14 Décembre 2020

• #103

J'ai une piste...
mais je ne l'ai pas mis au bon endroit, j'ai tout planté...

 

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 14 Décembre 2020

• #104

J'ai trouvé çà :

Private Sub UserForm_Activate()

Me.Frame4.Visible = False
Me.ChkBxContentions.Visible = False
Me.ChkBxBar.Visible = False
Me.ChkBxBMR.Visible = False
Me.ChkBxCOV.Visible = False
Me.ChkBxO2.Visible = False
End Sub
Private Sub OptbtnAmb_change()

If OptbtnAmb <> 1 Then
Me.Frame4.Visible = False
Me.ChkBxContentions.Visible = False
Me.ChkBxBar.Visible = False
Me.ChkBxBMR.Visible = False
Me.ChkBxCOV.Visible = False
Me.ChkBxO2.Visible = False

Else
Me.Frame4.Visible = True
Me.ChkBxContentions.Visible = True
Me.ChkBxBar.Visible = True
Me.ChkBxBMR.Visible = True
Me.ChkBxCOV.Visible = True
Me.ChkBxO2.Visible = True
End If

End Sub

Mais comme d'habitude je ne sais pas comment l'intérgrer. Je l'ai mis juste sous "Private Sub UserForm_Activate()", et juste avant
"
Dim I As Byte
Set MonLabel"

J'ai faux ?

 

Vote positif 0 Vote négatif

C

Choco2x

XLDnaute Occasionnel

• 14 Décembre 2020

• #105

 

Vote positif 0 Vote négatif