compter le nb de lignes

RichardS · 18 Février 2018

Bonjour à tous,

Je dispose d'une feuille et je travaille sur les 3 premières colonnes.
Les 3 colonnes sont formatées et certaines contiennent des formules.
Il suffit qu'une des cellules d'une ligne soit saisie pour que les 2 autres contiennent une donnée (calculées ou saisies).

Ce que j'ai trouvé à aujourd'hui me calcule soit le nombre de ligne totale de la feuille, soit le nombre de lignes y compris les lignes contenant des formules.

Or je souhaite connaitre le nombre de lignes contenant des données, hors formules et formats.
Et là je sèche lamentablement. Quelqu'un aurait la gentillesse de m'aider ?

Et pour remercier d'avance, un petit amusement : je vais acheter du vin dans une boutique 13 bouteilles à 9€ chacune. Le vendeur me demande si j'ai plus de 18 ans. Je lui répond que s'il ôte mon année de naissance au montant de l'achat, il aura mon age.

Cordialement
RichardS

zebanx · 18 Février 2018

Bonjour RichardS et le forum

J'ai trouvé un UDF qui restitue un nombre suivant si la plage contient des cellules avec ou sans formules.
Le lien est sur le fichier.

++
zebanx

Staple1600 · 18 Février 2018

Bonjour le fil, le forum, zebanx

Une formule (qui fait mal le job)
=SOMMEPROD(--ESTNUM(A1:A11))+SOMMEPROD(--ESTTEXTE(A1:A11))
(compte aussi les formules)

Une formule qui compte les étoiles
=NB.SI(A1:A11;"*")
(compte en fait les cellules qui contiennent du texte et les formules qui renvoient du texte)

On peut aussi utiliser
=SOMMEPROD((A1:A11<>"")+0)
ou
=NBVAL(A1:A11)
ou
=NB(A1:A11)

Le problème de ces formules, c'est les formules justement
(Elles s'obstinent à compter les cellules contenant du texte et/ou des nombres et des formules)

zebanx · 18 Février 2018

Salut Staple1600

A priori depuis excel 2013 (ta version), il y a une formule *de calcul direct du type
=SUMPRODUCT(--ISFORMULA(A:A))

A re-traduire mais tu devrais facilement trouver une fonction ESTFORMULE ou assimilé sous ta version..
Un lien en anglais qui pourrait d'ailleurs peut-être t'intéresser (c'est pas pour moi, je suis encore en 2003)
https://exceljet.net/excel-functions/excel-isformula-function

++ zebanx

* https://excelribbon.tips.net/T013330_Counting_Cells_Containing_a_Formula.html

Staple1600 · 18 Février 2018

Re

@zebanx
Voila à une synergie entre XLDnautes comme je les aime

Merci zebanx
(j'oublie trop souvent que je suis sur Excel 2013, mais c'est normal sur ce PC
*: J'ai Excel 4 et Excel 97 et Excel 2010 et Excel 2013

Donc sans les formules
=NBVAL(A1:A11)-SOMMEPROD(--ESTFORMULE(A1:A11))

NB: Maintenant la question est : pourquoi compter ces cellules ?
Si j'étais moi, je me serai convaincu de faire ainsi
Je sélectionne ma colonne à compter donc
F5
ALT+C
ALT+C
puis je penche ma teuté vers le bas à droite et je lorgne dans la staus bar
pour y lire le nombre de cellules
(Ce faisant j'entretiens :
1) ma dextérité digitale
2) cela me décontracte le cou
3) ça me fait plaisir de faire plaisir à mon clavier en l'effleurant délicatement.

*: merci VB

RichardS · 19 Février 2018

Staple1600 à dit:
Re

@zebanx
Voila à une synergie entre XLDnautes comme je les aime

Merci zebanx
(j'oublie trop souvent que je suis sur Excel 2013, mais c'est normal sur ce PC
*: J'ai Excel 4 et Excel 97 et Excel 2010 et Excel 2013

Donc sans les formules
=NBVAL(A1:A11)-SOMMEPROD(--ESTFORMULE(A1:A11))

NB: Maintenant la question est : pourquoi compter ces cellules ?
Si j'étais moi, je me serai convaincu de faire ainsi
Je sélectionne ma colonne à compter donc
F5
ALT+C
ALT+C
puis je penche ma teuté vers le bas à droite et je lorgne dans la staus bar
pour y lire le nombre de cellules
(Ce faisant j'entretiens :
1) ma dextérité digitale
2) cela me décontracte le cou
3) ça me fait plaisir de faire plaisir à mon clavier en l'effleurant délicatement.

*: merci VB

RichardS · 19 Février 2018

Merci à tous pour vos réponses et votre rapidité.

Zebanx, j'apprécie ton humour. C'est vrai que vu mon grand age, l'arthrose me gagne et que j'ai besoin de faire de l'exercice. Ceci dit, même sans bouger la tête ça fonctionne. Il suffit de sélectionner une ligne et majuscule+flèche vers le bas et le compteur de ligne s'incrémente sous la tête de ligne.

Blague mise à part, je me rend compte que ma question était incomplète. Mon problème c'est sur Excel 2007 oui mais en VBA.

Ceci dit compte tenue de vos réponses, si cela n'est pas possible sous excel 2007, il y a peu de chance que cela le soit sous VBA.

Je vais donc mettre en place une routine de comptage, long, peu élégant mais efficace.

Encore merci à tous

zebanx · 19 Février 2018

RichardS à dit:
Merci à tous pour vos réponses et votre rapidité.
Zebanx, j'apprécie ton humour. C'est vrai que vu mon grand age, l'arthrose me gagne et que j'ai besoin de faire de l'exercice. Ceci dit, même sans bouger la tête ça fonctionne. Il suffit de sélectionner une ligne et majuscule+flèche vers le bas et le compteur de ligne s'incrémente sous la tête de ligne.
Blague mise à part, je me rend compte que ma question était incomplète. Mon problème c'est sur Excel 2007 oui mais en VBA.

Bonjour RichardS.

Rendons à Staple1600 ce qui lui appartient en terme d'humour et d'une proposition par touches clavier satisfaisante.
Ma réponse en #2 était un UDF. Il s'agit (donc) bien d'un code VBA qui peut être utilisé pour au moins obtenir la valeur souhaitée (formule ou pas formule).
Ou je n'ai pas compris la demande, ce qui est assez souvent le cas...(et plus souvent encore quand on ne met pas de fichiers attaché).

++
zebanx

RichardS · 19 Février 2018

Bonjour Staple,

Merci pour ta constance. Je vais tester.
C'est moi qui n'avais pas compris ta réponse. Entre temps, j'ai trouvé une équivalence de nbval qui fonctionne bien (en dehors des formules) c'est :

S_BCi.Activate
nblig = Application.CountA(Columns("A"))

Où S_BCi est le classeur et la feuille
Et la formule, permet de saisir dans nblig, le nombre de cellules non vides de la colonne A.

A bientôt

compter le nb de lignes

RichardS

XLDnaute Junior

zebanx

XLDnaute Accro

Pièces jointes

Staple1600

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

RichardS

XLDnaute Junior

RichardS

XLDnaute Junior

zebanx

XLDnaute Accro

RichardS

XLDnaute Junior

Discussions similaires