Sélection de feuille par variable String

Bonjour à tous,

Même si cette question a déjà été posée plusieurs fois, je n'ai pas réussi à trouver la réponse.
Pour plus de simplicité, j'ai renommé les codename des feuilles sur lesquelles je travaille "F1", "F2",... et ainsi de suite.
J'aimerais maintenant sélectionner une des feuilles en fonction de la date saisie par l'utilisateur à savoir F1 pour janvier, F2 pour février etc...
J'ai donc cela :

Code:

---

1 2 3

mois = Month(TBDate.Text) feuilleTravail = "F" & Str(mois) Sheets(feuilleTravail).Select

---

Et évidemment, ça ne fonctionne pas, mais je ne sais pas comment m'en sortir !

Merci d'avance !

Bonjour,

Code:

---

1 2 3 4 5 6

mois = Month(TBDate.Text) feuilleTravail = "F" & Str(mois) ' supprimer l'espace Sheets(Replace(feuilleTravail, " ", "")).Select

---

Cordialement,

Bonjour,

Merci pour votre réponse, mais il n'y a pas d'espace dans ma chaine de caractère. Par conséquent ça ne fonctionne toujours pas !

Ah! bon, moi j'en ai un!!

Et si tu remplaces Str(mois) pas mois: le Str ne sert à rien!

Ca donne quoi?

Toujours pas !
'
La variable feuilleTravail vaut bien "F2", mais j'ai une erreur : "l'indice n'appartient pas à la sélection" !

Code:

---

ThisWorkbook.Sheets(ThisWorkbook.VBProject.VBComponents("F" & CStr(Month(TBDate.Text))).Properties("Name").Value).Select

---

Bonjour,

par itération :

Code:

---

1 2 3 4 5 6

For Each Sh in Thisworkbook.Worksheets If Sh.CodeName = "F1" Then ' le traitement Exit For End If Next Sh

---

sans itération, par les propriétés du VBE :

Code:

---

1 2 3 4 5

Dim Sh As Worksheet   With ThisWorkbook Set Sh = .Worksheets(CStr(.VBProject.VBComponents("F4").Properties(7))) End With

---

Edit : arf, encore trop lent :mrgreen:

Citation:

---

Envoyé par joe.levrai

Bonjour,

par itération :

Code:

---

1 2 3 4 5 6

For Each Sh in Thisworkbook.Worksheets If Sh.CodeName = "F1" Then ' le traitement Exit For End If Next Sh

---

sans itération, par les propriétés du VBE :

Code:

---

1 2 3 4 5

Dim Sh As Worksheet   With ThisWorkbook Set Sh = .Worksheets(CStr(.VBProject.VBComponents("F4").Properties(7))) End With

---

Edit : arf, encore trop lent :mrgreen:

---

Bonjour Joe,
Normale souviens toi ne notre accord! je donne les directive et tu commentes.

On est pipelette ou on ne l'ai pas!

Moi c'est aussi concis possible!

Merci pour vos réponses (rapides) à tous les deux, mais non ! J'ai une erreur 1004 "l'accès par programme n'est pas fiable"...
Effectivement avec l'itération ça devrait fonctionner mais au-delà de réussir à faire fonctionner le programme (sinon j'aurais fait une matrice "Janvier, Février,..." ou un Select Case et j'aurais embêté personne), je cherche à comprendre pourquoi votre proposition ne fonctionne pas ! :calim2:
Une idée ?

Bonjour,

pour manipuler par macro le VBE ou consulter ses propriétés, il faut approuver l'accès

Dans l'onglet Developpeur >> Sécurité des macros >> cocher la case "Accès approuvé au modèle d'objet du projet VBA"

Bien vu ! Comme quoi ça vaut le coup de demander, j'ai appris qqch ! En revanche si la personne a qui j'envoie ce fichier n'a pas cette case de cochée (et ce ne sera évidemment pas le cas) je risque le bug, donc je vais passer par itérations.

Merci pour votre aide !