compter que le visible

[zumye]

bonjour le forum

dans la colonne A par exemple , comment peut on compter en vba, les cellulles non vide sans compter les lignes masquées.
cellule visible et remplie =1
et celule remplie et masquée=0
merci

 

[Cousinhub]

Re : compter que le visible

Bonjour,

si ta zone commence en A2, par exemple :

essaie ce code :

x = Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count

 

[ftho]

Re : compter que le visible

Bonjour,

Tu peux essayer ceci :

Sub test55()
Dim plage As Range, DerL As Integer

With Sheets("Feuil1") [COLOR="SeaGreen"]'<-- nom de la feuille à adapter[/COLOR]
    DerL = .Cells(Rows.Count, 1).End(xlUp).Row [COLOR="seagreen"]'<-- dernière ligne utilisée de la colonne A[/COLOR]
    Set plage = Range("A2:A" & DerL) [COLOR="seagreen"]'<-- définition de la plage de cellules à compter[/COLOR]
    MsgBox Application.WorksheetFunction.CountA(plage.SpecialCells(xlCellTypeVisible)) '[COLOR="seagreen"]<-- compte le nombre de cellules visibles et non vides[/COLOR]
End With

End Sub

 

[pierrejean]

Re : compter que le visible

bonjour zumye

Un essai par formule personnalisée

 

[Pierrot93]

Re : compter que le visible

Bonsoir à tous

une autre solution, peut être ...

Dim x As Byte
x = Range("A1:A10").SpecialCells(12).SpecialCells(2).Count

bonne soirée
@+

 

[zumye]

Re : compter que le visible

rebonjour le forum
j'ai essayer quasi toutes les solutions, elles fonctionnent ...
maintenant je me retrouve avec un autre cas similaire sauf que cette fois ci les case pleines sont des chiffres
et au lieu de compter le nombre de case pleine et visible,
il faut additionner les chiffres non masqué dans la colonnes A.
ex :
a15=2 visible
a16=5 masquée
a17=""
a18=2 visible

total en range w1 = 4

merci

 

[Jocelyn]

Re : compter que le visible

Bonjour le Forum,
Bonjour zumye, bhbh, ftho, pierrejean, Pierrot93,

en copiant et triturant la fonction personnalisée de pierreJean (j'espère qu'il ne m'en voudra pas) un essai

Jocelyn

 

[zumye]

Re : compter que le visible

merci jocelyn , c'est ce que je voulais

 

[Jocelyn]

Re : compter que le visible

re,

Une nouvelle version au cas ou dans la colonne il n'y aurait pas que des valeurs numériques

Jocelyn

 

[pierrejean]

Re : compter que le visible

Bonjour a tous

Uniquement pour rassurer Jocelyn et lui dire que non seulement je ne lui en veux pas mais que je le felicite pour cette magistrale incursion dans le Vba

 

[jeanpierre]

Re : compter que le visible

Bonsoir Jocelyn, zumye, Pierrot, Pierrejean, ftho , bhbh,

Le seul problème est que, si des lignes sont cachées ou réouvertes, la fonction ne se remet pas à jour. Il faut la revalider ou les revalider une à une.

Sinon, c'est parfait.

Jean-Pierre