IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

piloter excel depuis access : trier


Sujet :

VBA Access

  1. #1
    Membre averti
    Femme Profil pro
    Tout ce que ne fait pas le patron
    Inscrit en
    Mars 2008
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 51
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Tout ce que ne fait pas le patron

    Informations forums :
    Inscription : Mars 2008
    Messages : 36
    Par défaut piloter excel depuis access : trier
    Bonjour,

    Je chercher à trier une table Excel depuis Access. J'arrive bien à faire le tri sur un champ, mais il faudrait le faire sur 3.

    Voici ce que j'ai écrit :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    With xlSheet.range("A7:T42")
        .Sort xlSheet.Columns("A"), xlAscending
        .Sort xlSheet.Columns("B"), xlAscending
        .Sort xlSheet.Columns("E"), xlAscending
    End With
    Mais il me fait les trois tris les uns après les autres, indépendemment. Moi je voudrais que ce soit simultané, et que la colonne A reste triée.

    Merci d'avance de votre aide

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    salut,
    voici le code que me génère le macrorecorder sous Excel,
    en principe tu dois pouvoir l'appliquer à Access.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Columns("A7:T42").Select
        Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Key2:=Range("B7") _
            , Order2:=xlAscending, Key3:=Range("E7"), Order3:=xlAscending, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
            xlSortNormal
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre averti
    Femme Profil pro
    Tout ce que ne fait pas le patron
    Inscrit en
    Mars 2008
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 51
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Tout ce que ne fait pas le patron

    Informations forums :
    Inscription : Mars 2008
    Messages : 36
    Par défaut
    J'ai bien essayé, mais là l'ordi m'insulte, genre : Erreur d'exécution 1004, La méthode Sort de la classe Range a échoué.

    Voici le code que j'ai entré :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    xlSheet.range("A7:T42").Select
        Selection.Sort Key1:=range("A7"), Order1:=xlAscending, Key2:=range("B7") _
            , Order2:=xlAscending, Key3:=range("E7"), Order3:=xlAscending, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
            xlSortNormal
    Le pire, c'est que pour une autre table dans un autre code, cela fonctionne. Ca me rend un peu
    J'y suis depuis ce matin, mais j'ai bon espoir...

Discussions similaires

  1. Piloter excel depuis access : select
    Par le_sayan dans le forum VBA Access
    Réponses: 6
    Dernier message: 14/06/2010, 19h02
  2. Piloter importation Excel depuis Access en VBA
    Par Joselito2 dans le forum VBA Access
    Réponses: 9
    Dernier message: 10/05/2010, 15h45
  3. comment fermer un fichier Excel depuis Access?
    Par audrey_desgres dans le forum Access
    Réponses: 14
    Dernier message: 21/06/2005, 12h43
  4. Ouvrir un fichier excel depuis access
    Par ptitegrenouille dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 03/05/2005, 11h47
  5. imprimer feuille excel depuis access
    Par Jean Bonnisme dans le forum Access
    Réponses: 3
    Dernier message: 18/11/2004, 08h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo