OVH Cloud OVH Cloud

comptage

4 réponses
Avatar
yan
bonjour a toutes et tous

J'ai essayé d'adapter un exemple trouver cher Frédéric S. (qui marche fort
bien) mais j'y arrive pas
j'essaie de compter le nombre de cellules remplies dans une colonnes ou une
plage
Je sélectionne par Columns("A:A").Select ou Range("A1:D10").Select ou
Range("titi").Select
cela dépend de ce qu'il y a à selectionner.
et je voudrais faire ensuite
nombrecellulepleines = quelque chose.Count
Que doit-je mettre a la place de "quelque chose" si c'est possible
Merci a vous
A+
yannick

4 réponses

Avatar
Rai
re-Bonjour Yan,

Pour compter toutes les cellules non-vides
Nbr = WorksheetFunction.CountA(maPlage)

Pour compter toutes les cellules contenant une valeur numérique
Nbr = WorksheetFunction.Count(maPlage)

Bonne continuation


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

"yan" a écrit dans le message de news: 41947bd3$0$10624$
bonjour a toutes et tous

J'ai essayé d'adapter un exemple trouver cher Frédéric S. (qui marche fort
bien) mais j'y arrive pas
j'essaie de compter le nombre de cellules remplies dans une colonnes ou une
plage
Je sélectionne par Columns("A:A").Select ou Range("A1:D10").Select ou
Range("titi").Select
cela dépend de ce qu'il y a à selectionner.
et je voudrais faire ensuite
nombrecellulepleines = quelque chose.Count
Que doit-je mettre a la place de "quelque chose" si c'est possible
Merci a vous
A+
yannick




Avatar
yan
Salut Rai
j'ai essayé Nbr = WorksheetFunction.CountA(maPlage) j'ai remplacé maplage
par
"A1:A45" mais Nbr me renvoi 1 comme valeur alors que j'ai 35 cellules de
remplies dans cette plage
As tu une idée
A+
yannick


"Rai" a écrit dans le message de news:
41948228$0$28122$
re-Bonjour Yan,

Pour compter toutes les cellules non-vides
Nbr = WorksheetFunction.CountA(maPlage)

Pour compter toutes les cellules contenant une valeur numérique
Nbr = WorksheetFunction.Count(maPlage)

Bonne continuation


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

"yan" a écrit dans le message de news:
41947bd3$0$10624$
bonjour a toutes et tous

J'ai essayé d'adapter un exemple trouver cher Frédéric S. (qui marche fort
bien) mais j'y arrive pas
j'essaie de compter le nombre de cellules remplies dans une colonnes ou
une
plage
Je sélectionne par Columns("A:A").Select ou Range("A1:D10").Select ou
Range("titi").Select
cela dépend de ce qu'il y a à selectionner.
et je voudrais faire ensuite
nombrecellulepleines = quelque chose.Count
Que doit-je mettre a la place de "quelque chose" si c'est possible
Merci a vous
A+
yannick




Avatar
Rai
nbr = WorksheetFunction.CountA(Range("A1:C10"))


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...


"yan" a écrit dans le message de news: 41948651$0$17879$
Salut Rai
j'ai essayé Nbr = WorksheetFunction.CountA(maPlage) j'ai remplacé maplage
par
"A1:A45" mais Nbr me renvoi 1 comme valeur alors que j'ai 35 cellules de
remplies dans cette plage
As tu une idée
A+
yannick


"Rai" a écrit dans le message de news:
41948228$0$28122$
re-Bonjour Yan,

Pour compter toutes les cellules non-vides
Nbr = WorksheetFunction.CountA(maPlage)

Pour compter toutes les cellules contenant une valeur numérique
Nbr = WorksheetFunction.Count(maPlage)

Bonne continuation


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

"yan" a écrit dans le message de news:
41947bd3$0$10624$
bonjour a toutes et tous

J'ai essayé d'adapter un exemple trouver cher Frédéric S. (qui marche fort
bien) mais j'y arrive pas
j'essaie de compter le nombre de cellules remplies dans une colonnes ou
une
plage
Je sélectionne par Columns("A:A").Select ou Range("A1:D10").Select ou
Range("titi").Select
cela dépend de ce qu'il y a à selectionner.
et je voudrais faire ensuite
nombrecellulepleines = quelque chose.Count
Que doit-je mettre a la place de "quelque chose" si c'est possible
Merci a vous
A+
yannick








Avatar
yan
Merci Rai
Je viens de trouver ta correction, c'est bon!
Merci de ton aide
Bonne soirée
A+
yannick

"Rai" a écrit dans le message de news:
419487fd$0$28129$
nbr = WorksheetFunction.CountA(Range("A1:C10"))


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...


"yan" a écrit dans le message de news:
41948651$0$17879$
Salut Rai
j'ai essayé Nbr = WorksheetFunction.CountA(maPlage) j'ai remplacé maplage
par
"A1:A45" mais Nbr me renvoi 1 comme valeur alors que j'ai 35 cellules de
remplies dans cette plage
As tu une idée
A+
yannick


"Rai" a écrit dans le message de news:
41948228$0$28122$
re-Bonjour Yan,

Pour compter toutes les cellules non-vides
Nbr = WorksheetFunction.CountA(maPlage)

Pour compter toutes les cellules contenant une valeur numérique
Nbr = WorksheetFunction.Count(maPlage)

Bonne continuation


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

"yan" a écrit dans le message de news:
41947bd3$0$10624$
bonjour a toutes et tous

J'ai essayé d'adapter un exemple trouver cher Frédéric S. (qui marche
fort
bien) mais j'y arrive pas
j'essaie de compter le nombre de cellules remplies dans une colonnes ou
une
plage
Je sélectionne par Columns("A:A").Select ou Range("A1:D10").Select ou
Range("titi").Select
cela dépend de ce qu'il y a à selectionner.
et je voudrais faire ensuite
nombrecellulepleines = quelque chose.Count
Que doit-je mettre a la place de "quelque chose" si c'est possible
Merci a vous
A+
yannick