Discussion :

[francis60]

Bonjour a tous,

En VBA la fonction Application.worksheetfunction.COUNTA fonctionne bien lorsqu'on l'applique sur une plage de cellules.
Si on l'utilise sur un Array elle comptabilise aussi les Empty.

Code :

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

1
2
3
4
5
 
Dim GLT As Variant
GLT = Array(1,2,Empty,"A")
? Application.worksheetfunction.COUNTA(GLT)
4

Au lieu de 3

Quelqu'un saurait-il expliquer ça ?

A part boucler sur l'Array pour compter les valeurs Not IsEmpty(X) auriez-vous une idée plus efficace ?

Cordialement,
Francis

[Patrice740]

Bonjour,

Chez moi ça ne compte pas les Empty :

[MarcelG]

Salut,

CountA comptabilise le nombre d'éléments non vides.
Empty est considéré ici comme une variable variant.
Le résultat me semble donc correct.

Sur mon poste (Excel 2016), le retour est 4.

A part boucler sur l'Array pour compter les valeurs Not IsEmpty(X) auriez-vous une idée plus efficace

Là, je ne comprends pas la question.
Un tableau VBA, par définition, est un ensemble d'items.

[Patrice740]

Sur mon poste (Excel 2016), le retour est 4.

Effectivement 4 et aussi avec Excel 2013, mais avec 2003 et 2007 le Empty est ignoré (=3).
Une évolution passée inaperçue.

[francis60]

Merci à tous pour vos lumières et pour vos résultats par version XL.

Là, je ne comprends pas la question.

Voilà ce que je voulais dire:
Résultats avec CountA et avec une boucle (Je suis sur Excel 2010)

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
Sub TestCOUNTA()
          Dim GLT As Variant
          Dim i As Long, Total As Long
          
1         GLT = Array(1, 2, Empty, "A")

2         Debug.Print "Avec Application.WorksheetFunction.CountA: " & Application.WorksheetFunction.CountA(GLT)

3         For i = LBound(GLT) To UBound(GLT)
4             If Not IsEmpty(GLT(i)) Then
5                 Total = Total + 1
6             End If
7         Next

8         Debug.Print "Avec une boucle Not IsEmpty: " & Total

End Sub

Avec Application.WorksheetFunction.CountA: 4
Avec une boucle Not IsEmpty: 3

La fonction Excel (celle que l'on écrit dans une cellule du tableur via la barre de formule) donne le bon résultat en tout cas celui que je souhaite reproduire avec du code VBA : cellules vides dans un Range ou éléments d'un Array non comptabilisées si vides (= Empty).

Pour ma part je considère que dans cet exemple CountA = 4 est une régression.

Comme une boucle ça n'est pas très efficace, je me demandais s'il n'y avait pas mieux à faire pour compter les non-Empty sans non plus repasser par une feuille Excel fut-elle temporaire ou masquée.