dernier enregistrement

[matou59]

Bonjour,

Rechercher la derniere valeur enregistree dans une colonne.

Par exemple j'ai rentré 50 valeurs dans la colonne A (la 51e est donc vide) et je veux recuperer cette 50e valeur pour l'utiliser dans une autre feuille.

Quelqu'un pourrait il me dire comment m'y prendre ?

merci

 

[Gérard DEZAMIS]

Bonjour Matou59

Private Sub Worksheet_Change(ByVal Target As Range)
Range('C1').Value = Range('A1').End(xlDown).Offset(0, 0).Value
End Sub

Te donne en C1 la dernière valeur des données inscrites en colonne A
@+ GD

 

[Gérard DEZAMIS]

Re Matou

idem en partant du bas et en remontant ce qui te permet de trouver la dernière cellule remplie même s'il y a un vide.
Ma premère solution s'arrête au premier 'blanc' trouvé.

range('A65536').end(xlup).offset(0,0)

@+ GD

 

[Lolo5555Fr]

Je pense que cela va t'aider....
Je te joins un fichier en ZIP.....ou la derniere valeur de la colonne A
est collé en colonne C [file name=dernier ligne col_20050301162458.zip size=8084]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dernier ligne col_20050301162458.zip[/file]
En esperant que cela puisse t'aider.
Bonne journée

 

[Lolo5555Fr]

Excuse moi Gérard DEZAMIS , je n'ai pas voulu te couper l'herbe sous le pied..... 😱

 

[Gérard DEZAMIS]

Bonjour Lolo

De rien ce fut un plaisir ...
En Utilisant
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Col = 'A' .... etc
Cela déclenche l'action avec un double clic sur le mulot, pratique ? amusant ? je ne sais pas si la pauvre bête va apprécier ....
Le mulot .... pas le matou !



5555 ? c'est la MeuseMeuse ?

@+ GD

 

[matou59]

Bonjour,

Merci bien pour la réponse a ma question...

merci aussi a lolo

Cordialement

 

[Lolo5555Fr]

b'in heu......Gérard DEZAMIS....en fait ...je suis joueur.......et c'est mon ancien pseudo de jeu... (LOLO5555FR):woohoo:
Je suis entre le département du Cher (18)et de la Nievre(58) et pas LaMeuse ....
Mais bon ..., j'apprécies bien tes commentaires sur tes macros car je débute en VBA
:S
Et si je peux apporter un peu de ce que je sais .....C'est avec plaisir..... :unsure: