Gerer les Nulls dans une addition de ListView

Bonjour,

Il s'agit d'un programme de saisie des factures, avec un appel à UserForm avec un ListView qui reccupere les informations depuis la Feuil!Pagos.

J'ai un probleme avec un message N° 94 "utilisation incorrecte de Null" qui s'affiche au moment de l'Addition " dans la "ListView" car il y a certaines cellules vides dans la col"F".
Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Private Sub ComboBox1_Click() Dim i As Integer Dim Total1 As Double, Total3 As Double, Total4 As Double x = 0 With Me.ListView2 .FullRowSelect = True .ListItems.Clear For L = 1 To UBound(TabTemp, 1) If TabTemp(L, 1) = ComboBox1.Value Then x = x + 1 .ListItems.Add , , TabTemp(L, 1) .ListItems(x).ListSubItems.Add , , TabTemp(L, 2) .ListItems(x).ListSubItems.Add , , TabTemp(L, 3) .ListItems(x).ListSubItems.Add , , Format(TabTemp(L, 5), "###,##0.00") 'total ttc .ListItems(x).ListSubItems.Add , , Format(TabTemp(L, 6), "###,##0.00") ' total payements .ListItems(x).ListSubItems.Add , , TabTemp(L, 7) .ListItems(x).ListSubItems.Add , , TabTemp(L, 10) Total1 = Total1 + TabTemp(L, 5) Total3 = Total3 + TabTemp(L, 6) Total4 = Total1 - Total3 End If Next L TextBox1.Value = Format(Total1, "###,##0.00") TextBox3.Value = Format(Total3, "###,##0.00") TextBox4.Value = Format(Total4, "###,##0.00") ListView2.SetFocus End With Vide_Combo 1 End If End Sub

---

Cela m'oblige à remplir les cellules vides dans la Feul!Pagos col 6, avec des zeros pour ne pas avoir ce bug,

Comment gerer ce Null ? (Souligné en rouge)

Merci de votre aide,

coerdialement
itzik92

Bonjour,

Code:

---

Total3 = IIf(IsNull(TabTemp(L, 6)), Total3, Total3 = Total3 + TabTemp(L, 6))

---

Bonjour,

Merci pour ta reponse, j'ai testé mais ça ne gere pas le Null ,
et ça ne totalise plus les cellules remplies .

pas de Total dans le Textbox3 qui reste vide , (j'avais le Total de la Col6 quand toutes les cellules etait remplies, qu'est ce qui manque ?
merci d'avance
itzik92

Bonjour,

Après plusieurs codes testés, voila la reponse que j'ai trouvé et marche bien,

Code:

---

1 2 3 4

Total1 = Total1 + TabTemp(L, 5) If Not IsNull(TabTemp(L, 6)) Then Total3 = Total3 + TabTemp(L, 6) End If

---

merci,
cordialement

itzik92