Bonjour,
Après 4 ans d'arrêt de programmation ma direction me demande la création d'un nouveau fichier... Les souvenirs reviennent vite mais pas tous..

ci joint un programme qui devrait renvoyer la VALEUR de la dernière cellule non vide de la colonne A.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 With Worksheets("Suivi Admin")
 
          Dim DLig As Integer
          DLig = ActiveSheet.Columns("A").SpecialCells(xlCellTypeLastCell).Value
    MsgBox DLig
 
    End With
Ce code me renvoit 1 systématiquement, peu importe le remplissage des cellules A1 A2 etc etc...

Vous savez pourquoi ?


En vous remerciant par avnance,


Gaétan