Discussion :

[Guillaume56]

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 :

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

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 !

[Philippe PONS]

Bonjour,

Code :

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

1
2
3
4
5
6
 
 
mois = Month(TBDate.Text)
feuilleTravail = "F" & Str(mois)
' supprimer l'espace
Sheets(Replace(feuilleTravail, " ", "")).Select

Cordialement,

[Guillaume56]

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 !

[Philippe PONS]

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

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

Ca donne quoi?

[Guillaume56]

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

[Invité]

Code :

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

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

[joe.levrai]

Bonjour,

par itération :

Code :

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

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 :

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

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