Rapport de message :*
 

Re: Modifier Userform

Titre du sujet : Re: Modifier Userform
par Mytå le 20/01/2012 03:13:26

 Salut le forum

Une façon de le faire avec une comparaison dans la boucle
Sub MarqueFeuillesListbox()
Dim AvailableSheet As Worksheet
Dim Liste As String

Liste = "Sup,Menu"

For Each AvailableSheet In ActiveWorkbook.Worksheets
  If AvailableSheet.Visible = xlSheetVisible Then
    If InStr(Liste, AvailableSheet.Name) = 0 Then
      LbFeuilles.AddItem (AvailableSheet.Name)
    End If
  End If
Next AvailableSheet

On Error GoTo 0

End Sub
Mytå