Calcul si cellule remplie par vba

[meteo62]

Code vba


dans un tableau je souhaite savoir combien de cellule sont remplie et avoir le nombre


fichier exemple joint

merci

 

[bbb38]

Re : Calcul si cellule remplie par vba

Bonjour meteo62, le forum,
Une solution par boucles (car cellules fusionnées), dans l’hypothèse où les tableaux sont identiques et avec un espacement régulier.
Cordialement,
Bernard

 

[job75]

Re : Calcul si cellule remplie par vba

Bonjour meteo62, bbb38,

Solutions par formule et par VBA dans les 2 fichier joints.

J'ai supposé que dans chaque tableau vous voulez compter les lignes dont au moins une cellule n'est pas vide.

A+

 

[job75]

Re : Calcul si cellule remplie par vba

Re,

On peut aussi utiliser comme dans ce fichier une fonction VBA très simple :

Function NbLignes(r As Range) As Long
For Each r In r.Rows
  If Application.CountA(r) Then NbLignes = NbLignes + 1
Next
End Function

Le code de la fonction doit être placé dans un Module standard.

Mais dans ce cas il est aussi simple d'utiliser le 1er fichier du post #3.

A+

 

[job75]

Re : Calcul si cellule remplie par vba

Re,

Je reviens sur la solution par formule avec celle-ci, utile s'il y a beaucoup de colonnes :

=SOMMEPROD(SIGNE(SOUS.TOTAL(3;DECALER(C7:E7;LIGNE(C8:E15)-LIGNE(C7:E7);))))

Fichier (2).

A+