Message ObtionButton

[maval]

Bonjour


Pour ouvrir la Combobox je doit cocher l'OptionButton1.
Je suis à la recherche d'un code message que si j'essai d'ouvrir la combobox sans cocher l'OptionButton1 un message me dit de cocher d'abord l'OptionButton1 pour pouvoir ouvrir la Combobox

Je joint un fichier exemple

Je vous remerci de votre aide

 

[xhudi69]

Re : Message ObtionButton

Bonjour maval , le Forum,

Comme cei peut-être:

Private Sub ComboBox1_DropButtonClick()
If OptionButton1.Value = 0 Then
    MsgBox "vous devez d'abord valider votre choix", vbCritical, "ATTENTION"
    OptionButton1.SetFocus
    Exit Sub
End If
End Sub

@+ 😎

 

[maval]

Re : Message ObtionButton

Bonjour Xhudi69,

Je ne comprend pas chez moi sa ne fonctionne pas?
Sa fonctionne t-il chez toi?
@+

 

[maval]

Re : Message ObtionButton

Re,

A oui j'avais la combobox qui avait la propriété en "Enabled"

Maintenant sa fonctionne Je te remercie et te souhaite un bon WE

 

[xhudi69]

Re : Message ObtionButton

Bonjour maval, le Forum,

En PJ ton fichier, effectivement, il faut mettre l'Enable à True.

@+😎

 

[JBARBE]

Re : Message ObtionButton

Bonjour à tous,

Peut-être ceci !

bonne journée

 

[Si...]

Re : Message ObtionButton

salut

Si... au départ, la propriété Visible de ComboBox1 est à False, ne serait-ce pas mieux avec une case à cocher et simplement

Private Sub CheckBox1_Click()
  ComboBox1.Visible = CheckBox1
End Sub

?

 

[JBARBE]

Re : Message ObtionButton

salut

Si... au départ, la propriété Visible de ComboBox1 est à False, ne serait-ce pas mieux avec une case à cocher et simplement

Private Sub CheckBox1_Click()
  ComboBox1.Visible = CheckBox1
End Sub

?

Exact et ma macro du fichier précédent pouvait être simplifiée en :

Private Sub OptionButton1_Change()
If UserForm1.OptionButton1 = True Then
ComboBox1.Visible = True
End If
End Sub

Mais ta macro est plus simple et l'on peut cliqueter pour annuler la sélection également !
simple étourderie !

bonne soirée

 

[maval]

Re : Message ObtionButton

Bonsoir Si..,JBARBE, xhudi69,

Je vous remercie beaucoup et vous souhaite une bonne soirée

 

[maval]

Re : Message ObtionButton

Bonjour à tous et bon dimanche,

Suite au code de xhudi69 que je salut et remercie au passage je viens de voir que pour deux ObtionButton c'était beaucoup plus difficile que je le penser. j'ai modifier mon code comme ceci:

Private Sub ComboBox1_DropButtonClick()
If OptionButton1.Value = 0 Then
     MsgBox "vous devez d'abord valider votre choix", vbCritical, "ATTENTION"
     OptionButton1.SetFocus
     Exit Sub
 End If
 
 If OptionButton2.Value = 0 Then
     MsgBox "vous devez d'abord valider votre choix", vbCritical, "ATTENTION"
     OptionButton2.SetFocus
     Exit Sub
 End If
 
 
End Sub

Mais il doit manquer quelque chose au milieu, pour lui dire . Si l'OptionButton1 ou le OptionButton2 n'est pas cocher alors le message "MsgBox "vous devez d'abord valider votre choix", vbCritical, "ATTENTION"

Merci de votre aide

 

[laetitia90]

Re : Message ObtionButton

bonjour tous 🙂🙂

Private Sub ComboBox1_DropButtonClick()
  If Not OptionButton1 And Not OptionButton2 Then
  MsgBox "vous devez d'abord valider votre choix", vbCritical, "ATTENTION"
  OptionButton1.SetFocus
  Exit Sub
  End If
End Sub

 

[maval]

Re : Message ObtionButton

Bonjour Laetitia,

Merci beaucoup sa fonctionne Nickel

Bon dimanche

@+

 

[Si...]

Re : Message ObtionButton

salut 😀

l'instruction OptionButton1.SetFocus ne me semble pas utile.

AusSi... autre possibilité :

Private Sub ComboBox1_DropButtonClick()
  If OptionButton1 + OptionButton2 <> 0 Then Exit Sub
  MsgBox "vous devez d'abord valider votre choix", vbCritical, "ATTENTION"
End Sub

 

[maval]

Re : Message ObtionButton

Bonjour Si

Si elle est utile car si je la supprime j'ai un message d'erreur

@+

 

[laetitia90]

Re : Message ObtionButton

re tous🙂🙂

pour un utilisateur qui connais pas la demarche a suivre c'est plus "sympa" pour lui de le prevenir avant de ce qu'il doit faire................. a mon avis 🙂

une demarche un peu differente dans ce sens ...... a ameliorer