OVH Cloud OVH Cloud

éléments utilisés

6 réponses
Avatar
BastienD
BOnjour, Je voudrais simplement savoir comment on fait poru compter le nombre
de lignes (ou colonnes) utilisées dans un onglet.

6 réponses

Avatar
BastienD
"BastienD" wrote:

BOnjour, Je voudrais simplement savoir comment on fait poru compter le nombre
de lignes (ou colonnes) utilisées dans un onglet.



En fait, j'utilise 26 onglets (les lettres de l'alphabet) et je souhaiterais
connaître combien d'éléments j'ai pour chaque lettre sans avoir à les compter
26 fois

Avatar
docm
Bonjour.

Peut-être avec a fonction WorksheetFunction.CountA.
Sub Compteur()
For Each s In Worksheets
Total = Total + WorksheetFunction.CountA(s.Columns(1))
Next
End Sub

docm

"BastienD" a écrit dans le message
news:

"BastienD" wrote:

BOnjour, Je voudrais simplement savoir comment on fait poru compter le
nombre


de lignes (ou colonnes) utilisées dans un onglet.



En fait, j'utilise 26 onglets (les lettres de l'alphabet) et je
souhaiterais

connaître combien d'éléments j'ai pour chaque lettre sans avoir à les
compter

26 fois



Avatar
Jacky
Bonjour,
Si les feuilles sont nommées A,B.....Z et le nombre de cellules
aléatoirement remplies
Ceci peut-être:
'--------
Sub jj()
For i = 65 To 67
Sheets(Chr$(i)).Activate
x = x + Application.CountA(Range("a1:" &
Cells.SpecialCells(xlLastCell).Address))
Next
MsgBox "Nombre de cellules utilisées dans les feuilles A...Z : " & x
End Sub
'--------------
Salutations
JJ

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

"BastienD" wrote:

BOnjour, Je voudrais simplement savoir comment on fait poru compter le
nombre


de lignes (ou colonnes) utilisées dans un onglet.



En fait, j'utilise 26 onglets (les lettres de l'alphabet) et je
souhaiterais

connaître combien d'éléments j'ai pour chaque lettre sans avoir à les
compter

26 fois



Avatar
Jacky
Oupss
For i = 65 To 90
JJ

"Jacky" a écrit dans le message de
news:
Bonjour,
Si les feuilles sont nommées A,B.....Z et le nombre de cellules
aléatoirement remplies
Ceci peut-être:
'--------
Sub jj()
For i = 65 To 67
Sheets(Chr$(i)).Activate
x = x + Application.CountA(Range("a1:" &
Cells.SpecialCells(xlLastCell).Address))
Next
MsgBox "Nombre de cellules utilisées dans les feuilles A...Z : " & x
End Sub
'--------------
Salutations
JJ

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

"BastienD" wrote:

BOnjour, Je voudrais simplement savoir comment on fait poru compter le
nombre


de lignes (ou colonnes) utilisées dans un onglet.



En fait, j'utilise 26 onglets (les lettres de l'alphabet) et je
souhaiterais

connaître combien d'éléments j'ai pour chaque lettre sans avoir à les
compter

26 fois







Avatar
BastienD
Euh... Merci pour cette réponse, mais excusez-moi d'être aussi nul...
Comment est-ce que je fais pour intégrer cette fonction ?

Merci...


"Jacky" wrote:

Oupss
For i = 65 To 90
JJ

"Jacky" a écrit dans le message de
news:
Bonjour,
Si les feuilles sont nommées A,B.....Z et le nombre de cellules
aléatoirement remplies
Ceci peut-être:
'--------
Sub jj()
For i = 65 To 67
Sheets(Chr$(i)).Activate
x = x + Application.CountA(Range("a1:" &
Cells.SpecialCells(xlLastCell).Address))
Next
MsgBox "Nombre de cellules utilisées dans les feuilles A...Z : " & x
End Sub
'--------------
Salutations
JJ

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

"BastienD" wrote:

BOnjour, Je voudrais simplement savoir comment on fait poru compter le
nombre


de lignes (ou colonnes) utilisées dans un onglet.



En fait, j'utilise 26 onglets (les lettres de l'alphabet) et je
souhaiterais

connaître combien d'éléments j'ai pour chaque lettre sans avoir à les
compter

26 fois












Avatar
Jacky
Exemple brouillon ici
http://cjoint.com/?jpmIK5zBLL

Bon courage
JJ

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

Euh... Merci pour cette réponse, mais excusez-moi d'être aussi nul...
Comment est-ce que je fais pour intégrer cette fonction ?

Merci...


"Jacky" wrote:

Oupss
For i = 65 To 90
JJ

"Jacky" a écrit dans le message de
news:
Bonjour,
Si les feuilles sont nommées A,B.....Z et le nombre de cellules
aléatoirement remplies
Ceci peut-être:
'--------
Sub jj()
For i = 65 To 67
Sheets(Chr$(i)).Activate
x = x + Application.CountA(Range("a1:" &
Cells.SpecialCells(xlLastCell).Address))
Next
MsgBox "Nombre de cellules utilisées dans les feuilles A...Z : " & x
End Sub
'--------------
Salutations
JJ

"BastienD" a écrit dans le
message de



news:

"BastienD" wrote:

BOnjour, Je voudrais simplement savoir comment on fait poru
compter le





nombre
de lignes (ou colonnes) utilisées dans un onglet.



En fait, j'utilise 26 onglets (les lettres de l'alphabet) et je
souhaiterais

connaître combien d'éléments j'ai pour chaque lettre sans avoir à
les




compter
26 fois