nbre de cellule ds une selectionRésolu

Question

bonjour,

je souhaite déterminer le nbre de cellules non vide que je dispose ds une colonne.

j'ai donc écrit:

PLV = Columns(1).Find("", [A8], , , xlByRows, xlNext).Row


(1er souci, il ne commence pas a la ligne 8 et me compte tout )

sinon à par ca ca fonctionne,

autre problème je fais des filtres sur cette colonne. et qd je veux lancer cette routine de calcul, il n'en tient pas compte et me prend également les lignes non filtrées.. et ca ne m'arrange pas!

alors si qq'un peut me renseigner!!!!!
Achi++

mortalino · Accepted Answer

Oui, mais j'ai pas trop compris ce qu'il voulait faire... Voici ta fonction en code : Sub CompteCelluleVide() Dim MaPlage As Range, MaCellule As Range Dim Compteur As Integer Set MaPlage = Range("A8:A50"): Compteur = 0 For Each MaCellule In MaPlage If MaCellule.Text = vbNullString Then Compteur = Compteur + 1 Next MaCellule MsgBox Compteur End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Salut,

au niveau filtre, je ne sais pas, mais pour ton 1er problème, fait le comme ceci :

PLV = Range("A8").End(xlDown)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_casy · Answer

Pas sur de ton truc Mortalino, ça indique juste la première cellule vide

Sinon au niveau formule d'excel c'est NBVAL
Ainsi =NbVal(A8:A50) te renvoie l nombre de cellules non vide sur la plage A8:A50

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Molenn · Answer

Pfff, si même Casy se met à me piquer mes réponses ! 

Donc, pour ton pb, effectivement, un NBVal est amplement suffisant.
Et pour compter tes cellules en fonction de tes filtres, il suffit de jouer avec les NBVAL et les NB.SI en fonction de ce dont tu as besoin.

Molenn

cs_Achi · Answer

Bonjour,

Merci pr votre aide...

en fait pr etre plus clair je me sers de ce code ds le but de connaitre le nombre de ligne que mon tableau comporte... sachant qu'il est constament modifié...

je filtre également une colonne de ce tableau (en fonction d'un critère)... le problème que j'ai toujour d'ailleurs c'est que lorsque je lance mon code après avoir filtré il me prend en compte toutes les lignes de mon tableau.. 

voici mon code au cas ou vous pourriez m'aider!!


Public Sub NbreOt()
    Dim MaPlage As Range, MaCellule As Range
    Dim Compteur As Integer


L1 = 8


Do Until Cells(L1, 1) = ""
L1 = L1 + 1
Loop


Set MaPlage Range("A8:A" & L1): Compteur 0


For Each MaCellule In MaPlage
    If MaCellule.Text <> vbNullString Then Compteur = Compteur + 1
Next MaCellule


Worksheets(1).Label12.Caption = Compteur
End Sub

voilà!! Achi ++

Nbre de cellule ds une selection

5 réponses

Votre réponse

Discussions similaires