zeduky
XLDnaute Nouveau
Bonjour à tous,
je viens de faire une macro avec excel qui me permet de transformer ma base en Table dont le but est de générer derrière un TCD.
Mon soucis est que la base peut avoir un nombre de ligne aléatoire et quand je fabrique la macro avec excel pour la création de table il s’arrête toujours sur la ligne 390 et j'aimerai qu'il sélectionne jusqu’à la dernière ligne remplie ?
voici mon code
Sub table()
'
' table Macro
'
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$390"), , xlYes).Name = _
"Tableau2"
Range("Tableau2[#All]").Select
ActiveSheet.ListObjects("Tableau2").Name = "table1"
End Sub
je n'arrive pas à placer le code qu'il faut ou il faut car je ne suis pas un bn vbeiste
je vous le joins dans un fichier texte merci d'avance
je viens de faire une macro avec excel qui me permet de transformer ma base en Table dont le but est de générer derrière un TCD.
Mon soucis est que la base peut avoir un nombre de ligne aléatoire et quand je fabrique la macro avec excel pour la création de table il s’arrête toujours sur la ligne 390 et j'aimerai qu'il sélectionne jusqu’à la dernière ligne remplie ?
voici mon code
Sub table()
'
' table Macro
'
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$390"), , xlYes).Name = _
"Tableau2"
Range("Tableau2[#All]").Select
ActiveSheet.ListObjects("Tableau2").Name = "table1"
End Sub
je n'arrive pas à placer le code qu'il faut ou il faut car je ne suis pas un bn vbeiste
je vous le joins dans un fichier texte merci d'avance