Limite listbox 2 conditions

Bonjour à tous

Dans mon userform je souhaite limiter le nombre maximum d’items et cela fonctionne avec le code

If ListBox1.ListCount < 7 Then ' 7 = limite le nombre a 7 dans la listbox
   ListBox1.AddItem TextBox1.Text 
   TextBox1.Text = ""
   TextBox1.SetFocus
'   lblcount.Caption = ListBox1.ListCount 'compteur
   ListBox1.ListIndex = ListBox1.ListCount - 1
End If

With Me
 .CommandButton1.Enabled = ListBox1.ListCount < 7 
 .TextBox1.Enabled = ListBox1.ListCount < 7 ' desactive la saisie dans la textbox
 End With

Ma question :

Comment faire pour limiter le nombre d’items selon la valeur de la cellule E2 sans pouvoir depasser le MAXI qui et a 7

Merci de votre aide

meteo62 a écrit :

With Me
 .CommandButton1.Enabled = ListBox1.ListCount < 7 
 .TextBox1.Enabled = ListBox1.ListCount < 7 ' desactive la saisie dans la textbox
 End With

Bonjour,

Remplace par le code suivant :

With Me
 .CommandButton1.Enabled = ListBox1.ListCount < WorksheetFunction.Min(7, Range("E2")) 'desactive le bouton ajouter
 .TextBox1.Enabled = ListBox1.ListCount < WorksheetFunction.Min(7, Range("E2")) ' desactive la saisie dans la textbox
End With

merci pour t'a réponse