Discussion :

[instelaer]

Bonjour,
Sur la feuille "Formations" de mon fichier, j'ai un tableau composé de "x" colonnes Atelier.
Pour chacune de ces colonnes, j'ai un nombre quelconque de formations. Ce tableau alimente 2 listes déroulantes "Ateliers" et "formations"

Le code suivant permet pour un atelier de classer par ordre alphabétique les formations correspondantes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range(Cells(2, colonne), Cells(nbligne + 1, colonne)).Select
        Selection.Sort Key1:=Cells(2, colonne), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Mon problème concerne le tri en ligne pour le classement alphabétique des ateliers (ligne d'en-tête) avec
bien sûr répercution sur les formations concernées car je ne trouve pas dans l'aide de possibilité de faire ce genre de tri.

Merci de votre aide

[ouskel'n'or]

En fait tu veux classer tes colonnes par ordre alphabétique de leurs en-têtes.
Déjà une indication :
Si tu utilises un range, tu as un tableau à deux dimensions
Ainsi, Range("A1:L1").value est un tableau à deux dimensions
Pour le classer par ordre alpha, tu as le code ici, la première partie.
Il ne te reste plus qu'à déplacer les colonnes.
Pour faire ça je pense qu'il est préférable d'utiliser l'ordre alpha inverse et d'insérer dans l'ordre toutes les colonnes avant la colonne 1. Ainsi la dernière colonne insérée à gauche est la première par ordre alpha. Ce qui donne ça :

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
22
23
24
25
Dim Tablo As Variant, Tempo As Variant, i As Long, j As Long, NbCol As Integer
    With Worksheets("Feuil1") '.Activate 'à défaut d'instancier la feuille
        NbCol = .Cells(1, Columns.Count).End(xlToLeft).Column
        Tablo = Application.WorksheetFunction.Transpose(.Range(Cells(1, 1), Cells(1, NbCol)).Value)
    End With
'triAlpha
    For i = UBound(Tablo) To 1 Step -1
        For j = UBound(Tablo) To 1 Step -1
            If Tablo(i, 1) < Tablo(j, 1) Then
                Tempo = Tablo(i, 1)
                Tablo(i, 1) = Tablo(j, 1)
                Tablo(j, 1) = Tempo
            End If
        Next j
    Next i
    'Recherche de la colonne "suivante" du tablo dans la feuille de calculs pour...
    '... la coller avant la colonne 1
    Dim c As Range
    With Worksheets("Feuil1").Range(Cells(1, 1), Cells(1, NbCol))
        For i = 1 To UBound(Tablo)
            Set c = .Find(Tablo(i, 1))
            Columns(c.Column).Cut
            Columns(1).Insert Shift:=xlToRight
        Next
    End With

Bon we