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 :

Modifier l'ordre des colonnes [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Juin 2012
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2012
    Messages : 9
    Points : 5
    Points
    5
    Par défaut Modifier l'ordre des colonnes
    Bonjour ,

    j'ai pas mal cherché , mais j'avoue que je n'ai pas réussi à trouver de solution à mon problème.


    J'aimerai réorganiser l'ordre de mes colonnes en fonction des valeurs situées sur ma deuxième ligne.

    En gros , mes colonnes devront être réorganisées afin que les valeurs en ligne 2 soient classées par ordre croissant.

    Ci-joint un exemple de ce que j'aimerai.

    en vous remerciant , par avance
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Il suffit de faire le tri d'Excel sur lignes et non sur colonnes.

    Sélectionne ta plage
    Données/clique sur trier/clique sur le bouton options/coche de la gauche vers la droite/ OK

  3. #3
    Invité
    Invité(e)
    Par défaut
    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
    17
    18
    19
    20
    21
    Sub Test()
    Dim R As Range
    Dim C As Long
    Dim C2 As Integer
    Set R = ActiveSheet.Range("A1").CurrentRegion
    For C = 2 To R.Columns.Count
    Set R = ActiveSheet.Range("A1").CurrentRegion
        If UCase(R(2, C - 1)) > UCase(R(2, C)) Then
        If C = 2 Then C2 = 2 Else C2 = C + 1
          R(2, C).EntireColumn.Copy
     
          R(2, C - 1).EntireColumn.Insert Shift:=xlToRight
              R(2, C2).EntireColumn.Delete Shift:=xlToLeft
            C = C - 2
            If C < 2 Then C = 1
     
        End If
    Next
    MsgBox "Fin"
     
    End Sub

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    12 919
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 12 919
    Points : 28 904
    Points
    28 904
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Si tu veux utiliser le VBA, une procédure de tri prête à l'emploi (tri vertical, horizontal, ascendant, descendant et personnalisé) dont tu trouveras le code et le fichier exemple à télécharger sur cette contribution Procédure de tri - Excel 2003-2010

  5. #5
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Juin 2012
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2012
    Messages : 9
    Points : 5
    Points
    5
    Par défaut
    Merci beaucoup les amis ,

    j'ai commencé à regarder , et ça correspond tout à fait à ce que je cherchais

    Encore merci pour votre promptitude

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [11gR2] Modifier l'ordre des colonnes d'une table sous Oracle
    Par doudou8mc dans le forum SQL
    Réponses: 7
    Dernier message: 07/11/2014, 14h57
  2. Modifier ordre des colonnes d'un datagridview
    Par miikado dans le forum VB.NET
    Réponses: 3
    Dernier message: 30/05/2012, 20h12
  3. Modifier ordre des colonnes datatable
    Par shaun_the_sheep dans le forum C#
    Réponses: 6
    Dernier message: 26/01/2010, 11h36
  4. Modifier ordre des colonnes d'une table
    Par kabil.cpp dans le forum Requêtes et SQL.
    Réponses: 6
    Dernier message: 09/10/2009, 11h02
  5. Réponses: 2
    Dernier message: 23/03/2007, 14h31

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