Afficher dans un label la dernière cellule non vide d'une colonne

Question

Je cherche à afficher dans une label de formulaire de saisie la valeur de la dernière cellule non vide d'une colonne (colonne "B"). Le problème est que ma colonne contient des formules qui ne s'activent que lorsque la cellule à gauche (colonne "A") est remplie. Du coup, la valeur affichée dans le label est la dernière cellule qui contient une formule, la valeur renvoyée est donc " " car la cellule à gauche ne contient pas encore de données. Comment adapter mon code qui est le suivant : Private Sub UserForm_initialize() Label3 = Range("B").End(xlDown).Value End Sub Merci à vous pour vos retour ...

Xmenpl · Accepted Answer

Donc en fait la dernière ligne est à tester est sur la colonne A puis utiliser ce numéro pour afficher colonne B Private Sub UserForm_initialize() Dim magligne as long maligne=Range("A65536").End(xlUp).Row Label3.value = Worksheets("non de feuille").Cells(maligne, 2).Value End Sub en remplaçant nom de feuille par le nom que vous lui avez donnée dans votre fichier...