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

Macros et VBA Excel Discussion :

Tri et suppression (vba)


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Sapeur-pompier
    Inscrit en
    Septembre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Sapeur-pompier
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2013
    Messages : 54
    Par défaut Tri et suppression (vba)
    Bonjour à tous,
    me revoilà avec mes questions lol
    En gros j'ai un fichier (presque abouti) dans lequel figure un tableau avec différentes entêtes.
    l'une d'entre-elles est "poste", laquelle je voudrais pouvoir trier.
    J'ai récupéré une partie du code provenant de l'enregistreur de macro pour le tri mais je suis bloqué pour la suite.
    je m'explique:
    le tableau que je trie selon l'entête "Poste" (A3:CP500). il y a 6 postes différents(SIBA, SIJO, SINI, SIWA, SITU et ZONE).
    avec le code actuel tout est trié par ordre alphabétique.ma demande est la suivante:
    Est-il possible d'associer un bouton (sur userform) pour chaque poste, ainsi le tri serait fait par ex: "situ" et les 5 autres postes effacés?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Private Sub CommandButton1_Click()
    ' Macro2 Macro'
        Range("A3:CP500").Select
        ActiveWorkbook.Worksheets("Récap Zone").ListObjects("Tableau13234").Sort. _
            SortFields.Clear
        ActiveWorkbook.Worksheets("Récap Zone").ListObjects("Tableau13234").Sort. _
            SortFields.Add Key:=Range("Tableau13234[Poste]"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Récap Zone").ListObjects("Tableau13234").Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .Apply
        End With
        Range("A1:H1").Select
    End Sub

  2. #2
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    Bonjour, c'est pas clair votre demande. ci dessous avec des cases d'options, c'est a dire une seule possibilité.
    Nom : Capture d’écran 2019-11-02 à 12.24.33.png
Affichages : 849
Taille : 15,7 Ko

    ou bien des cases à cocher avec plusieurs choix possible?
    Nom : Capture d’écran 2019-11-02 à 12.32.28.png
Affichages : 788
Taille : 15,7 Ko

    Cordialement

  3. #3
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 186
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 186
    Billets dans le blog
    2
    Par défaut
    Bonjour à tous,

    Est-il possible d'associer un bouton (sur userform) pour chaque poste, ainsi le tri serait fait par ex: "situ" et les 5 autres postes effacés?
    C'est ce qu'on appelle un filtre.
    Voir du côté filtre automatique.

  4. #4
    Membre averti
    Homme Profil pro
    Sapeur-pompier
    Inscrit en
    Septembre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Sapeur-pompier
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2013
    Messages : 54
    Par défaut
    Citation Envoyé par Transitoire Voir le message
    Bonjour, c'est pas clair votre demande. ci dessous avec des cases d'options, c'est a dire une seule possibilité.
    Nom : Capture d’écran 2019-11-02 à 12.24.33.png
Affichages : 849
Taille : 15,7 Ko

    ou bien des cases à cocher avec plusieurs choix possible?
    Nom : Capture d’écran 2019-11-02 à 12.32.28.png
Affichages : 788
Taille : 15,7 Ko

    Cordialement
    Bonjour, en effet voilà des solutions qui pourraient bien me convenir..

  5. #5
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    Bonjour, en effet voilà des solutions qui pourraient bien me convenir..
    Oui, mais laquelle des deux? OptionButton ou CheckBox ????
    Cordialement

  6. #6
    Membre averti
    Homme Profil pro
    Sapeur-pompier
    Inscrit en
    Septembre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Sapeur-pompier
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2013
    Messages : 54
    Par défaut
    Citation Envoyé par Transitoire Voir le message
    Oui, mais laquelle des deux? OptionButton ou CheckBox ????
    Cordialement
    Je pense que celle avec les cases a cocher serait la meilleure solution, histoire de pouvoir bosser sur
    plusieurs critères au cas ou...

  7. #7
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    Bonjour, Vous parlez de tri, mais êtes vous sur de ne pas confondre avec un filtre? Parce que s'il s'agit d'un filtre, je vous conseillerais d'utiliser un filtre élaboré suivant les critères choisis avec une extraction des données sur une nouvelle feuille.
    je vous joint le lien avec le tutoroms de Philippe Tulliez concernant l'utilisation de filtres élaborés:
    https://philippetulliez.developpez.c...dvancedfilter/
    Voyez déjà si cela vous convient
    Cordialement

  8. #8
    Membre averti
    Homme Profil pro
    Sapeur-pompier
    Inscrit en
    Septembre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Sapeur-pompier
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2013
    Messages : 54
    Par défaut
    Citation Envoyé par Transitoire Voir le message
    Bonjour, Vous parlez de tri, mais êtes vous sur de ne pas confondre avec un filtre? Parce que s'il s'agit d'un filtre, je vous conseillerais d'utiliser un filtre élaboré suivant les critères choisis avec une extraction des données sur une nouvelle feuille.
    je vous joint le lien avec le tutoroms de Philippe Tulliez concernant l'utilisation de filtres élaborés:
    https://philippetulliez.developpez.c...dvancedfilter/
    Voyez déjà si cela vous convient
    Cordialement
    J'ai téléchargé le fichier proposé par Mr Tulliez mais je ne pense pas qu'il me soit utile pour ce dont j'ai besoin.
    la solution de filtre avec les cases a cocher me semble être idéale.
    sauriez-vous m'en dire plus sur ce code?
    Merci

  9. #9
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    Bonjour, j'ai l'impression que vous ne comprenez pas bien. Vous parlez de Trier et vos explications nous font penser plutôt à un Filtre.
    Quelle est la différence? Un tri, prend des données et les rangent dans un ordre précis. Un filtre, ne montre que les données qui ont été sélectionnées suivant certains critères.
    Il est vital, si vous souhaitez être aider, de répondre à cette question.
    Vous dites:
    J'ai téléchargé le fichier proposé par Mr Tulliez mais je ne pense pas qu'il me soit utile pour ce dont j'ai besoin.
    la solution de filtre avec les cases a cocher me semble être idéale.
    sauriez-vous m'en dire plus sur ce code?
    Comment voulez vous que l'on vous parle d'un code si nous ne savons pas ce qu'il doit faire?

    Cordialement

  10. #10
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour Transitoire

    Le verbe trier a deux acceptions différentes selon ce dont il est suivi :
    1) Trier par ... (un ordre de tri) .... = ranger/classer dans un certain ordre = classement
    2) Trier ceci ou cela ... = ne conserver que ceci ou cela = filtre

    Je crois avoir compris que vencendie souhaite traiter le résultat d'un filtre (2ème acception) appliqué à des données préalablement triées (1ère acception).

  11. #11
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    Bonjour @Unparia .
    Je partage pleinement votre avis. . Toutefois, avant d'aider quelqu'un, je pense qu'il vaut mieux connaître les tenants et aboutissants d'un problème. Voila la raison mon insistance.
    Cordialement

  12. #12
    Membre averti
    Homme Profil pro
    Sapeur-pompier
    Inscrit en
    Septembre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Sapeur-pompier
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2013
    Messages : 54
    Par défaut
    Citation Envoyé par unparia Voir le message
    Bonjour Transitoire

    Le verbe trier a deux acceptions différentes selon ce dont il est suivi :
    1) Trier par ... (un ordre de tri) .... = ranger/classer dans un certain ordre = classement
    2) Trier ceci ou cela ... = ne conserver que ceci ou cela = filtre

    Je crois avoir compris que vencendie souhaite traiter le résultat d'un filtre (2ème acception) appliqué à des données préalablement triées (1ère acception).
    Bonjour unparia,
    c'est exactement ça!
    SITU, SIBA, ect... sont différents postes, il faut donc que chacun puisse travailler sur "son" poste avant de renvoyer le tout chez moi.
    par la suite je consolide et me voilàavec 1 seul fichier reprenant tous les postes mis a jour.
    j 'aurais donc besoin de
    -trier par poste
    -filter pour ne garder que celui ou ceux qui m'intéressent, sachant que des mouvements de personnel sont envisageables d'ou l'intéret de remettre a chacun un fichier reprenant tous les postes, après les avoirs mis a jour on me les renvoie comme cité ci-dessus.

  13. #13
    Membre averti
    Homme Profil pro
    Sapeur-pompier
    Inscrit en
    Septembre 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Sapeur-pompier
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2013
    Messages : 54
    Par défaut
    Citation Envoyé par Transitoire Voir le message
    Bonjour @Unparia .
    Je partage pleinement votre avis. . Toutefois, avant d'aider quelqu'un, je pense qu'il vaut mieux connaître les tenants et aboutissants d'un problème. Voila la raison mon insistance.
    Cordialement
    exactement Transitoire, il est vrai qu'en me relisant je ne suis pas vraiment clair
    mes excuses et surtout merci pour l'investissement dont vous faites preuve

Discussions similaires

  1. Tri variable tableau VBA suite et fin
    Par Daranc dans le forum Contribuez
    Réponses: 1
    Dernier message: 11/07/2011, 10h46
  2. Tri et suppression d'un fichier txt avec vbs
    Par chenJedi dans le forum VBScript
    Réponses: 2
    Dernier message: 31/05/2011, 23h35
  3. suppression vba avec recordset
    Par huître dans le forum Access
    Réponses: 1
    Dernier message: 06/02/2011, 21h26
  4. tableau 2D trié par suppression de lignes
    Par naoma dans le forum Langage
    Réponses: 15
    Dernier message: 23/06/2009, 17h10
  5. executer une règle de tri outlook par VBA
    Par benpinta dans le forum VBA Outlook
    Réponses: 1
    Dernier message: 06/12/2007, 18h47

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