Lier et trier trois colonnes
Résolu
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
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
3 réponses
-
Bonjour,
Essaie avecSub Trier()
With ActiveWorkbook.Worksheets("Feuil1")
.Range("A1:C1000").Sort .Range("A1"), xlAscending
End With
End Sub
A+ -
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 -
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+
