Discussion :

[itzik92]

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

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[itzik92]

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

[itzik92]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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