COMPTEUR

[JORDAN]

B)
Bonjour le Forum

Je cherche à ecrire automatiquement dans un champ texte le N° d'enregistrement et le nombre de ligne enregistrés dans ma base de donnée.
Ex : Enregistrement N° 10 / 100

Si quelqu'un à une soluce
Merci à tous
A+ Jordan

 

[JORDAN]

Re-bonjour à tous,

Je pense que je me suis mal exprimé
Voilà, j'ai crée un USERFORM avec dans des combobox des données à saisir puis à renvoyer dans une feuille de calcul. J'aimerai savoir si l'on peut, dans un champ texte ou autre chose renvoyer le N° de la ligne des données déjà saisies lorsque je les visualises dans mon Userform.
Merci et A+

 

[tontoncarton]

Salut , ca c'est pour compter ls lignes pleine d'une colonne

With Sheets('tafeuille')

UserForm1.Label1.Caption = WorksheetFunction.CountA(Columns(1))
UserForm1.Label1.Caption = 'Total : ' & Val(Label9)

End With

pour incrémenter un numero d'enregistrement exemple :

range('a1') = 0

apres chaque enregistrement tu fais

range('a1') = range('a1') +1

voilou

 

[JORDAN]

Salut tontoncarton,
Merci pour ton code ça marche bien, je retrouve le nombre de lignes enregistrées
Mais sais tu coment faire pour donner le n° de la ligne que je consulte sur ma Userform ?
A+ et merci pour ton code

 

[tontoncarton]

exemple

Range('a2').Select

MsgBox Selection.Address
MsgBox Selection.row
le 1er message t'envoie l'adresse de la cellule
le 2eme t'envoie jsute le numero de la ligne

voila @ +

 

[_Thierry]

RE Bonjour ToutenCarton, Jordan

Euh pas vraiment certain de te suivre sur ce coup là Tonton, mais si Jordan est contant alors...

With Sheets('tafeuille')...
Ou alors il manque le '.' avant Column dans :'CountA(.Columns(1)) '

Et ensuite tu me perds définitivement avec en juste en dessous une réinitialisation du Label1 avec 'Total : ' & Val(Label9) ... (?)

Bon sinon pour Jordan, je peux aussi te proposer

Dim Ligne As Integer
Ligne = Range('A65536').End(XlUp).Row

MsgBox 'La Dernière Ligne d'Enregistrement est le Numéro ' & Ligne

Bien sur, si par exemple ton tableau contient des enregistrements de la Ligne 2 à la Ligne 101, (Ligne 1 étant réservée pour les Entêtes) il faudra jouer avec ce décalage comme suit

Dim Ligne As Integer
Ligne = Range('A65536').End(XlUp).Row

MsgBox 'Le tableau contient ' & Ligne - 1 & ' enregistrements

Maintenant pour 'comment faire pour donner le n° de la ligne que tu consultes sur ton Userform', en fait tout dépend de la manière dont tu incrémentes les données dans ce UserForm et cette ComboBox... Si tu utilises 'RowSource' = 'A2:A101' tu n'as qu'as faire

Label1.Caption = Sheets('TaFeuille').Range('A' & ComboBox1.ListIndex + 2).Value 'si tu Retournes la valeur

Label.Caption = ComboBox1.ListIndex + 2 'Si tu retournes le numéro d'enregistrement

NB Ceci en partant de mon exemple tableau démarrant en Deuxième Ligne, Soit + 1 pour retrouver la Row, et en partant du Principe qu'une ComboBox est en Base Zéro encore + 1 pour assumer ce décalage...

En espérant que je ne t'embrouille pas avec toutes ces explications !!! lol

Bonne Soirée
@+Thierry

Edition, j'avais zappé pour le Numéro d'Enregistrement lol

Message édité par: _Thierry, à: 15/03/2005 18:24

 

[JORDAN]

Re à tous les deux

Voilà ce que j'avais fait d'après votre aide :


With Sheets('DONNEES')
ComptEnr = WorksheetFunction.CountA(Columns(1))
ComptEnr = 'Fiche ' & Val(ComptEnr)
End With

Pour le reste je n'ai pas encore eu le temps d'essayer

Actuellement j'ai : Exemple

Fiche 12

J'aimerai avoir :

Fiche 5 / 12 ' si je lis la fiche N°5

Merci à tous les 2
Je termine ce soir chez moi, maintenant je quitte le boulot
Chao

 

[_Thierry]

Bonjour Jordan, Toton, le Forum

Tu as un Compteur d'Enregistrements dans cette démo, vu que je viens de retomber dessus pour un autre Fil :

=> Ce lien n'existe plus

Tu auras comme ça la méthode pour avoir le numéro d'enregistrement visualisé, et même un SpinButton de navigation...

Bonne Journée
@+Thierry

 

[JORDAN]

Bonjour à tous

Merci pour toutes vos infos
Après avoir tout analysé (pas tout compris !!!) :ermm:
j'ai retenu ceci et ça marche

'--------------
Comptotal = WorksheetFunction.CountA(Columns(1)) - 1
Comptligne = Champ2.ListIndex + 1
Compt = 'Fiche n°' & Val(Comptligne) & ' sur ' & Val(Comptotal)
'--------------

'Compt' étant la zone ou s'affiche mon compteur
'Champ2' étant la 1ère ComboBox qui renvoie son info dans la 1ère
colonne.

Le principal c'est que tout marche

Encore merci pour votre aide