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 : Sélectionner tout - Visualiser dans une fenêtre à part
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