feuilles

[Alex]

Bonjour

Comment faire pour mettre dans la combobox toutes les feuilles de 2000 a 2020
sans devoir tout taper comme cela


If Right(feuilles.name, 4) = "2003" Or Right(feuilles.name, 4) = "2004" Or Right(feuilles.name, 4) = "2005" Or Right(feuilles.name, 4) = "2006".... Then
gestion_mois.ComboBox1.AddItem (feuilles.name)


Merci

 

[myDearFriend]

Bonjour Alex,

Tu peux essayer comme ci-dessous :

Dim F as Worksheet

For Each F in ThisWorkbook.Worksheets
If Right(F.name, 4) = "2003" then
gestion_mois.ComboBox1.AddItem (F.name)
endif
next F


Cordialement.
Didier_mDF

 

[Sebb]

Salut Alex et MyDearFriend !
ben pas mieux ... lol
j'avais commencé quelquechose mais tu as été plus rapide !
a+

 

[Pascal76]

Bonjour Alex Disier Sebb et le forum

Je suis parti sur une autre piste en me servant de votre départ que je vous livre

For Each F In ThisWorkbook.Worksheets
If IsNumeric(Right(F.Name, 4)) Then
If FormatNumber(Right(F.Name, 4)) >= 2000 And FormatNumber(Right(F.Name, 4)) <= 2020 Then
gestion_mois.ComboBox1.AddItem (F.Name)
End If
End If
Next F

Bon courage

Pascal

 

[myDearFriend]

Salut Sebb, Pascal
Re Alex,

Arf, comme dit Sebb, je suis allé tellement vite que j'ai oublié l'objet principal de la demande d'Alex, c'est à dire le test de la valeur des 4 derniers caractères des noms de feuille (de 2000 à 2020) !!!! )

Merci à toi Pascal d'avoir rectifié le tir et toutes mes excuses à ce cher Alex.

Décidément, je ne suis pas du matin moi.... !!!

@+
Didier_mDF

 

[Alex]

merci a vous de m'avoir renseigné
ca marche en plus !!