Comptage dun nombre de ligne

[Oliv]

Bonjour,
QQN connait il une fonction VBA permettant de compter un nombre de lignes égal aux cellules pleines d'une colonne?

Merci d'avance

 

[mutzik]

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

 

[BobStriker]

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

 

[PhiBou]

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