Lier et trier trois colonnes

Résolu
The_boss_68 Messages postés 952 Date d'inscription   Statut Membre Dernière intervention   -  
The_boss_68 Messages postés 952 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   526
 
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 952 Date d'inscription   Statut Membre Dernière intervention   182
 
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   Statut Membre Dernière intervention   526
 
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 952 Date d'inscription   Statut Membre Dernière intervention   182
 
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