Recherche premiere cellule non vide

[Nico55]

Bonjour,

Je vous joint un petit fichier dans lequel je voudrais pour chaque ligne récupérer la date afficher de la premiere cellule non vide et de la derniere cellule non vide merci d'avance...

 

[samimi94]

Re : Recherche premiere cellule non vide

Bonjour,

Je ne suis pas une pro du VBA, mais je verrai un truc comme ça :

[A:A] = [A:A].Value
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

DisplayAlerts = False
ActiveSheet.UsedRange.Select
Application.Range("A1", Range("A65352").End(xlUp).SpecialCells(xlCellTypeVisible)).Select
Debug.Print Application.Range("A1", Range("A1").End(xlDown)).SpecialCells(xlCellTypeVisible).Address

Bon courage.