Atteindre feuille en paramètre via Msgbox

Bonjour,

Mon idée c'est de transformer ce script :

Code:

---

1 2 3 4 5 6

Sub BtnRechercheAnalyse_Cliquer() Dim Compte Compte = InputBox("Entrez le numéro de l'analyse à atteindre : ", "Saisie de l'analyse à ouvrir") Sheets("Compte").Activate End Sub

---

En fait l'objectif c'est d'avoir un message box qui me demande de saisir le nom de la feuille à atteindre.

Une idée ?

Merci d'avance

Bonjour Malick,
Dans l'instruction Sheets("Feuil2").Activate, tu demandes au programme d'activer la feuille nommée Feuil2 donc si tu souhaites que l'utilisateur entre le nom de la feuille à l'aide de la fonction InputBox, on écrira

Code:

---

1 2 3 4 5

Sub TestInputBox() Dim FileName As String FileName = InputBox("Entrez le nom de la feuille") Sheets(FileName).Activate End Sub

---

Salut Philippe,

Merci :ccool:. En exécutant le script :

Code:

---

1 2 3 4 5 6

Sub BtnRechercheAnalyse_Cliquer() Dim FileName As String FileName = InputBox("Entrez le nom de la feuille") Sheets(FileName).Activate End Sub

---

j'ai ce message :

Pièce jointe 553345

Pièce jointe 553347

En ajoutant On Error Resume Next, cela fonctionne bien :koi:

Code:

---

1 2 3 4 5 6

Sub BtnRechercheAnalyse_Cliquer() On Error Resume Next Dim FileName As String FileName = InputBox("Entrez le nom de la feuille") Sheets(FileName).Activate End Sub

---

:fleche: Est-ce normal ?

Merci bien pour ton aide :ccool:

Bonjour,

Il serait préférable de traiter l'erreur :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub BtnRechercheAnalyse_Cliquer() Dim SheetName As String SheetName = InputBox("Entrez le nom de la feuille") On Error Resume Next Sheets(SheetName).Activate On Error GoTo 0 If ActiveSheet.Name <> SheetName Then MsgBox "La feuille """ & SheetName & """ n'existe pas dans ce classeur !" End If End Sub

---

Salut Patrice740,

Merci bien, effectivement c'est mieux de traiter l'erreur.

Je prends :king:

Merci à vous deux pour votre aide :king:

Bonjour Malick,

Citation:

---

En ajoutant On Error Resume Next, cela fonctionne bien

---

Oui, je me suis contenté de clarifier le problème de la chaîne de caractères Sheets("Compte").Activate qui aurait dû être dans ton exemple Sheets(Compte).Activate mais c'est vrai que j'aurais pu préciser qu'il n'y avait aucun contrôle dans mon exemple

Merci Pierre, l'idée était là t'inquiète ;)

Merci et bonne soirée