Calcul si cellule remplie par vba

bbb38

XLDnaute Accro

• 25 Novembre 2015

• #2

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

 

Pièces jointes

• exemple-1.xls

  40.5 KB · Affichages: 31
• exemple-1.xls

  40.5 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2015

• #3

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+

 

Pièces jointes

• exemple par formule(1).xls

  63 KB · Affichages: 31
• exemple par VBA(1).xls

  77.5 KB · Affichages: 35

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2015

• #4

Re : Calcul si cellule remplie par vba

Re,

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

Code:

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+

 

Pièces jointes

• exemple par fonction VBA(1).xls

  78 KB · Affichages: 29

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2015

• #5

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 :

Code:

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

Fichier (2).

A+

 

Pièces jointes

• exemple par formule(2).xls

  63 KB · Affichages: 30

Dernière édition: 25 Novembre 2015

Vote positif 0 Vote négatif