XL 2010 Tri alphabétique sur plusieurs colonnes

[jokerfidelio]

Bonjour a tous,
J ai essayé plusieurs code vba mais sans succès.

J aurais souhaité pouvoir trier les données de plusieurs colonne
exemple B.D.F par ordre alphabétique (avec suite sur les 3 colonnes de A 》Z)
automatiquement a chaque nouvelles entrée ou a l ouverture du fichier.

Merci de votre aide

 

[Dranreb]

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.

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

 

[jokerfidelio]

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.

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

j ai bien copier le code dans le module mais cela ne fonctionne pas

 

[Dranreb]

Essayez peut être en mettant If Ucase(Cells(Ligne, Colonne).Value) Like "*" & Ucase(TextBox1.Text) & "*" Then

 

[jokerfidelio]

houla, qu'elle code a remplacer par celui ci ?

Dim Ligne&, Colonne&

 

[Dranreb]

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

 

[jokerfidelio]

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

Desole je ne maitrise pas du tout le VBA j'essaye de modifier de tres petites choses, mais toute fois tres tres limité !

 

[job75]

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 :

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+

 

[jokerfidelio]

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 :

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+

j'ai copié le code dans le module 1 mais cela ne repond toujours pas ! est ce moi qui fait une mauvaise manipulation ?
fichier joint

 

[Dranreb]

On a dit : DANS LE MODULE DE LA FEUILLE
Pas dans un module standard. Ça ne sert à rien. Il ne connait pas d'objet Textbox1, c'est un objet de la feuille. Et d'ailleurs, jamais aucune procédure évènement n'est utilisable dans un module standard, seulement dans les modules objets.

 

[jokerfidelio]

OK merci je n'avais pas compris et cela marche impeccable ! Mille merci

qu'elle est la difference entre le module de feuille et le module ?

 

[jokerfidelio]

autre question ce code fonctionne uniquement sur des lettres en majuscule

 

[Dranreb]

Soit transformer des deux cotés avec UCase(,
soit ajouter Option Compare Text après Option Explicit comme le préconise Job75

 

[jokerfidelio]

je comprend bien le cheminement avec soit UCase(,
ou ajouter Option Compare Text après Option Explicit

mais j'ai beau essayé tout ces codes je n'arrive a rien ! je n'arrive pas ecrire ce code et ou le placer j'ai a chaque fois un message d erreur

 

[job75]

Re,

autre question ce code fonctionne uniquement sur des lettres en majuscule

Vous ne comprenez pas ce que veut dire "la casse est ignorée" ?

Et puis vous n'avez qu'à tester...

A+

 

[job75]

Re,

Et puis on ne va pas passer la nuit sur un truc hyper simple, voilà le fichier.

A+