Problème pour un décompte simple de lignes non vides dans un tableau

Fred0o

XLDnaute Barbatruc

• 2 Janvier 2012

• #2

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Bonjour Magic,

Essaie ceci :

VB:

For Each cel In plage.Cells

A+

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 2 Janvier 2012

• #3

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Bonsoir,
à tester :

Code:

Sub TEST()
Dim plage As Range, lgnpleines As Byte, i As Long
Set plage = [TABLEAU]
For i = 1 To plage.Columns(3).Rows.Count
    If Not IsEmpty(plage.Cells(i, 3)) Then lgnpleines = lgnpleines + 1
Next i
[G4] = lgnpleines
End Sub

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #4

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Bonsoir à tous


J'obtiens 8 avec le code ci-dessous

Code:

Sub CompteNONVIDES()
MsgBox [TABLEAU].Columns(3).SpecialCells(xlCellTypeConstants, 23).Rows.Count
End Sub

Et pour coller à ton exemple

Code:

Sub CompteNONVIDESII()
[G4] = [TABLEAU].Columns(3).SpecialCells(2, 23).Rows.Count
End Sub

 

Dernière édition: 2 Janvier 2012

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 2 Janvier 2012

• #5

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Bonjour à tous

Ceci devrait convenir

Code:

Sub TEST()
[G4] = [TABLEAU].Columns(3).SpecialCells(xlCellTypeConstants).Count / 2
End Sub

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 2 Janvier 2012

• #6

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Bonsoir Fred0o, David84,

Merci pour vos réponses.
J'ai adopté la solution de Fred0o qui marche au poil avec seulement ".Cells" à rajouter.

Bonne soirée à tous.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #7

Re : Problème pour un décompte simple de lignes non vides dans un tableau

RE


Bing! Habitude 😉

Pourquoi le / 2?

EDITION: Désolé je viens de comprendre (en testant ton code)
Le Rows.Count est fiable ou pas ?

EDITON2: Effectivement, Habitude, je viens de tester avec une cellule vide, ton code est ok, pas le mien.

 

Dernière édition: 2 Janvier 2012

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 2 Janvier 2012

• #8

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Re

Je vois que je suis en retard.

@Staple1600
Le rows.count est fiable si les données se suivent.
Si tu met une valeur en D14 et que tu as une cellule vide en D13, ca risque de ne pas fonctionner.


Magic_Doctor, pourquoi ne pas passer par une formule en G4

Code:

=NBVAL(DECALER(TABLEAU;0;2;LIGNES(TABLEAU);1))

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #9

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Re

Habitude:
Donc on divise en fait par le nombre de colonnes fusionnées en dans la colonne C.

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 2 Janvier 2012

• #10

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Bonsoir Habitude,

Si je n'utilise pas de formule c'est, qu'en fait, l'essentiel des "choses" qui se passent dans la feuille est géré par macros et fonctions. Même si je suis fort loin de bien comprendre toutes les subtilités de VBA, c'est plus clair dans mon esprit et les possibilités sont en général nettement plus étendues que les formules.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #11

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Re


@Habitude:
J'ai pas trouvé de moyen plus court (au cas ou le nombre de colonnes augmenterai dans les cellules fusionnées)

Code:

Sub Macro4()
Dim a, b
a = Range(Split([TABLEAU].Columns(3).Address, ":")(1)).Column - 1
b = Range(Split([TABLEAU].Address, ":")(1)).Column
[G4] = [TABLEAU].Columns(3).SpecialCells(xlCellTypeConstants).Count / (b - a)
End Sub

PS: Bonsoir Magic Doctor 😉

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 2 Janvier 2012

• #12

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Bonsoir,
je pensais qu'il fallait rester le plus fidèle possible à la macro de départ mais sinon :

Sub Macro4()
[G4] = Application.CountIf([TABLEAU].Columns(3), "<>")
End Sub

Cliquez pour agrandir...

A+

 

Dernière édition: 2 Janvier 2012

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 2 Janvier 2012

• #13

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Re

@Staple1600

Peut-être comme ceci

Code:

Sub TEST()
With [TABLEAU].Columns(3).SpecialCells(xlCellTypeConstants): [G4] = .Count / .Columns.Count: End With
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #14

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Re

Merci Habitude
J'étais resté bloqué sur
MsgBox [TABLEAU].Columns(3).Columns.Count

J'ai honte.

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 3 Janvier 2012

• #15

Re : Problème pour un décompte simple de lignes non vides dans un tableau

Re
j'avais proposé :

Sub Macro4()
[G4] = Application.CountIf([TABLEAU].Columns(3), "<>")
End Sub

Cliquez pour agrandir...

mais on peut encore plus simplement proposer

Sub Macro4()
[G4] = Application.CountA([TABLEAU].Columns(3))
End Sub

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif