Combox

[jeromeN95]

Bonjour le forum,
voici encore un de mes problemes :
A l'ouverture de mon fichier j'ai crée une Combox avec une liste déroulante de choix.
Sur celle-ci, je souhaite obliger l'utilisateur à sélectionner un nom.
Il y a un bouton valider et j'ai inhiber le bouton fermer "x".

Mais il peut quand meme cliquer sur Valider meme s'il n'a rien sélectionner.

Une idée pour empecher ça?



Voici mon code :



'Sélection du nom dans la liste

Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then
If txtInt <> 2 Then
MsgBox ("vous n'avez pas rentré de texte, veuillez en entrer un pour que ce soit pris en compte")
End If
cbTest.DropDownStyle = ComboBoxStyle.DropDownList
[A3] = UserForm1.ComboBox1
Unload UserForm1
End Sub

'Bouton valider et fermer la fenetre
Private Sub Bt_Valider_Click()
[A3] = UserForm1.ComboBox1

Unload UserForm1
End Sub
'Lorsque l'uitilisateur clique sur lacroix "x" de fermeture :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Pour fermer ce formulaire, sélectionner votre nom !", vbOKOnly + vbInformation
Cancel = True
End If
End Sub

 

[youky(BJ)]

Re : Combox

Bonjour,
sans doute comme ceci
'Bouton valider et fermer la fenetre
Private Sub Bt_Valider_Click()
If Combobox1.Listindex>-1 then [A3] = UserForm1.ComboBox1

Bruno

 

[jeromeN95]

Re : Combox

Salut Bruno,
hyper rapide mais j'arrive à cliquer sur mon bouton Valider meme sans entrer de nom....

 

[jeromeN95]

Re : Combox

oki, j'ai trouver la solution :

'Sélection du nom dans la liste

Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then
MsgBox ("Pour fermer ce formulaire, sélectionner votre nom !")
End If

[A3] = UserForm1.ComboBox1
Unload UserForm1
End Sub

'Bouton valider et fermer la fenetre
Private Sub Bt_Valider_Click()
If ComboBox1.ListIndex > -1 Then [A3] = UserForm1.ComboBox1
If ComboBox1.Text = "" Then
MsgBox ("Pour fermer ce formulaire, sélectionner votre nom !")


End If

End Sub
'Lorsque l'uitilisateur clique sur lacroix "x" de fermeture :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Pour fermer ce formulaire, sélectionner votre nom !", vbOKOnly + vbInformation
Cancel = True
End If
End Sub


Merci a tous et bon courage.;;;

 

[Habitude]

Re : Combox

Dans le Initialize

Force la choix à ta combo

combobox1.listIndex=0

Un choix devient donc inévitable

 

[jeromeN95]

Re : Combox

OK merci
et comment tu le fait pour la croix d'excel???

ou mieux encore, supprimer la barre d'excel (celle avec le titre)???

Merci.

 

[youky(BJ)]

Re : Combox

Jérome,
Si tu veux pas de barre de titre voici un exemple
mais Pffff, ta macro fonctionne bien je pense.
Provenance du fichier ..... Excelabo
Bruno

 

[jeromeN95]

Re : Combox

ok merci
A+