Affichage si condition vrai

[Myst]

Bonjour le forum
j'ai une petite demande

Dans l'userform "BOBINES_INCOMPLETES" il y a les combobox1 et checkbox1
La selection du combobox s'affiche dans le Label9
Lorsque je coche le checkbox1 le texte "NCD06B" s'affiche dans le Label5

je cherche a autoriser l'affichage du texte "NCD06B" dans le Label5 seulement si je sélectionne "F963R Colle N" dans le ComboBox1
merci

 

[Paf]

Re : Affichage si condition vrai

Bonjour Myst

une solution possible:

rajouter en début de code de Private Sub CheckBox1_Click()

If ComboBox1 <> "F963R Colle N" Then ' ou ComboBox1.ListIndex <> 0 si F963R Colle N est tjs en tête de combobox
    CheckBox1 = False
    Exit Sub
End If

A+

 

[Myst]

Re : Affichage si condition vrai

Bonsoir Paf
Ça fonctionne mais après avoir coché le checkbox1 et donc affiché le texte "NCD06B" on peut toujours modifier la sélection dans le combobox1 alors que la seul condition pour l'affichage du texte "NCD06B" est que la sélection dans le combobox sois "F963R Colle N"

 

[Paf]

Re : Affichage si condition vrai

Re

rajouter dans Private Sub ComboBox1_Change()

If ComboBox1 <> "F963R Colle N" Then ' ou ComboBox1.ListIndex <> 0 si F963R Colle N est tjs en tête de combobox
    CheckBox1 = False
    Label5 = ""
End If

A+

 

[Myst]

Re : Affichage si condition vrai

Re
C'est parfait 😉 ,une dernière chose, si je veux un message pour indiquer lors d'un clique sur le checkbox1 que seul la sélection "F963R Colle N" dans le combobox1 donne accès a l'affichage de "NCD06B" .
Seulement lorsque le combobox1 indique autre chose que "F963R Colle N" sinon pas de message
Un grand merci a toi Paf

 

[Paf]

Re : Affichage si condition vrai

re,

rajouter une mgbox dans le If proposé au post #2, avant le Exit Sub:

MsgBox "seule la sélection ""F963R Colle N"" donne accès a l'affichage de ""NCD06B"" "

une autre solution aurait été de masqué la Checkbox et ne l'afficher que si on a F963R Colle N dans la Combobox.

A+

 

[Myst]

Re : Affichage si condition vrai

Bonjour Paf ,le forum

Ton idée de rendre visible la CheckBox seulement sur la sélection " F963R Colle N "dans la Combobox me parait effectivement meilleur
Je met la propriété de la CheckBox sur Visible=False , et pour la condition ?
merci

 

[Paf]

Re : Affichage si condition vrai

re,

supprimer les codes proposés et :

Private Sub ComboBox1_Change()
 CheckBox1.Visible = IIf(ComboBox1 = "F963R Colle N", True, False)
 If ComboBox1 <> "F963R Colle N" Then
    Label5 = ""
    CheckBox1 = False
 End If
 Label9.Caption = ComboBox1.Value
End Sub

A+

 

[Myst]

Re : Affichage si condition vrai

Re,
Super idée ,merci ,beaucoup plus simple comme ça
Dernière question ,pour copier le label5 dans la cellule d'une page ?
Sheets("BOBINES INCOMPLETES").Range("A6") = Label5 'ne fonctionne pas en temps réel en fonction des cliques dans la CheckBox1

 

[Paf]

Re : Affichage si condition vrai

Re,

Ben..., à chaque fois que l'on a le code Label5 = "NCD06B", rajouter Sheets("BOBINES INCOMPLETES").Range("A6") = Label5
et pour chaque Label5 = "" rajouter Sheets("BOBINES INCOMPLETES").Range("A6") = ""

et ça le fait en temps réel.

Rajouter dans Private Sub UserForm_Initialize()
Sheets("BOBINES INCOMPLETES").Range("A6") = ""

Bonne suite

 

[Myst]

Re : Affichage si condition vrai

Un grand merci paf 😉
a+