Compteur dans Textbox

[Dull]

Bonjour le Forum,

Je me tourne encore vers vous pour un petit souci de Compteur

en effet, je sais faire un compteur qui prend en compte les cellules 'occupées' de la colonne 'A' d'une feuille , mais comment faire un compteur qui prends en compte les cellules 'occupées' de la colonne 'A' de toutes les feuilles y compris celles qu'on ajouteraient après.

Merci et Bon Dimanche [file name=Compteur.zip size=21134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Compteur.zip[/file]

 

[Hervé]

Bonjour dull 🙂


Pour ce type de comptage, personnellement je n'utilise pas de function, mais simplement une petite macro :

Public Sub alimtextbox()
Dim ws As Worksheet

For Each ws In Worksheets
        TextBox1 = Val(TextBox1) + WorksheetFunction.CountA(ws.Columns(1))
Next ws
End Sub

puis des que je veux actualiser la textbox1, n'importe ou dans le code il me suffit de rappeler cette routine.

exemple en pèce jointe.

passe un bon dimanche 🙂

salut [file name=Compteur_20060326092640.zip size=14621]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Compteur_20060326092640.zip[/file]

 

[Hervé]

re

si vraiment tu veux utiliser une function, elle pourrait ressembler à ceci :

Public Function Nbre_Pers()
Dim ws As Worksheet
Dim somme As Integer
Dim c As Range

For Each ws In Worksheets
        For Each c In ws.Range('a1:a' & ws.Range('a65536').End(xlUp).Row)
                If Not c = '' Then
                        somme = somme + 1
                End If
        Next c
Next ws

Nbre_Pers = somme
End Function

salut

 

[Dull]

Re:Compteur dans Textbox (Résolu)

Salut Hervé, Le Forum

Comme Toujours, à chaque que j'ai besoin d'un coup de main sur ce Forum, un PC secourable arrive avec la clé qui débloque la situation.

Personnellement j'ai choisi la function car j'ai besoin des 2 TextBox (nb par feuille individuelle et nb Globale)

Mais ta macro me servira certainement dans un nouveau fichier
Merci Hervé, pour tes savantes réponses B)

Je met mon fichier si ça peut servir à quelqu'un
😉 [file name=Compteur_20060326135445.zip size=25480]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Compteur_20060326135445.zip[/file]