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

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  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 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..

  4. #4
    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

  5. #5
    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...

  6. #6
    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

  7. #7
    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.

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