compter des cellules non vides

J

julien

Guest

• 30 Mai 2002

• #2

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

 

Vote positif 0 Vote négatif

S

STéphane

Guest

• 30 Mai 2002

• #3

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

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 30 Mai 2002

• #4

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.

 

Vote positif 0 Vote négatif

U

utilsfr

Guest

• 31 Mai 2002

• #5

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

 

Vote positif 0 Vote négatif