tableau variable comtage case non vide

Bonojur,
j'ai un petit souci de comptage de case non vide
mon tableau de taille 6 lignes, contient les valeurs suivantes : 2777, 2777, 2777, 2778, 2700, vide.
Voici mon code:

Code:

---

1 2 3 4 5 6 7 8

Dim numlap As Variant 'fonction qui remplit le tableau 'comptage du nombre de ligne non vide du tab j = 1 While IsEmpty(numlap(j)) <> True 'tant que ligne tableau non vide j = j + 1 Wend

---

Seulement j'obtient J=6 alorsque ce devrait être 5. :roll:
Où est l'erreur? Je pensais que mon code éait bon, mais non.
Merci de m'aider.

Re,
bon, je me réponds moi même : j'ai rajouté un compteur qui marche mieux et j'obtiens ce que je veux. Pour ceux que ça intéresse:

Code:

---

1 2 3 4 5 6

j = 1 numappli = 0 While IsEmpty(numlap(j)) <> True 'tant que ligne tableau non vide numappli = numappli + 1 j = j + 1 Wend

---

Bonsoir,
et ce code, testes le, en l'adaptant à tes cellules

Code:

---

1 2 3

Dim x x = Application.WorksheetFunction.CountA(Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row)) MsgBox x

---

Salut,

Pour revenir à ton code initial, car ton cas était logique tu initialise j à 1 donc après la première vérification j = 2, etc, c'est mathématique, tu pouvais donc faire

Code:

---

1 2 3 4

j = 0 While IsEmpty(numlap(j+1)) <> True 'tant que ligne tableau non vide j = j + 1 Wend

---