Application.worksheetfunction.COUNTA sur Array comptabilise les Empty

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:

---

1 2 3 4 5

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

---

Au lieu de 3 :roll:

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

Bonjour,

Chez moi ça ne compte pas les Empty :
Pièce jointe 481094

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.

Citation:

---

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.

Citation:

---

Envoyé par MarcelG

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.

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

Citation:

---

Envoyé par MarcelG

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:

---

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.