Incrémentation avec noms de feuille (Mois)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
k
koikili
Jeune membre
Jeune membre
Messages : 28
Inscrit le : 9 avril 2016
Version d'Excel : 2007

Message par koikili » 9 avril 2016, 15:10

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
Classeur1.xls
(20 Kio) Téléchargé 18 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 446
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 10 avril 2016, 04:34

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.
koikili_Classeur1.xls
(39 Kio) Téléchargé 17 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message