Editeur de chorégraphie sous excel

Option Explicit

Const MAX_SEQUENCE As Integer = 1800

Public Sub lecture1seconde(TPS As Integer, TXT As String)
    TXT = ""
    TXT = oreilleD(TPS) & oreilleG(TPS) & LEDZ(TPS) & LED1(TPS) & LED2(TPS) & LED3(TPS) & LED4(TPS)
End Sub


Public Sub chor()
    Dim TPS As Integer
    Dim TCH As String
    Dim TXT As String
    Dim SN As Variant
    Dim TK As Variant
   
    Dim TITRE As String
    Dim ADRESSE As String
    Dim I As Integer
    Dim TEMPO As Integer
   
    Dim AVAILABLE_TRACKS As Integer
    Dim AVAILABLE_TEXT As String
    Dim PREVIOUS_TEXT As String
   
    AVAILABLE_TRACKS = 0
   
    TCH = ""
    TXT = ""
   
    AVAILABLE_TEXT = ""
   
    For I = 1 To 60
        PREVIOUS_TEXT = TCH
        Call lecture1seconde(I, TXT)
        TCH = TCH & TXT
        If Len(TXT) > 0 Then
'            Debug.Print Chr(13) & "Previous[" & I & "] : " & Chr(13) & PREVIOUS_TEXT & " (" & Len(PREVIOUS_TEXT) & ")"
'            Debug.Print "Current[" & I & "] : " & Chr(13) & TXT & " (" & Len(TCH) & ")"
            If AVAILABLE_TRACKS = I - 1 Then
                AVAILABLE_TRACKS = I
            End If
        End If
        If ((Len(TCH) > MAX_SEQUENCE) And (AVAILABLE_TEXT = "")) Then
            AVAILABLE_TEXT = PREVIOUS_TEXT
            AVAILABLE_TEXT = Left(AVAILABLE_TEXT, Len(AVAILABLE_TEXT) - 1)
            If Len(TXT) > 0 Then
                AVAILABLE_TRACKS = I - 1
            End If
        End If
    Next
    TEMPO = Cells(19, 12)
'    Debug.Print Chr(13) & "Available tracks: " & AVAILABLE_TRACKS
'    Debug.Print "Available text: " & AVAILABLE_TEXT
    TCH = TEMPO & "," & TCH
   
    TCH = Left(TCH, Len(TCH) - 1)
    SN = Cells(18, 2)
    TK = Cells(19, 2)
   
    If Not (SN = 0 Or TK = 0) Then
        TITRE = "&chortitle=" & Cells(18, 15)
        ADRESSE = "http://api.nabaztag.com/vl/FR/api.jsp?sn=" & SN & "&token=" & TK & "&chor=" & TCH
       
        If (Len(ADRESSE)  Len(TITRE)) < 2010 And Len(TITRE) > 0 Then
            ADRESSE = ADRESSE & TITRE
            Cells(1, 1).Select
            Range(Cells(2, 3), Cells(16, AVAILABLE_TRACKS  2)).Select
            Call envoichor(ADRESSE)
            ADRESSE = Chr(13) & "Sent with title: " & Chr(13) & ADRESSE
        Else
            If Len(ADRESSE) < 2010 Then
                ADRESSE = "http://api.nabaztag.com/vl/FR/api.jsp?sn=" & SN & "&token=" & TK & "&chor=" & TCH
                Cells(1, 1).Select
                Cells(18, 15).Select
                Call envoichor(ADRESSE)
                ADRESSE = Chr(13) & "Sent without title: " & Chr(13) & ADRESSE
            Else
                If MsgBox("Chorégraphie trop longue, envoi impossible" & Chr(13) & "Voulez-vous envoyer les " & AVAILABLE_TRACKS & " premières pistes ?", (vbQuestion  vbYesNo), "Erreur") = vbYes Then
                    ADRESSE = "http://api.nabaztag.com/vl/FR/api.jsp?sn=" & SN & "&token=" & TK & "&chor=" & AVAILABLE_TEXT
                    Range(Cells(2, 3), Cells(16, AVAILABLE_TRACKS  2)).Select
                    Call envoichor(ADRESSE)
                    ADRESSE = Chr(13) & "Truncated choregraphy sent: " & Chr(13) & ADRESSE
                Else
                    MsgBox "Envoi annulé !", vbCritical, "Erreur"
                    ADRESSE = Chr(13) & "Choregraphy not sent: " & Chr(13) & ADRESSE
                End If
            End If
        End If
'        Debug.Print ADRESSE
    Else
        MsgBox "Problème dans le Token ou le numéro de série", vbCritical, "Erreur"
    End If
End Sub