filtres automatiques, copier et réutiliser les critères (VBA)

[Starkoala]

Bonjour à tous,

J'ai recherché et n'ai trouvé que des solutions compliquées que je n'arrive pas à mettre en oeuvre, mais je suis sur qu'il existe un code tres simple.

J'ai un tableau (créer avec la fonction tableau automatique) et chacune des colonnes possèdent un filtre.
L’utilisateur manipule librement les lignes du tableau et ajouter ou supprime du texte et filtre comme bon lui semble, sur plusieurs colonnes.
_ Il arrive donc que le texte des lignes déborde. La fonction auto-fit est la pour ca. En revanche cela fait réapparaître tous les champs masqués.
_ Est il possible via VBA, de copier tous les filtres, de faire l'autofit, et de les réappliquer; du genre:

for Each Colonnes In Worksheets("Feuil1").ListObjects("tableau1").DataBodyRange.Columns
Copie filtres dans collection, ou tableaux ou autre
next colonnes

Worksheets("Feuil1").ListObjects("tableau1").DataBodyRange.Rows.EntireRow.AutoFit

for Each Colonnes In Worksheets("Feuil1").ListObjects("tableau1").DataBodyRange.Columns
colle filtres de collection, ou tableaux ou autre dans tableau1
next colonnes

C’était mon idée de départ, mais si tout autre solution me permet d'arriver au même résultat je suis bien sur preneur.

Merci, la je sèche
Thib

 

[Efgé]

Re : filtres automatiques, copier et réutiliser les critères (VBA)

Bonjour Starkoala

Pourquoi modifier la hauteur des lignes, s'il s'agit d'ajuster uniquement les colonnes ?
Ceci devrait suffir:

Sub test()
Sheets("Feuil1").Columns.AutoFit
End Sub

Cordialement

 

[Starkoala]

Re : filtres automatiques, copier et réutiliser les critères (VBA)

Merci de ta réponse,

Je n'ai pas précisé mais redimensionnement des colonnes impossible, je souhaite garder une largeur définie. Cause affichage / impression et autre.

 

[Efgé]

Re : filtres automatiques, copier et réutiliser les critères (VBA)

Re
Alors comme ceci, peut être:

Sub test_2()
Sheets("Feuil1").Columns(1).Cells.SpecialCells(xlCellTypeVisible).EntireRow.AutoFit
End Sub

Cordialement

Edit:
On peus même se passer du .Cells

Sub test_2B()
Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeVisible).EntireRow.AutoFit
End Sub

et utiliser la valeur numérique:

Sub test_2B()
Sheets("Feuil1").Columns(1).SpecialCells(12).EntireRow.AutoFit
End Sub

Cordialement

 

[Starkoala]

Re : filtres automatiques, copier et réutiliser les critères (VBA) [Résolu]

Haaa super,

l'astuce était donc "SpecialCells(xlCellTypeVisible)"

Du coup pas besoin de for ni rien

Worksheets("Feuil1").ListObjects("tableau1").DataBodyRange.SpecialCells(xlCellTypeVisible).EntireRow.AutoFit

Merci Efgé