Nombre de commentaires Java (matériel VBA)

mémorandum 2020/02.24 Nombre de commentaires uniques

Option Explicit
Const Start_Row As Integer = 3
Const Start_Col As Integer = 2
Const Start_msg As String = "Commencer le commentaire ici"
Const End_msg As String = "Terminer le commentaire ici"

Nombre de commentaires de sous-suppression()
Dim i As Integer
Dim MaxRow As Long
Dim DelCount As Long
Dim checkStr As String
Dim checkPoint As Boolean
checkPoint = False

'Obtenez la dernière ligne de la colonne B
MaxRow = Range("B65536").End(xlUp).Row
For i = 3 To MaxRow
    checkStr = Cells(i, Start_Col).Value
    checkStr = Trim(checkStr)

'En cas de message de départ ou de deuxième tour
    If checkStr = Start_msg Or checkPoint Then
        checkPoint = True
        checkStr = Left(checkStr, 1)
    
        ' /Commentaire jugement
        If checkStr = "/" Then
        ' *Refléter les commentaires
        ElseIf checkStr = "*" Then
        'Jugement de ligne vide
        ElseIf checkStr = "" Then
        Else
        'Définir vrai pour le drapeau du deuxième tour
        'Incrément de comptage
            DelCount = DelCount + 1
        End If
    End If

    'Pour les messages de fin
    If checkStr = End_msg Then
        'Définir false sur le drapeau du deuxième tour
        checkPoint = False
        'Soustrayez le nombre de messages de début et de fin
        DelCount = DelCount - 2
    
    End If

Next i

MsgBox DelCount
End Sub