XL 2010 Tri alphabétique sur plusieurs colonnes

Dranreb à dit:

Réécrit comme ça et rappatrié dans le module Feuil11 ça a l'air de marcher, mais c'est un peu lent, le temps de réponse.

VB:

Private Sub TextBox1_Change()
Dim Ligne&, Colonne&
    Application.ScreenUpdating = False
    Range("B2:B25,D2:D25,F2:F25").Interior.ColorIndex = 2
    ListBox1.Clear

    If TextBox1 <> "" Then
        For Ligne = 2 To 25
            For Colonne = 2 To 6 Step 2
                If Cells(Ligne, Colonne) Like "*" & TextBox1 & "*" Then
                    Cells(Ligne, Colonne).Interior.ColorIndex = 43
                    ListBox1.AddItem Cells(Ligne, Colonne)
                End If
            Next
        Next
    End If
End Sub

Cliquez pour agrandir...

Dranreb à dit:

Comprends pas la question.
Il n'y a pas 36 instruction qui utilisent l'opérateur Like
Je soupçonne que ça ne marche pas parce que vous tapez des minuscules.
Alors mettez en majuscules des deux cotés avec UCase

Cliquez pour agrandir...

job75 à dit:

Re,

Avec Option Compare Text en haut de la feuille la casse est ignorée.

Et il vaut mieux commencer par la boucle sur les colonnes pour bénéficier du classement :

Code:

Option Compare Text 'la casse est ignorée

Private Sub TextBox1_Change()
Dim Colonne%, Ligne&
    Application.ScreenUpdating = False
    Range("B2:B1000,D2:D1000,F2:F1000").Interior.ColorIndex = xlNone
    ListBox1.Clear
    If TextBox1 <> "" Then
        For Colonne = 2 To 6 Step 2
            For Ligne = 2 To [A1].CurrentRegion.Rows.Count
                If Cells(Ligne, Colonne) Like "*" & TextBox1 & "*" Then
                    Cells(Ligne, Colonne).Interior.ColorIndex = 43
                    ListBox1.AddItem Cells(Ligne, Colonne)
                End If
            Next
        Next
    End If
End Sub

A+

Cliquez pour agrandir...

jokerfidelio à dit:

autre question ce code fonctionne uniquement sur des lettres en majuscule

Cliquez pour agrandir...