vba - onglets avec noms numériques

[petith]

Bonjour,

J'ai un onglet par mois, qui sont nommés 1,2,3,...12
J'ai une cellule A1 de l'onglet "XX" qui contient un numéro de mois.

En vba, je voudrais activer l'onglet qui correspond au mois de ma cellule A1. Par exemple, si A1 contient la valeur 2, alors je veux activer l'onglet nommé 2.

J'ai tenté ceci : Sheets(Sheets("XX").Range("A1").Value).Select

Cela marche lorsque les onglets ont des noms en texte mais pas en numérique. En fait vba m'active le 2ème onglet mais pas l'onglet nommé 2. Je précise que l'onglet nommé 2 n'est pas le 2ème onglet de mon classeur.

Autrement dit, vba comprend Sheets(2).Select, au lieu de Sheets("2").Select.

J'ai essayé d'ajouter des guillemets mais cela ne fonctionne pas. J'ai également essayé de mettre le 2 en format texte dans ma cellule A1 mais cela ne change rien.

Je précise également que je voudrais garder mes noms d'onglets 1,2,3... car c'est plus facile de naviguer par rapport à "janvier", "février",... Aussi, je ne peux pas mettre l'onglet 1 en première position, l'onglet 2 en 2ème,...

Pouvez-vous m'aider?
Merci beaucoup d'avance à ceux qui essaieront de m'aider.

petith

 

[Dranreb]

Re : vba - onglets avec noms numériques

Bonsoir.
Essayez : Sheets(CStr(Sheets("XX").Range("A1").Value)).Select
À +

 

[petith]

Re : vba - onglets avec noms numériques

Merci beaucoup! Cela fonctionne parfaitement. Je ne soupconnais même pas l'existence de la fonction Cstr.
J'ai encore beaucoup de choses à apprendre.