Comptage de cellules pleines

[missLaura]

Bonjour,
J'aimerais savoir s'il existe un moyen de compter le nombre de cellules pleines sur une plage de cellules verticale sans utiliser de boucle for et ranger cette valeur dans une variable N.

Merci <3 <3

 

[BOISGONTIER]

Re : Comptage de cellules pleines

Bonsoir,

n = Application.CountA([A1:C5])

JB

 

[camarchepas]

Re : Comptage de cellules pleines

Bonjour,

Une autre méthode :

Sub Bouton1_QuandClic()
Dim DernièreLigne As Long
Dim PremièreLigne As Long
PremièreLigne = Range("A1").End(xlDown).Row
DernièreLigne = Range("A65536").End(xlUp).Row
MsgBox "la première ligne est la " & PremièreLigne & " et la derniere ligne est " & DernièreLigne
End Sub

 

[ROGER2327]

Re : Comptage de cellules pleines

Bonsoir à tous

[COLOR="DarkSlateGray"][B]   N = [A1:C5].Count - WorksheetFunction.CountIf([A1:C5], "") [COLOR="SeaGreen"]'Plage à adapter[/COLOR][/B][/COLOR]

peut-être ?​

ROGER2327
#3648

Vendredi 20 Merdre 137 (Sainte Colombine, expurgée, SQ)
18 Prairial An CCXVIII
2010-W22-7T17:30:12Z