Bonjour Celeda, Jena-Marie, Abel, Pat, Fabrice,
Je ne sais pas vraiment ce que veut nous faire comprendre Fabrice, mais c'est une histoire de fou ce fil !!
Si je regarde le dernier fichier en date posté par Fabrice :
Re:liste modifiable - 19/03/2005 23:16
File name: bon_20050319231609.zip File size:20728 bytes
Je vois un ActiveX ComboBox de la barre d'Outils Contrôles.
Je ne vois aucune feuille masquée (ni Hidden or VeryHidden)
Je vois ce code qui doit sûrement provenir de Zon vu la syntax
Function RecupF()
Dim I&, J&, T()
For I = 1 To ThisWorkbook.Worksheets.Count
With Sheets(I)
If[color==#FF0000] .Visible[/color]Then
ReDim Preserve T(J)
T(J) = .Name
J = J + 1
End If
End With
Next I
RecupF = T
End Function
L'instruction que
'If .Visible Then' signifie que l'on ne prend en considération
que les Sheets Visibles...
On pourrait écrire ceci, sans faire le test Visible...
Function RecupF()
Dim I&, J&, T()
For I = 1 To ThisWorkbook.Worksheets.Count
With Sheets(I)
ReDim Preserve T(J)
T(J) = .Name
J = J + 1
End With
Next I
RecupF = T
End Function
Mais Danger !!!
En effet l'évènement 'ComboBox1_Change' doit activer la feuille indiquée, et si c'est une feuille masquée....
Boum !
Donc je ne sais pas enfin surtout je ne comprends pas ce que veut faire en fait Patrice...
Bon Courage et Dimanche
@+Thierry