Comptage dun nombre de ligne

Bonjour Oliv,

Tu as également une fonction directe sous excel : nbval(MaColonne)

une autre solution :nb.si(A1:A1500;'>15') te donne le nombre de cellules dont la valeur est sup à 15

à+
Bertrand

Bjr Oliv,Muzik,le Forum

tu peux coller ce code,faire ta sélection et lancer la macro.
compte les cellules ou il y a qquechose(un espace est qquechose).
bonne utilisation
bonsoir à tous

Sub CountCells()
Dim i
Dim cells
i = 0
For Each cells In Selection
If cells.Value <> '' Then
'cells.Select
i = i + 1
End If
Next
MsgBox 'il y a ' & i & ' cellules non vierges'
End Sub

Bonjour Oliv,Muzik,BobStriker, le Forum

Nombre de valeurs numériques et alphanumériques dans la colonne A

Sub NbValor()
Dim Plage As Range
Set Plage = Worksheets('Feuil1').Range('A:A')
MsgBox Application.WorksheetFunction.CountA(Plage)
End Sub

Bonne journée

PhiBou