Sujet Précédent Sujet Suivant

Lier et trier trois colonnes

Résolu/Fermé
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 - 9 déc. 2015 à 13:49
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 - 9 déc. 2015 à 17:52
Bonjour à tous

Je cherche à faire un tri automatique croissant de 3 colonnes distinctes a,b,c, par une macro Worksheet.
Exemple dans la première colonne (A) j'ai les noms, dans la deuxième colonne (B) j'ai les prénoms et dans la troisième colonne (C) j'ai un code, au moment du tri il faut que ces trois colonnes soient liées pour ne pas séparer les noms, prénoms,et code et le tri devraient s'effectuer automatiquement après avoir taper le code.

Merci de votre aide et les pro de la macro,

Cordialement



A voir également:

3 réponses

Réponse 1 / 3
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
9 déc. 2015 à 14:05
Bonjour,

Essaie avec 
Sub Trier()
    With ActiveWorkbook.Worksheets("Feuil1")
        .Range("A1:C1000").Sort .Range("A1"), xlAscending
    End With
End Sub

A+
0
Réponse 2 / 3
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 174
9 déc. 2015 à 16:43
Bonjour Gyrus

Merci de ta réponse, en fait ta macro est bonne, mais elle ne fonctionne pas en automatique. C'est à dire pour faire le tri il faut chaque fois exécuter la macro, pourrais-tu revoir cette macro et la modifier de façon que le tri fonctionne au moment ou je valide l'entré du n° de code

Cordialement
0
Réponse 3 / 3
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
9 déc. 2015 à 17:34
Voila, voila ! 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 3 Then
        DerLig = Range("A" & Rows.Count).End(xlUp).Row
        Range("A1:C" & DerLig).Sort Range("A1"), xlAscending
    End If
End Sub

Le code est à placer dans le module de la feuille concernée.

A+
0
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 174
9 déc. 2015 à 17:52
Excellent Gyrus

Merci beaucoup pour cette macro je l'ai testé elle fonctionne impeccablement, c'est exactement ce que je voulais

Merci de ton investissement et peut-être un jour pour une nouvelle requête

Bonne soirée

Henri
0