compter des cellules non vides

[Isabelle]

Salut,

Je voudrais savoir comment compter le nombre de cellules non vides d'une colonne.

En fait, une fois cela fait, j'aimerais créer un compteur qui me permettra de compter le nombre d'éléments présents dans la liste.

Ex : soit une colonne contenant 6 valeurs.
Mon compteur est d'abord à 6.

Si on ajoute une valeur, il passe à 7.

Etc.

Savez vous comment faire please?

 

[julien]

compt=1
for i=1 to 6
if cells(i,[numéro de la colone])<>"" then
compt=compt+1
next

avec ceci, le nombre de cellules non vides est repris dans la variable compt

 

[STéphane]

col = 1
With Range(Cells(1, col), Cells(65536, col).End(xlUp))
MsgBox .Cells.Count & " cellules sont sélectionnées"
MsgBox (.Cells.Count - .Cells.SpecialCells(xlCellTypeBlanks).Count) & " cellules non vides"
MsgBox .Cells.SpecialCells(xlCellTypeBlanks).Count & " cellules vides"

End With


simplement pour connaître le nombre de valeurs d'une colonne
msgbox application.counta(activesheet.columns(1))

bye
stephane

 

[Ti]

sans passer par une macro, tu peux aussi utiliser la fonction suivante.
=NBVAL(A:A)
dans cet exemple, on suppose que ta colonne ne contient que les valeurs à dénombrer. Tu places donc la formule dans une autre colonne.

 

[utilsfr]

Essaie cette fonction

=NB.SI(A1:A5000."<>")

pour exemple:

A1 ---------> Correspond a la première valeur dans ton tableau
A5000 ----> Correspond a la derniere valeur dans ton tableu