(vba excel) programme menant a une feuille avec inputbox

Alex -  

Bonjour,

Voila mon problème, je suis débutant en programmation VBA.

J'ai donc sur un tableau plusieurs feuille (Feuil1, 2, 3...) et sur chaque feuille une colonne heure

J'aimerai donc faire un programme avec une inputbox qui Viens demander "sur quelle feuille voulez-vous aller".

je présume donc qu'il faut faire:

ws = InputBox("sur quelle feuille voulez-vous aller")

et ensuite je bloque  à ce moment ci. Pour prendre la valeur ws qui amène vers le feuille X.

Puis ensuite le programme doit trouver le jour et l'heure qui correspond a une précédente inputbox: 

Heure = inputBox("quelle heure?")

je me doute que c'est basic comment programme mais je cherche partout sur internet sans trouvaille convaincante. 

J'espere avoir été clair.

Dans l'attente d'une reponse

Merci 

3 réponses

  1.  cs_Le Pivert Contributeur

    Bonjour,

    au lieu d'avoir une multitude de boutons, je te propose d'utiliser une ListBox

    Insertion d'un UserForm dans lequel tu places une ListBox.

    Mettre ce code dans la partie code de l'UserForm:

    Option Explicit
Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ListBox1.AddItem ws.Name
    Next
    ListBox1.ListIndex = 0
End Sub
    1. Alex

      est-ce possible de faire cela avec un UserForm ? 

      Par rapport à un Bouton sur excel Lancer le UserForm où il y a plusieurs bouton, chacun d'entre eux correspond à une feuille ?

      1.  yg_be Contributeur

        bonjour,

        Pour utiliser le nom de la feuille:

        dim ws as worksheet, nomfeuille as string
nomfeuille = InputBox("sur quelle feuille voulez-vous aller")
set ws = worksheets(nomfeuille)