Problème d'indice : navigation entre les onglets

Bonjour,

J'ai un problème d'indice avec un fichier dont j'ai déjà demandé de l'aide auparavant.

Le principe est de naviguer entre les onglets grâce au VBA. Cela fonctionne parfaitement sauf pour les onglets que je crée à partir de mon Userform.

je pense que c'est peut-être une erreur de déclaration de variables ? Je ne sais pas trop.

Merci d'avance pour votre aide.

Bonjour,

Essaie ainsi :

Public Sub création()
Dim Aujourhui As String, Poste As String, Nom_page As String
Dim Heure As Integer

    Heure = CInt(Time * 24)
    Aujourhui = Format(Date, "dd.mm.yyyy")

    If (Heure > 13 And Heure <= 21) Then
        Poste = "Après-midi"
    ElseIf (Heure > 21 Or Heure <= 5) Then
        Poste = "Nuit"
    ElseIf (Heure > 5 Or Heure <= 13) Then
        Poste = "Matin"
    End If

    Nom_page = Aujourhui & " - " & Poste

    With Worksheets("Template")
        .Unprotect "po"
        .Copy After:=Sheets(1)
    End With

    With ActiveSheet
        .Name = Nom_page
        .Range("C4").Value = Aujourhui
        .Range("G4").Value = Poste
    End With

    Worksheets("Template").Protect "po"

    frmMain.Hide

End Sub

Merci mais cela ne marche pas

L'erreur est au niveau de : "Sheets(Split(Me.LSBnavigation.List(Me.LSBnavigation.ListIndex))).Select"

Re

La question posée traitait de la création d'une feuille !...

Essaie ainsi :

Worksheets(Me.LSBnavigation.List(Me.LSBnavigation.ListIndex)).Select

Ça à l'air de marcher, tu as juste remplacé "Sheets" par "Worksheets" ? La création de feuille fonctionnait mais je ne pouvait pas naviguer dessus avec mon userForm sur celle que j'ai créé par VBA alors que celle normal oui

Re,

C'était surtout, l'utilisation Split, non !

Cdlt.

D'accord super merci beaucoup, j'ai réussi à terminer mon Excel et tout marche nickel