Nombre d'indice vide dans un tableau

Bonjour,

le code suivant m'indique le dernier indice d'un tableau affecté à une valeur :

Option Explicit

Public Sub essai()

Dim i As Byte, dern As Byte  'à adaper
Dim gantt_m1(10)

gantt_m1(0) = "salut"
gantt_m1(3) = "salut"

For i = LBound(gantt_m1) To UBound(gantt_m1)
    If gantt_m1(i) <> "" Then
        dern = i
    End If
Next i

Debug.Print dern

End Sub

maintenant je me demandais comment peut on faire pour savoir aussi le nombre d'indice vide entre deux contenus , dans le code ci dessus, ce serait 2 car nous avons l'indice 1 et 2 inutilisé qui sont compris entre l'indice 0 et 3 dans lesquels on y trouve des valeurs.

merci

Bonsoir,

Sub essai()
Dim i As Byte, dern As Byte, K As Byte
Dim Bascule As Boolean
Dim gantt_m1(10)
    gantt_m1(0) = "salut"
    gantt_m1(3) = "salut"
    For i = LBound(gantt_m1) To UBound(gantt_m1)
        If gantt_m1(i) <> "" Then
            dern = i
            Bascule = Not Bascule
        Else
            If Bascule Then K = K + 1
        End If
    Next i
    Debug.Print "Dernier indice : " & dern, "Nombre d'indice : " & K
End Sub

A+

bonsoir,

une proposition

Public Sub essai()

    Dim i As Byte, dern As Byte  'à adaper
    Dim gantt_m1(10)

    gantt_m1(0) = "salut"
    gantt_m1(3) = "salut"

    vt = False

    For i = LBound(gantt_m1) To UBound(gantt_m1)
        If gantt_m1(i) <> "" Then
            If vt = True Then
                msg = msg & sep & dern
                If sep = "" Then sep = "-"
            Else
                vt = True
                dern = 0
            End If
        ElseIf vt = True Then
            dern = dern + 1

        End If

    Next i

Debug.Print msg
End Sub