Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comptage

Comptage

17 réponses
Avatar
Nesta
Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un tableau
Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans lequel
il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui je
pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides ?

D'avance, merci pour vos lanternes.


Nesta
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
garnote
Bonsoir Nesta,

Peut-être que :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Range("A:A"))
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:

Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un tableau
Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans
lequel il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui je
pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides ?

D'avance, merci pour vos lanternes.


Nesta



Avatar
JLuc
*Bonjour Nesta*,
Et avec :
NBlignes = Workbooks(NomFichier).Sheets("Feuil1
").Range("A65536").End(xlup).row

Devrait convenir, dis nous :'-)
Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un tableau
Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans lequel
il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui je
pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides ?

D'avance, merci pour vos lanternes.


Nesta



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Nesta
Salut Serge,

Merci pour la petite fonction.
Cette fonction permet de compter effectivement, mais uniquement dans la
feuille active (enfin je crois !); dans le cas où je souhaite spécifier la
feuille d'un fichier en particulier, je fais comment ?


Cordialement,
Nesta



"garnote" a écrit dans le message de news:

Bonsoir Nesta,

Peut-être que :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Range("A:A"))
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:

Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un tableau
Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans
lequel il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui je
pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides ?

D'avance, merci pour vos lanternes.


Nesta







Avatar
garnote
Un exemple avec la feuille nommée Feuil1 :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Worksheets("Feuil1").[A:A])
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:
%
Salut Serge,

Merci pour la petite fonction.
Cette fonction permet de compter effectivement, mais uniquement dans la
feuille active (enfin je crois !); dans le cas où je souhaite spécifier la
feuille d'un fichier en particulier, je fais comment ?


Cordialement,
Nesta



"garnote" a écrit dans le message de news:

Bonsoir Nesta,

Peut-être que :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Range("A:A"))
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:

Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un
tableau Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans
lequel il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui je
pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides
?

D'avance, merci pour vos lanternes.


Nesta











Avatar
Modeste
Bonsour® Serge
tu te fait si rare ... (1 mois déja !!)
je souhaiterai que tu reprennes contact
à propos de nos petites expérimentations mathématico-ludique

tu connais le chemin ???
http://www.cerbermail.com/?Y5u8E0itAc

--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Avatar
garnote
Si le classeur nommé MonClasseur est ouvert, alors :

Sub Comptage()
NLNV =
WorksheetFunction.CountA(Workbooks("MonClasseur").Worksheets("Feuil1").[A:A])
MsgBox NLNV
End Sub

Le classeur auquel tu te réfères est-il toujours ouvert ?

Serge


"garnote" a écrit dans le message de news:
O2U$
Un exemple avec la feuille nommée Feuil1 :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Worksheets("Feuil1").[A:A])
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:
%
Salut Serge,

Merci pour la petite fonction.
Cette fonction permet de compter effectivement, mais uniquement dans la
feuille active (enfin je crois !); dans le cas où je souhaite spécifier
la feuille d'un fichier en particulier, je fais comment ?


Cordialement,
Nesta



"garnote" a écrit dans le message de news:

Bonsoir Nesta,

Peut-être que :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Range("A:A"))
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:

Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un
tableau Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans
lequel il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui
je pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides
?

D'avance, merci pour vos lanternes.


Nesta















Avatar
Nesta
Re-Salut Serge,

Décidément, j'ai du mal.... :-(

Je n'arrive pas à spécifier cette fois la feuille d'un fichier Excel en
particulier, car mon code n'est pas sur le fichier qui contient la feuille
concernée...
Autrement dit, quelle est la syntaxe pour mentionner d'aller chercher la
feuille "Feuil1" du fichier "Fichier1" ?
Workbook("Fichier1")...... ??

Désolé pour mon ignorance !!

Nesta

"garnote" a écrit dans le message de news:
O2U$
Un exemple avec la feuille nommée Feuil1 :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Worksheets("Feuil1").[A:A])
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:
%
Salut Serge,

