gestion des feuilles

[Neptune]

Bonjour,

Comment faire pour travailler qu'avec certaines feuilles et pas toutes ?
J'ai récupéré un programme mais ce dernier gère toutes les feuilles. Je voudrais pouvoir les choisir moi même.

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox2.Clear
For Each X In Sheets
If X.Visible = False Then
ListBox1.AddItem X.Name
Else
ListBox2.AddItem X.Name
End If
Next
End Sub


Je souhaiterai que X ne corresponde uniquement aux feuilles nommées "LF41A", "LF42A".

Merci d'avance.

 

[tototiti2008]

Re : gestion des feuilles

Bonjour Neptune,

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox2.Clear
For Each X In Sheets
if X.Name = "LF41A" or X.Name = "LF42A" then
If X.Visible = False Then
ListBox1.AddItem X.Name
Else
ListBox2.AddItem X.Name
End If
End if
Next
End Sub

 

[Neptune]

Re : gestion des feuilles

Merci tototiti2008...