Définir taille taille tableau

[Trance4life]

Bonjour,

J'utilise une macro et à un moment j'utilise la taille d'un tableau mais je voudrais que cette macro s'adapte si je change la taille de mon tableau.

Ici mon tableau fait 146 lignes, mais si j'en rajoute j'aimerais que ma macro s'adapte automatiquement.

Comment définir la taille de mon tableau à l'aide de la macro ?

Sub Rec()

    Worksheets("Rec").Range("B5:F146").Select
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SmallScroll Down:=-9
    Range("B5:F146").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-93
    Sheets("Synth").Select
    ActiveSheet.Paste
    Range("B2").Select
    
End Sub

Merci d'avance.

 

[phlaurent55]

Re : Définir taille taille tableau

Bonjour Trance,

remplace:
Range("B5:F146").Select

par:
Range("B5:F" & Range("B65535").End(xlUp).Row).Select
ou
Range("B5:F" & Range("F65535").End(xlUp).Row).Select


à+
Philippe

 

[Trance4life]

Re : Définir taille taille tableau

Bonjour Trance,

remplace:
Range("B5:F146").Select

par:
Range("B5:F" & Range("B65535").End(xlUp).Row).Select
ou
Range("B5:F" & Range("F65535").End(xlUp).Row).Select


à+
Philippe

Merci, et pour savoir la première ligne de mon tableau ?

En effet, je filtre donc la première ligne de mon tableau varie.

 

[jpb388]

Re : Définir taille taille tableau

Bonjour à tous
autre version

Sub Rec()
If Sheets("rec").AutoFilterMode = False Then _
    Sheets("Rec").ListObjects("Essai").Unlist

Dim Mon_Tableau As ListObject
Set Mon_Tableau = Sheets("Rec").ListObjects.Add(xlSrcRange, _
    Range("b4").CurrentRegion, , xlYes)
 Mon_Tableau.Name = "Essai"

     Worksheets("Rec").Range("essai").AutoFilter Field:=1, _
        Criteria1:="<>"
     Worksheets("Rec").Range("B5", Range("b5").End(xlToRight).End(xlDown)).Copy
     Sheets("Synth").Range("b2").PasteSpecial xlCellTypeVisible
 End Sub

si pas d'entête tu met xlno a la place de xlyes