XL 2019 AutoFiltre et zone de données

[Flx1er]

Bonjour,
Je désire connaitre la méthode me permettant d'ajuster la zone de données de l'autofiltre :
ActiveSheet.Range("$A$1:$C$10").AutoFilter Field:=3, Criteria1:="chap"

Dans l'exemple joint la zone de données commence en $A$1 pour se terminer en $C$10. Cette zone est donc figée.

Comment faire pour que cette zone de données soit réactualisée dynamiquement en fonction du nombre de lignes qui la constituent.

En vous remerciant pour votre aide

 

[vgendron]

Hello

en transformant simplement le tableau en Tableau Structuré

1) selection d'une cellule DANS la plage de donnée
2) Ctrl + L
3) valider (en cochant "contient une ligne d'entete")
et voila

maintenant, tout ajout de données juste en dessous de la table est automatiquement intégrée dans la table

un peu de lecture ici

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

 

[mapomme]

Bonsoir à tous,

Avec ce code :

Sub Macro4()
Dim der&
   Application.ScreenUpdating = False
   With Sheets("Nomenclature")
      .Columns("a:c").Interior.Color = xlColorIndexNone
      der = Application.Match(Chr(255), .Columns("b:b"))
      If der = 1 Then Exit Sub
      On Error Resume Next
      With .Range("a1:c" & der)
         .AutoFilter Field:=3, Criteria1:="chap"
         .SpecialCells(xlCellTypeVisible).Interior.Color = RGB(255, 190, 90)    ' orange
         .AutoFilter Field:=3, Criteria1:="ss-chap"
         .SpecialCells(xlCellTypeVisible).Interior.Color = RGB(255, 255, 100)    ' jaune
         .AutoFilter Field:=3, Criteria1:="déf"
         .SpecialCells(xlCellTypeVisible).Interior.Color = RGB(200, 255, 200)    ' vert
         .Rows(1).Interior.Color = RGB(200, 200, 200)    ' gris
         .AutoFilter
         On Error GoTo 0
      End With
   End With
   ActiveWorkbook.Save
End Sub

 

[Phil69970]

Bonjour à tous

A la bourre comme d'hab !!!! 😉

@Flx1er

Je te propose ce fichier

Merci de ton retour

 

[Flx1er]

Hello

en transformant simplement le tableau en Tableau Structuré

1) selection d'une cellule DANS la plage de donnée
2) Ctrl + L
3) valider (en cochant "contient une ligne d'entete")
et voila

maintenant, tout ajout de données juste en dessous de la table est automatiquement intégrée dans la table

un peu de lecture ici

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

Je vous remercie de votre aide, mais cette solution n'est pas adaptée au projet que je dois réaliser.

 

[Flx1er]

Bonjour,
Les solutions de mapomme et Phil69970 sont relativement similaire. Elles répondent à mon besoin

En vous remerciant