CounIf sur une ListView

Version imprimable

21/12/2013, 04h58
itzik92

CounIf sur une ListView

Bonjour,

J'ai un problème avec le code et syntax " CountIf " avec comme critère " Non payé" et la zone à compter, c'est TabTemp(L,10) , sur une ListeView, ou je souhaite compter le nombre des cellules avec "Non payé", et les afficher dans leTextBox5.

voici mon code qui n'affiche rien dans le TextBox:

Code:

TextBox5.Value = Application.WorksheetFunction.CountIf(TabTemp(L, 10), "Non payé")

,

Pouvez vous m’éclairer pourquoi et ou est l'erreur ?

Merci d'avance
itzik92
21/12/2013, 10h30
Daniel.C

Bonjour,

Où est la listview dans l'affaire ? Ce que je vois, c'est que tu cherches à compter les "non payé" dans une table à deux dimensions. Ce qui, à mon avis, ne fonctionne pas.
21/12/2013, 15h39
itzik92

Bonjour,
sur un Userform j'ai un Listview qui affiche les factures, dans la Col 10 il affiche ,"Payé"ou "Non payé" , j'ai placé un Textbox sur le UF, pour afficher le nbr des cellules "Non payé" est ce que le CountIf peut fonctionner ainsi ?

Merci,

itzik92
21/12/2013, 16h02
Daniel.C

Qu'est-ce que représente "TabTemp" ?

Voici un extrait de 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
Option Explicit
Dim TabTemp As Variant, TypeF As Boolean
Dim L As Integer, x As Integer
 
 
 
'1
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)

.
Cordialement,

itzik92

21/12/2013, 16h31
Daniel.C

Jusqu'à ce que l'on me prouve le contraire, tu ne peux pas faire de "CountIf dans une table à deux dimensions. Au reste, "TabTemp(L, 10)" ne représente qu'une valeur, alors, pourquoi ne pas écrire :

Code:

If TabTemp(L, 10) = "non payé" Then
21/12/2013, 16h57
itzik92

Peux tu me donner la suite , STP ?
j'essayé avec la valeur du TXB. Count ca ne fonctionne pas

merci

Cordialement

Quelque chose comme :

Code:

1
2
3
4
5
6
7
Dim Ctr As Integer
For i = 1 To UBound(TabTemp, 1)
    If TabTemp(i, 10) = "non payé" Then
        Ctr = Ctr + 1
    End If
Next i
TextBox5.Value = Ctr

21/12/2013, 17h38
itzik92

Daniel merci,

le resultat s'affiche toujours avec zero "0" , il ne compte pas les "Non payé"

Cordialement

itzik92
21/12/2013, 18h18
Daniel.C

"Non payé" n'est pas égal à "non payé". Pour ne pas tenir compte des majuscules modifie :

Code:

If LCase(TabTemp(i, 10)) = "non payé" Then
21/12/2013, 22h04
itzik92
Bonjour,

Daniel merci beaucoup, voila la petite modification, et ça fonctionne parfaitement.
Code:

1 2 3 4 If LCase(TabTemp(L, 10)) = "non payé" Then Ctr = Ctr + 1 End If TextBox5.Value = Ctr
Cordialement

itzik92