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