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

7 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
isabelle
est ce qu'une cellule égale à zéro est considéré comme étant vide ?

isabelle


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
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
Bonjour Isabelle,

Merci pour les infos.
Une cellule contenant des zéros ne doit pas être considérée comme nulle ; au
contraire, il est important de prendre en compte cette valeur....pkoi ?


Cordialement,
Nesta




"isabelle" a écrit dans le message de news:
%
est ce qu'une cellule égale à zéro est considéré comme étant vide ?

isabelle


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
isabelle
bonjour Nesta,

Sub Macro1()
With Workbooks("PERSO.XLS")
Set plg = .Sheets("zaza").Range("A1:A" & .Sheets("zaza").Range("A65536").End(xlUp).Row)
For Each c In plg
If Not IsEmpty(c) Then NBlignes = NBlignes + 1
Next
End With
End Sub

isabelle

Bonjour Isabelle,

Merci pour les infos.
Une cellule contenant des zéros ne doit pas être considérée comme nulle ; au
contraire, il est important de prendre en compte cette valeur....pkoi ?


Cordialement,
Nesta




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

est ce qu'une cellule égale à zéro est considéré comme étant vide ?

isabelle



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
isabelle
une autre solution sans boucle,

Sub Macro2()
With Workbooks("PERSO.XLS")
Set plg = .Sheets("zaza").Range("A1:A" & .Sheets("zaza").Range("A65536").End(xlUp).Row)
x = plg.Count
y = plg.SpecialCells(xlCellTypeBlanks).Count
NBlignes = x - y
End With
End Sub

isabelle


bonjour Nesta,

Sub Macro1()
With Workbooks("PERSO.XLS")
Set plg = .Sheets("zaza").Range("A1:A" &
.Sheets("zaza").Range("A65536").End(xlUp).Row)
For Each c In plg
If Not IsEmpty(c) Then NBlignes = NBlignes + 1
Next
End With
End Sub

isabelle


Bonjour Isabelle,

Merci pour les infos.
Une cellule contenant des zéros ne doit pas être considérée comme
nulle ; au contraire, il est important de prendre en compte cette
valeur....pkoi ?


Cordialement,
Nesta




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

est ce qu'une cellule égale à zéro est considéré comme étant vide ?

isabelle



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
Nesta
Bonjour Isabelle,

Merci pour les infos.
Une cellule contenant des zéros ne doit pas être considérée comme nulle ; au
contraire, il est important de prendre en compte cette valeur....pourquoi ?


Cordialement,
Nesta






"isabelle" a écrit dans le message de news:
%
est ce qu'une cellule égale à zéro est considéré comme étant vide ?

isabelle


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
isabelle
bonjour Nesta,

excel fait une différence entre une cellule ayant une valeur nulle et une cellule vide :

La fonction IsNull renvoie la valeur True si l'argument expression est de type Null ; sinon, la fonction IsNull renvoie la valeur False. Si l'argument expression contient plusieurs variables, et si
l'une d'elles est de type Null, la valeur True est renvoyée pour l'expression entière.

La valeur Null indique que la variable de type Variant ne contient aucune donnée valide. Null est donc différent de Empty, qui indique qu'une variable n'a pas encore été initialisée. De même, Null ne
correspond pas à une chaîne de longueur nulle (""), bien que cette dernière soit parfois appelée chaîne nulle.

Important Utilisez la fonction IsNull pour déterminer si une expression contient une valeur de type Null. Certaines expressions dont vous pourriez penser qu'elles sont vraies (True) dans certaines
circonstances, par exemple If Var = Null et If Var <> Null, ont pourtant toujours la valeur False. En effet, toute expression contenant une valeur de type Null est elle-même de type Null et a par
conséquent la valeur False.


isabelle

Bonjour Isabelle,

Merci pour les infos.
Une cellule contenant des zéros ne doit pas être considérée comme nulle ; au
contraire, il est important de prendre en compte cette valeur....pourquoi ?


Cordialement,
Nesta






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

est ce qu'une cellule égale à zéro est considéré comme étant vide ?

isabelle



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














1 2