Discussion :

[Malick]

Bonjour,

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

Code vba :

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

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

[Philippe Tulliez]

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 :

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

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

[Malick]

Salut Philippe,

Merci . En exécutant le script :

Code :

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

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 :

[Malick]

En ajoutant On Error Resume Next, cela fonctionne bien

Code :

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

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

Est-ce normal ?

Merci bien pour ton aide

[Patrice740]

Bonjour,

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

Code VBA :

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

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

[Malick]

Salut Patrice740,

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

Je prends

Merci à vous deux pour votre aide

[Philippe Tulliez]

Bonjour Malick,

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

[Malick]

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

Merci et bonne soirée