Discussion :

[itzik92]

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 :

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

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

,

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

Merci d'avance
itzik92

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

[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

[Daniel.C]

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

[itzik92]

Voici un extrait de 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
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

[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 :

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

If TabTemp(L, 10) = "non payé" Then