XL 2019 Classer en ordre alphabétique plusieurs colonnes

Bsm à dit:

Bonjour à tous,
Je suis retraité et débutant. je vais essayer d'être clair.
J'ai un classeur contenant une liste de titres de films contenu dans 3 colonnes (A,B et C) avec 1 ligne d'entête toutes les 80 lignes.
Quand je saisi un nouveau titre, je passe 10mn à déplacer les titres afin d'y insérer dans l'ordre alphabétique le nouveau titre.
Ma question donc, est t'il possible de saisir à la fin de la colonne ayant une cellule de libre le titre puis trier automatiquement
cela ?
L'ordre de tri du classeur se fait ainsi :
A1 jusqu'à A80 puis B1 jusqu'à B80 puis C1 jusqu'à C80
ensuite pour la seconde page (imprimée) :
A82 jusqu'à A160 puis B82 jusqu'à B160 puis C82 jusqu'à C160
et ainsi de suite pour d'autres page à venir.

Merci de votre aide, je vous joint le fichier cela pourra peut être être plus parlant*
Merci William

Cliquez pour agrandir...

• utiliser un tableau structuré
• (option) figer la première ligne du tableau de façon à toujours voir le titre
• après chaque ajout dans la première ligne vide en bas du tableau, cliquer sur la flèche à droite de la cellule A1 et sélectionner "trier de A à Z" et le tri alpha sera automatique
• les résultats sont affichés en Feuil2(2)

job75 à dit:

Bonjour Bsm, Gégé-45550, le forum,

Un tableau structuré ne paraît pas une bonne idée puisqu'en fait il y a plusieurs tableaux.

Voyez le fichier joint et ces macros dans le code de la feuille :

VB:

Option Compare Text 'la casse est ignorée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pas&, tablo, j%, i&, a(), n&, ub&
Cancel = True
pas = 80
With Range("A" & 1 + pas * Int((Target.Row - 1) / pas), "C" & pas + pas * Int((Target.Row - 1) / pas))
    tablo = .Value 'matrice, plus rapide
    For j = 1 To 3
        For i = 2 To pas
            If tablo(i, j) <> "" Then
                ReDim Preserve a(n)
                a(n) = tablo(i, j)
                n = n + 1
            End If
    Next i, j
    ub = UBound(a)
    tri a, 0, ub
    n = 0
    For j = 1 To 3
        For i = 2 To pas
            If n <= ub Then tablo(i, j) = a(n) Else tablo(i, j) = ""
            n = n + 1
    Next i, j
    .Value = tablo 'restitution
End With
End Sub

Sub tri(a, gauc, droi) ' Quick sort
Dim ref, g, d, temp
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

Double-clic dans le tableau à trier.

A+

Cliquez pour agrandir...

Bsm à dit:

et de deux je n'obtient pas le résultat attendu, c'est à dire que si un titre est rajouté dans la "seconde section", il sera trié pour cette section et non pour l'ensemble du tableau

Cliquez pour agrandir...