Incrémentation avec noms de feuille (Mois)

bonjour tout le monde,

sur le fichier en attache sur la feuille DATA je souhaite avoir dans la cellule C6 une liaison entre le mot OT et le nom d'onglet du premier mois dans mon classeur qui est Avril-2016 afin d'avoir le resultat que j'ai sur C6

ensuite en tirant en bas je désire avoir les résultats comme dans C7 et C8

Cordialement

Koikili

Bonjour,

Je suppose que ça peut être utile si ça change...

Une fonction personnalisée (en argument le numéro d'ordre de la feuille parmi les feuilles mois).

Function OT(n As Integer) As String
    Dim i%, nfm
    Application.Volatile
    For i = 1 To Worksheets.Count
        If IsDate("1-" & Worksheets(i).Name) Then
            nfm = nfm & ";" & Worksheets(i).Name
        End If
    Next i
    If nfm <> "" Then
        nfm = Split(nfm, ";")
        If n <= UBound(nfm) Then
            OT = "OT " & nfm(n)
            Exit Function
        End If
    End If
    OT = ""
End Function

Cordialement.