Recherche de la dernière adresse de cellule utilisée dans la ligne

Question

Je remplis des lignes dans une feuille Excel à partir d'une base de données à l'aide de VBA. J'ai plus de 50 colonnes dans la feuille Excel dans laquelle je veux trouver la dernière adresse de la colonne pour afficher le total du total des données. Comment puis-je m'y prendre?

Answer 1

Code de http://www.ozgrid.com/VBA/ExcelRanges.htm. Vous y trouverez d'autres sous-marins utiles pour trouver les "dernières" choses dans Excel, et plusieurs mises en garde.

Sub FindLastColumn() 
Dim LastColumn As Integer 
If WorksheetFunction.CountA(Cells) > 0 Then 
    'Search for any entry, by searching backwards by Columns.' 
    LastColumn = Cells.Find(What:="*", After:=[A1], _ 
         SearchOrder:=xlByColumns, _ 
        SearchDirection:=xlPrevious).Column 
       MsgBox LastColumn 
End If 
End Sub