Merci pour la petite fonction.
Cette fonction permet de compter effectivement, mais uniquement dans la
feuille active (enfin je crois !); dans le cas où je souhaite spécifier
la feuille d'un fichier en particulier, je fais comment ?


Cordialement,
Nesta



"garnote" a écrit dans le message de news:

Bonsoir Nesta,

Peut-être que :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Range("A:A"))
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:

Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un
tableau Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans
lequel il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui
je pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides
?

D'avance, merci pour vos lanternes.


Nesta















Avatar
Nesta
Bonsoir JLuc !


Merci pour ta syntaxe que j'ai testé, mais elle me compte en fait toutes les
cases, qu'elles soient vides ou pas !
Et je cherche en fait à voir uniquement le nombre de cellules
non-vides....exigeant, je sais !

Nesta





"JLuc" a écrit dans le message de news:

*Bonjour Nesta*,
Et avec :
NBlignes = Workbooks(NomFichier).Sheets("Feuil1
").Range("A65536").End(xlup).row

Devrait convenir, dis nous :'-)
Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un tableau
Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans
lequel il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui je
pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides ?

D'avance, merci pour vos lanternes.


Nesta



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
garnote
Salut Modeste,

Je n'ai toujours pas d'ordi chez moi.
Quand j'aurai ma nouvelle machine,
je reprendrai contact, ça c'est sourd !
Bien hâte.

Salutations distinguées,
Serge

"Modeste" a écrit dans le message de news:
%23Zx$
Bonsour® Serge
tu te fait si rare ... (1 mois déja !!)
je souhaiterai que tu reprennes contact
à propos de nos petites expérimentations mathématico-ludique

tu connais le chemin ???
http://www.cerbermail.com/?Y5u8E0itAc

--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr




Avatar
isabelle
bonjour nesta,

With Workbooks("PERSO.XLS")
Set plg = .Sheets("zaza").Range("A1:A" & .Sheets("zaza").Range("A65536").End(xlUp).Row)
End With
NBlignes = Evaluate("SUMPRODUCT((" & plg.Address & "=0)*1)")

isabelle


Re-Salut Serge,

Décidément, j'ai du mal.... :-(

Je n'arrive pas à spécifier cette fois la feuille d'un fichier Excel en
particulier, car mon code n'est pas sur le fichier qui contient la feuille
concernée...
Autrement dit, quelle est la syntaxe pour mentionner d'aller chercher la
feuille "Feuil1" du fichier "Fichier1" ?
Workbook("Fichier1")...... ??

Désolé pour mon ignorance !!

Nesta

"garnote" a écrit dans le message de news:
O2U$

Un exemple avec la feuille nommée Feuil1 :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Worksheets("Feuil1").[A:A])
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:
%

Salut Serge,

Merci pour la petite fonction.
Cette fonction permet de compter effectivement, mais uniquement dans la
feuille active (enfin je crois !); dans le cas où je souhaite spécifier
la feuille d'un fichier en particulier, je fais comment ?


Cordialement,
Nesta



"garnote" a écrit dans le message de news:


Bonsoir Nesta,

Peut-être que :

Sub Comptage()
NLNV = WorksheetFunction.CountA(Range("A:A"))
MsgBox NLNV
End Sub

Serge

"Nesta" a écrit dans le message de news:


Bonsoir à tous,


Je cherche un moyen de compter le nombre de lignes non-vides d'un
tableau Excel, et à placer ce nombre dans une variable.
Ma syntaxe de départ est la suivante :

NBlignes = Workbooks(NomFichier).Sheets("Feuil1 ").Range("A:A").count

NBlignes est ma variable pour stocker le nombre de lignes
NomFichier est ma variablr qui contient le nom du fichier Excel dans
lequel il faut compter
Feuil1 est le nom de la feuille du fichier.
Range(A:A) est la plage où il faut compter.

Avec la ligne de commande ci-dessus, il me renvoie 65 536 lignes (qui
je pense correspond au nombre de lignes, vides ou pas).
Comment spécifier que souhaite uniquement le nombre de lignes non-vides
?

D'avance, merci pour vos lanternes.


Nesta

















1 2