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