Discussion :

[vivevba]

Bonjour à tous,

Ma question est sûrement très stupide ... Mais je me lance quand même

J'ai trois feuilles. Je veux pouvoir les appeler selon le résultat d'une cellule dans une quatrième feuille.

J'étais parti comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
Dim name as String 
 
If Range("cellule_maitre")=valeur1 Then
   name= "nom_du_sheet1"
Else if Range("cellule_maitre")=valeur2 Then
   name= "nom_du_sheet2"
Else if Range("cellule_maitre")=valeur3 Then
   name= "nom_du_sheet3"
End if

Et après, idéalement, j'ai envie de travailler avec le sheet intitulé "nom_du_sheet1". Mais, vba a pas l'air d'aimer sheets(name) ou sheets("name").

Tout aide serait la bienvenue ! J'ai aucune idée de comment procéder ...

Un grand merci d'avance ...

[mercatog]

Bonsoir
Essaies d'éviter de nommer tes variables par des appellations réservée par vba
Une proposition

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
Sub TEST()
Dim sh As Worksheet
Dim ShName As String
 
Select Case Range("cellule_maitre").Value
    Case valeur1: ShName = "nom_du_sheet1"
    Case valeur2: ShName = "nom_du_sheet2"
    Case Valeur3: ShName = "nom_du_sheet3"
End Select
On Error Resume Next
Set sh = ThisWorkbook.Sheets(ShName)
On Error GoTo 0
If Not sh Is Nothing Then
    sh.Range("A1") = "toto"
    'suite avec ta feuille dans la variable objet Sh
    Set sh = Nothing
End If
End Sub