Discussion :

[eno97]

Bonjour à toutes et à tous
voilà je rencontre un petit problème en ce moment dans mon code
j'ai ce programme :

Code :

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

1
2
3
4
    Dim a As String
    Dim feuilleMoisN_1 As Worksheet
    a = Worksheets(1).Range("A1").Value
    Set feuilleMoisN_1 = Worksheets(a)

qui me permet d'affecter à feuilleMoisN_1 la feuille qui porte le nom de la variable a
mais, lorsque je veux simplifier mon code en notant ceci :

Code :

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

1
2
    Dim feuilleMoisN_1 As Worksheet
    Set feuilleMoisN_1 = Worksheets(Worksheets(1).Range("A1").Value)

j'ai une erreur d'exécution 9, "l'indice n'appartient pas à la sélection"
est-ce que quelqu'un pourai m'aider svp?

[Invité]

Salut,

Il ne devrait pas y avoir de problème.

Que contient la cellule:

Code :

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

Worksheets(1).Range("A1").Value

[mercatog]

Code :

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

Set feuilleMoisN_1 = Worksheets(Cstr(Worksheets(1).Range("A1").Value))

[Invité]

le message d'erreur n'est pas ambigu, soit A1=nul ou ne correspond pas au nom d'une feuille.

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
 Dim S As Integer
 For S = 1 To Worksheets.Count
 If Worksheets(S).Name = Worksheets(1).Range("A1").Value Then
   Set feuilleMoisN_1 = Worksheets(Worksheets(1).Range("A1").Value)
   exit for
end if
 Next
End Sub

[eno97]

en fait avec la solution de mercatog, je viens de comprendre mon problème
la cellule contenait une série de chiffres (201309) qui correspondait au nom de la feuille que je cherchait à affecter à ma variable worksheet. Donc excel comprenait mon code comme étant la 201 309ème feuille et non pas la feuille dont le nom est "201309"
du coup avec Cstr, ça fonctionne mieux

merci beaucoup