XL 2010 Condition avec un lignes vides

[kingjon]

Bonjour à tous ! j'ai un léger problème avec ma syntaxe, j'essaie de verifier si une ligne est vide et appliquer un barème si c'est le cas..

For i = 1 To UBound(tabloS, 1)
        If dico.exists(tabloS(i, 1)) Then
            v = dico(tabloS(i, 1))
            dico.Remove (tabloS(i, 1))
        Else
            v = 0
        End If
        If tabloS(i, 2) < tabloS(i, 3) Then
            v = v + tabloB(3, 2)
        ElseIf tabloS(i, 2) = tabloS(i, 3) Then
            v = v + tabloB(2, 2)
        ElseIf tabloS(i, 2) > tabloS(i, 3) Then
            v = v + tabloB(1, 2)
        ElseIf IsEmpty(tabloS(i, 2)) Or IsEmpty(tabloS(i, 3)) Then
            v = v + tabloB(4, 2)
        End If
        dico(tabloS(i, 1)) = v
    Next i

Comme vous pouvez le voir, j'ai essayer avec IsEmpty mais cela ne marche pas, tout marche sauf cette ligne.. SI vous avez une autre méthode pour verifier si une cellule est vide..
Merci

 

[Papou-net]

Re : Condition avec un lignes vides

Bonjour kingjon,

Peut-être comme ceci:

For i = 1 To UBound(tabloS, 1)
        If dico.exists(tabloS(i, 1)) Then
            v = dico(tabloS(i, 1))
            dico.Remove (tabloS(i, 1))
        Else
            v = 0
        End If
        If tabloS(i, 2) < tabloS(i, 3) Then
            v = v + tabloB(3, 2)
        ElseIf tabloS(i, 2) = tabloS(i, 3) Then
            v = v + tabloB(2, 2)
        ElseIf tabloS(i, 2) > tabloS(i, 3) Then
            v = v + tabloB(1, 2)
        ElseIf tabloS(i, 2) = "" Or tabloS(i, 3) = "" Then
            v = v + tabloB(4, 2)
        End If
        dico(tabloS(i, 1)) = v
    Next i

A +

Cordialement.