XL 2010 Condition avec un lignes vides

kingjon · 9 Juin 2016

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..

Code:

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 · 9 Juin 2016

Re : Condition avec un lignes vides

Bonjour kingjon,

Peut-être comme ceci:

Code:

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.

XL 2010 Condition avec un lignes vides

kingjon

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

Discussions similaires