Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Récupérer le nom d'une CheckBox

  • Initiateur de la discussion Initiateur de la discussion paul87
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

paul87

XLDnaute Impliqué
Bonjour à tous, Bonjour le Forum,
dans le modèle que je joint en PJ,
un calcul s'effectue pour déterminer entre autre, le critère le plus ancien (en date et heure) et le critère le plus récent.
Dans mon appli finale, qui contient beaucoup plus de checkbox l'affichage du nom des checkbox est maintenant indispensable...sinon l'utilisateur n'y comprends plus rien.
pour le modèle joint
J'ai donc besoin de faire afficher dans les textbox1 et textbox2
le nom des checkbox (caption) qui correspontd au résultat trouvé..
soit critère 1 soit critère 2 soit critère 3 soit critère 4
si quelqu'un avait une idée...car là je sèche..
Merci
 

Pièces jointes

Re : Récupérer le nom d'une CheckBox

Re-bonjour..
Finalement..
avec ça, ça marche....!!!
Code:
  If MaDateMini = Tbx_Date1.Value Then TextBox1.Value = CheckBox1.Caption
  If MaDateMini = Tbx_Date2.Value Then TextBox1.Value = CheckBox2.Caption
  If MaDateMini = Tbx_Date3.Value Then TextBox1.Value = CheckBox3.Caption
  If MaDateMini = Tbx_Date4.Value Then TextBox1.Value = CheckBox4.Caption
 
Re : Récupérer le nom d'une CheckBox

Bonjour paul, bonjour le forum,

Je suis pas sûr d'avoir bien compris... Je te propose le code suivant pour tes CheckBoxes :
Code:
Private Sub CheckBox1_Click()
With CheckBox1
    CommandButton2.Visible = IIf(.Value = True, True, False)
    Tbx_Date1.Visible = IIf(.Value = True, True, False)
    SpinButton1.Visible = IIf(.Value = True, True, False)
    SpinButton2.Visible = IIf(.Value = True, True, False)
    TextBox1.Value = IIf(.Value = True, .Caption, "")
    TextBox2.Value = IIf(.Value = True, .Caption, "")
End With
End Sub
Les lignes qui t'intéressent sont les deux dernières les autres ne sont qu'une simplification du code.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
O
Réponses
4
Affichages
2 K
Optimal
O
Y
  • Question Question
Réponses
1
Affichages
1 K
ynx69
Y
F
Réponses
0
Affichages
2 K
Fredooooo
F
Y
Réponses
11
Affichages
3 K
Y
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…