Discussion :

[oscar.cesar]

bonsoir à tous
voila le probleme:
il y a t'il un moyen de recuperer tout les noms de mes differentes feuilles commencant par la lettre "P" et s'en servir comme liste de référence pour un combobox ?

merci

[Gorfael]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim F as Worksheet
for each F in Sheets
if F.Name like "P*" then
....
next f

à adapter bien évidement
A+

[mapeh]

bonsoir oscar.cesar

tu peux essayer ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Compare Text
Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In Sheets
If Left(sh.Name, 1) = "P" Then Me.ComboBox1.AddItem sh.Name
Next sh
End Sub

Note le Option Compare Text qui te permet de t'affranchir des minuscules et majuscules

[oscar.cesar]

bonsoir
ok merci

Note le Option Compare Text qui te permet de t'affranchir des minuscules et majuscules

un truc de plus que je viens d'apprendre.