Définir taille taille tableau

Trance4life · 10 Juillet 2012

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 ?

Code:

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 · 10 Juillet 2012

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 · 10 Juillet 2012

Re : Définir taille taille tableau

phlaurent55 à dit:
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 · 10 Juillet 2012

Re : Définir taille taille tableau

Bonjour à tous
autre version

Code:

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

Définir taille taille tableau

Trance4life

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

Trance4life

XLDnaute Nouveau

jpb388

XLDnaute Accro

Discussions similaires