Activer un bouton de commande en fonction d'une listebox

Bonjour,

Je suis débutante dans vba, j'ai créer un formulaire pour destocker des produits.

Je souhaiterais que l'on ne puisse cliquer sur le bouton valider que si ma listbox n'est pas vide afin de ne pas créer une ligne vide à mon tableau.

J'ai essayé le code :

Private Sub UserForm_Initialize()

If ListBox1.ListCount <> 0 Then
Cbtvalider.Enabled = False
End If

If Col2 = "" Then
Me.lbltype.Visible = False
Me.Col3.Visible = False
Me.lblnomrecette.Visible = False
Me.Col4.Visible = False
Me.Lblrefrecette.Visible = False
Me.Col5.Visible = False
Me.lblqtépré.Visible = False
Me.Col6.Visible = False
Me.lblreftridi.Visible = False
Me.Col7.Visible = False
Me.lblnom.Visible = False
Me.Col8.Visible = False
Me.lblmotifsortie.Visible = False
Me.col9.Visible = False
Me.lblqteutilisé.Visible = False
Me.col10.Visible = False

Me.lblmessage1 = "Veuillez entrer la date et la catégorie (recette ou ingrédient) du destock."
End If

End Sub

Mais lorsque je remplis ma listbox1 le bouton reste inactif.

Vous remerciant par avance de votre retour,

Aurélie

Bonjour,

On ne voit pas comment vous chargez votre listbox. Vous n'auriez pas oublié quelque chose ?

Il vous faut joindre un fichier test.

Rechercher des sujets similaires à "activer bouton commande fonction listebox"