Probleme Tri vba

[invite204ee98d]

Bonjour,


J'ai un soucis au niveau du tri dans mon programme, le tout compile mais ca ne tri pas. Je veux trier dans un premier les noms par ordre alphabétique se suivant de B3 à BX (X variable) puis si les noms sont les memes regarder les prenoms allant de C3 à CX. Le tout en déplaçant d'autres informations par chaque personne se trouvant dans les différentes colonnes.
Par exemple : Dans B3 j'aurai Durand ; dans D3 Jean ; dans A3 son numero de carte dans E3 jusqu'à DN3 d'autres info le concernant.

Merci de me répondre

Sub Macro3()
    Dim i As Long, DerLigne As Long
    Dim date1 As Date, date2 As Date

   
    ' On vide la liste
    UserForm1.ListBox1.Clear
    
    'On trouve la ligne à partir de laquelle il n y a plus d'informations
    Dernligne = Sheets("Liste des usagers").Range("B" & Rows.Count).End(xlUp).Row
    
    Sheets("Liste des usagers").Rows("3:100").Select
    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
       , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
       , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
       xlSortNormal

    
    For i = 3 To Dernligne
        date1 = DateSerial(Year(Now), Month(Now), Day(Now))     'On stocke l année, le mois, et le jour dans cette variable
        date2 = Sheets("Liste des usagers").Cells(i, 4).Value       'On stocke la date d expiration
        
        If date2 - date1 < 30 Then
            UserForm1.ListBox1.AddItem (Cells(i, 2) & " " & Cells(i, 3) & " Carte n° " & Cells(i, 1) & " ---> " & date2 - date1 & " " & "jour(s)")
            Rows(i & ":" & i).Select
            Selection.Font.ColorIndex = 3
        Else
            Rows(i & ":" & i).Select
            Selection.Font.ColorIndex = 1
        End If
        
    Next i
    
    UserForm1.Show  'On affiche le UserForm1
    
End Sub

-----

[invite204ee98d]

S'il vous plait de l'aide.

[invite204ee98d]

Nadie le sait ?

[Daranc]

je n'ai pas trop compris ta problématique, apparament tu travail sous excel
j'ai "z'u" ( ) un problème de tri a un moment et j'en avai tiré une programme dont j'ai mit le code en ligne sur developpez.net
ici
http://www.developpez.net/forums/d61...vba-suite-fin/
regardes si ça peut t'aider
Cordialement
Daranc

[A voir en vidéo sur Futura]

[Optimix]

J'ai un soucis au niveau du tri dans mon programme, le tout compile mais ca ne tri pas

VB n'étant pas un langage compilé, on ne peut pas parler de compilation, mais d'interprétation.
Il est normal que le tri se fasse mal : si vous utilisez Header:=xlGuess au lieu de Header:=xlYes, tout devrait rentrer dans l'ordre.

Deux remarques :
- Très important : vous avez déclaré la variable Dim DerLigne as long et vous utilisez la variable DernLigne dans votre code. Donc vos déclarations ne servent strictement à rien. Si vous les faites sauter, le programme fonctionnera de la même manière, car votre VBA est mal paramétré. Lorsque vous êtes sous l'éditeur VB, allez dans Outils...Options...onglet "Editeur" et cochez la case "Déclaration des variables obligatoires". Cela ajoutera la ligne Option Explicit au tout début de votre code. Et si vous relancez votre macro, Excel vous signalera le bug au niveau des déclarations.
- Sans importance : prenez l'habitude de mettre une minuscule comme première lettre dans le nom de vos variables et des majuscules dans le corps pour séparer les mots, afin de pouvoir les lire plus facilement. Cela va donner, par exemple, dernLigneDuTableau.

[invite204ee98d]

Merci ca fonctionne

[Optimix]

Alors bonne continuation.

[invite204ee98d]

Dernière chose, je comprends pas trop la différence entre xlYes et xlGuess, je sais seulement que xlYes c'est quand il y a un en tete, c'est a dire ?

[Optimix]

Avez-vous essayé de taper "xlGuess et xlYes" (15 secondes) sur Google avant de poser une question sur laquelle j'ai passé un bon quart d'heure avant de vous répondre ?

[invite204ee98d]

Oui j'ai essayé, je vous l'ai dit xlYes y'a un en tete l'autre c'est excel qui regarde si y'en a un.
Mais c'est quoi un un tete pour une cellule