VBA incorrect pour filtre automatique

Claire4444 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention - 24 oct. 2018 à 09:03

Bonjour,

Mon code VBA ne fonctionne pas...
L'idée est d'effectuer automatiquement un filtre alphabétique à l'ouverture du fichier, de la colonne C "Projets" de mon tableau "Tableau1" sur mon onglet "BD"...

Je précise que "Tableau1" est une copie d'un autre fichier donc avec formule :
='PLAN PROJETS 2018 - Claire - Copie.xlsx'!Tableau1[@Projets]

J'ai essayé 2 codes:

Private Sub Workbook_Open() 
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields. _ 
Add Key:=Range("Tableau1[#All,[Projets]]"), SortOn:=xlSortOnValues, _ 
Order:=xlAscending 
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.Apply 
End Sub

Private Sub Workbook_Open()
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort.SortFields. _
Add Key:=Range("Tableau1[#All,[Projets]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending
With ActiveWorkbook.Worksheets("BD").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Avez-vous une idée de l'erreur qui fait que ça ne fonctionne pas??

Merci pour votre aide!
Claire

A voir également:

VBA incorrect pour filtre automatique
Photo filtre 7 gratuit - Télécharger - Retouche d'image
Réponse automatique thunderbird - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide
Logiciel de sauvegarde automatique gratuit - Guide
Filtre whatsapp - Accueil - Messagerie instantanée

1 réponse

Réponse 1 / 1

fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention 59

bonjour,
voici un code que j'utilise dans un de mes fichiers :

    Range("A1:C1").Select
    Selection.AutoFilter
    Worksheets("bddCPVA").AutoFilter.Sort.SortFields.Clear
    Worksheets("bddCPVA").AutoFilter.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Worksheets("bddCPVA").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1:C1").Select
    Selection.AutoFilter

pour moi, dans ton code, en premier lieu il manquerait

    Range("A1:C1").Select
    Selection.AutoFilter

    , DataOption:=xlSortNormal

Discussions similaires

ColorSpace

Code CAPTCHA toujours incorrect

Votre réponse

Discussions similaires