Discussion :

[Progeric]

Bonjour

Je n'arrive pas à utiliser Sheets() avec des nom de feuille numérique.
Mon classeur contient des feuilles nommées par année exemple Feuil1(2022), Feuil2(2023)

Dans mon code VBA j'utilise une variable qui prend la valeur d'une cellule et lorsque je veux utiliser cette variable avec Sheets() j'ai un message d'erreur qui me dis que l'indice n'appartient pas à la sélection.
Bref il me faudrait un classeur avec 2023 feuilles pour que cela fonctionne.

Merci pour votre aide sur mon code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub messageGP()
nomfeuil = Cells(2, 4).Value & "!"
nmrdum = Cells(2, 2).Value
lgndeb = Cells(4, 2)
lgnfin = Cells(5, 2)
 
Range("A16:A100").ClearContents
Range("A13").Select
 
If lgndeb = lgnfin Then
    Cells(15, 1).Value = lgndeb
    GoTo fin
    Else
    a = 15
    For x = lgndeb To lgnfin
        If Sheets(nomfeuil).Cells(x, 20).Value > 0 Then Cells(a, 1).Value = x
        a = a + 1
    Next x
End If
fin:
End Sub

[78chris]

Bonjour

Pour Excel le nom est toujours du texte donc "2022"

[Progeric]

Bonjour,

Avec dans la cellule B2 la valeur 2023
Ecrire : nomfeuil = Cells(2, 2).Value
Donne : nomfeuil =2023

Valeur qui ne fonctionne pas avec Sheets(nomfeuil)

et pour rajouter des guillemet à une variable :
Ecrire : nomfeuil = "" & Cells(2, 2).Value & ""
Donne : nomfeuil = "2023"

Valeur qui fonctionne avec Sheets(nomfeuil)

Sur d'autre site il parle d'écrire Chr(34) à la place de "" ou de mettre 4 guillemets """"
Ne le faites pas cela ne fonctionne pas.

Bonne journée à tous.

[deedolith]

Code :

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

1
2
3
 
Sub messageGP()
nomfeuil = Cells(2, 4).Value & "!"

Il n'y a pas un probleme la ?
Pourquoi est-ce que tu concatène d'autorité et sans raison apparente un point d'exclamation avec le nom de la feuille entré par l'utilisateur ?

Si l'utilisateur entre "Feuil1(2022)", ton code va chercher "Feuil1(2022)!", ce qui est tout sauf la même chose.

Au passage, tu ne respecte pas la parentalité des objets, prépares toi à de sales surprises.
La notation hongroise ne sert à rien sauf diminuer la lisibilité de ton code, jette cette mauvaise habitude à la poubelle.
Option explicit ? C'est pour les cochons ?
C'est quoi c'est horrible goto dégueulasse ? (et inutile).

[deedolith]

De plus, attention aux convertions automatiques, chose qu'Excel adore faire, et VBA (quand on est indiscipliné) encore plus.
Vu que tes variables sont implicitement variant, tu n'as aucune maitrise les types de donnée.

[Tête de chat]

Bonjour,

il suffit de déclarer les variables correctement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub test1()
Dim Nom As String
Nom = ActiveSheet.Range("A1").Value
MsgBox ThisWorkbook.Sheets(Nom).Name
End Sub
 
Sub test2()
Dim Nom As Integer
Nom = ActiveSheet.Range("A1").Value
MsgBox ThisWorkbook.Sheets(Nom).Name
End Sub

J'ai mis 2022 en A1 dans l'onglet actif, et j'ai un onglet qui s'appelle 2022. Compare le résultat entre test1 et test2.