(Résolu) Sélectionner la base jusqu’à la dernière ligne remplie

Dranreb à dit:

Essayez comme ça :

VB:

Sub transfo_table()
   Dim LOt As ListObject
   Set LOt = ActiveSheet.[A1].ListObject
   If LOt Is Nothing Then Set LOt = ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.UsedRange, , xlYes)
   LOt.Name = "Tableau1"
   LOt.DataBodyRange.Select ' ou bien LOt.Range.Select, ça dépend si vous voulez les entêtes avec ou non.
   End Sub

Cliquez pour agrandir...

nemesia à dit:

oui désoler du retard de la réponse j'avais un projet ultra important a gérer je ne fait sa que pendant mon temps libre et dernièrement je n'en ai pas trop eu, alors j'ai appliquer la macro mais je ne sais pas si c'est se que tu recherche redit moi si c'est cela

Cliquez pour agrandir...

job75 à dit:

Sub table()
Dim LO As ListObject
With ActiveSheet
For Each LO In .ListObjects
If LO.Range(1).Address = "$A$1" Then LO.Resize .[A1].CurrentRegion: Exit Sub
Next
.ListObjects.Add(xlSrcRange, .[A1].CurrentRegion, , xlYes).Name = "table1"
End With
End Sub

Cliquez pour agrandir...