bouton userform

[Dave de grenoble sur chaune]

bonjours mes amis

j'ai un petit probleme tout simple sur lequel je bloque
j'ai un userform, dessus j'ai le choix entre 3 option.
je choisis une option et je click sur validation.
je voudrais que si aucune option est choisis il se passe rien quand je click sur validation

voila comment spresente mon userform

Private Sub CommandButton1_Click()
Unload UserForm1
Select Case Me.LbxMacro.ListIndex
Case 0: secteur = 0
Case 1: secteur = 1
Case 2: secteur = 2
End Select

End Sub
Private Sub UserForm_Initialize()
With Me.LbxMacro
.ListStyle = fmListStyleOption
.AddItem 'Les deux dernières'
.AddItem 'A partir de la seconde valeur,l'ecart étant de : ' & ec1
.AddItem 'A partir de la Première valeur,l'ecart étant de : ' & ec2
End With
End Sub


il doit y avoir une petite ligne a rajouter je pense
@+++ dave de grenoble sur chaune

 

[PascalXLD]

Bonjour

essaies

Private Sub CommandButton1_Click()

Select Case Me.LbxMacro.ListIndex
case -1 : exit sub
Case 0: secteur = 0
Case 1: secteur = 1
Case 2: secteur = 2

End Select
Unload UserForm1

End Sub

bon courage

 

[Dave de grenoble sur chaune]

encore une fois merci Pascal, ca marcheeee 🙂