XL 2016 CheckBox et OptionButon

[Choco2x]

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]

bonsoir
c'est pas un pb de tag
le message dit objet requis !
si je ne me trompe pas !!

 

[Choco2x]

Code ajouté, merci, mais erreur toujours présente ...

Je commence à comprendre pourquoi on me parle de ratio boulot / efficacité !

Et je me demande pourquoi les boutons existent encore, s'ils sont si galère à configurer, d'après ce que j'ai pu lire dans tous les forums...

 

[Choco2x]

Je n'ai pas de message avec le débogeur, juste le surlignage en jaune...

 

[Staple1600]

Bonjour JM27

Peu m'importe ce que dit le message.
Ce petit bout de code posté dans le message#60
pourrait servir à d'autres membres pour d'autres problématiques.
NB: Je n'ai émis aucune critique sur ton appli.
J'ai pondu un petit outil dans mon VBE (confinement oblige)
Je le poste.
Ni plus, ni moins.

 

[Staple1600]

Re

Choco2x
Mon code précédent n'est pas une solution.
Juste une aide pour lister le noms des contrôles de l'userform et leur tag associé.
C'est plus facile ainsi pour les vérifier (si besoin), non ?

 

[JM27]

J'a recrée ton pb
dans cet USF bidon
Appui de bouton test de l'usf
et ca va planter à un moment ( le même moment que toi)
@Stapple je ne me permet pas de critiquer le code des autres.
de plus cette appli ne ressemble plus du tout à ce que j'ai fais
En annexe l'appli telle que je l'ai conçu
chacun est libre d'écrire du code comme il le souhaite
Tu n'étais donc pas visé

 

[Choco2x]

Staple > Et c'est bien ainsi que je l'ai pris !
J'avais juste le petit espoir que ça pourrait changer quelque chose à mon problème, n'ayant pas tout compris au code...

JM > je ne sais plus qui s'adresse à qui, vu qu vous échangez beaucoup entre vous...
Je ne comprends pas d'où vient le problème du code, à mon minuscule niveau.

 

[Choco2x]

La portion complète, des fois que ça aide...
Il ne manque rien entre les deux "If" ? (Vous voyez mon niveau ! )

With Sheets("BD patients")
If .Range("B2") <> "" Then
For Each Cell In .Range("B2:B" & .Range("B10000").End(xlUp).Row)
On Error Resume Next
Collec1.Add Cell, CStr(Cell)
On Error GoTo 0
Next
For Itm = 1 To Collec1.Count
Me.ComboNom.AddItem Collec1.Item(Itm)
Next
Select Case Split(ctrl.Tag, " ")(0)
Case "1", "6"
If ctrl.Value = True Then .Cells(LigneDeDestination, CByte(Split(ctrl.Tag, " ")(0))) = ctrl.Caption
End Select
End If
End With
' Je tri la base de données Patient
TriBDD
End If
End If

 

[Staple1600]

@Stapple je ne me permet pas de critiquer le code des autres.

Je n'ai pas écrit que tu me critiquais
*J'ai juste précisé que je ne te critiquais pas

Bonjour JM27
...
NB: Je n'ai émis aucune critique sur ton appli.
...

*: car j'ai lu plus bas que tu étais l'auteur de l'appli d'origine.

 

[JM27]

@Staple1600
as tu regardé mon fichier test ?
et tu vas tout comprendre

 

[Staple1600]

Re

JM27
Pas encore eu le temps
Je peux pas égoutter les pâtes et être dans mon VBE en même temps!
Je finis mon petit frichti.
Je bois mon café et je te redis

 

[JM27]

Méfie toi , trop cuit = collantes
Quand je travaillais à Nardo , c'est la mamma qui disait cela

 

[Staple1600]

Re

J'ai bu mes pâtes et saupoudré mon café de quelque gramme de parmesan
Et voici comment j'évite l'erreur que tu as reproduite, JM27, dans le classeur de test.

Private Sub CommandButton1_Click()
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "TextBox" Then
    If Len(Ctrl.Tag) Then
        If Len(Ctrl) Then
            Ctrl.BackColor = RGB(0, 255, 0)
            Else
            Ctrl.BackColor = RGB(255, 0, 0)
            End If
        End If
    End If
Next
End Sub

 

[Choco2x]

 

[JM27]

C'est juste pour montrer que le boucle traites tous les contrôles de l'userform ayant un tag documenté.
un fois sorti de la boucle , on ne sais plus ce que c'est un Ctrl.(d'où plantage)
en conclusion son bout code n'a rien à faire à cet endroit là