Tri alphabetique

[Ju]

Salut,
Je voudrais savoir si il est possible qu'Excel tri automatiquement par ordre alphabétique une colonne à chaque fois qu'un nom est entrer dans cette colonne
Merci d'avance
@+
Ju

 

[PascalXLD]

Bonjour

Soit tu le fais toi -même en faisant données>trier

ou tu fais une petite macro qui fera la même chose et tu la déclenche soit par un bouton ou en evenementielle si une cellule de ta colonne change

bonne journée

 

[Ju]

Le probleme c'est que je sais pas comment on fait avec une macro, Help me Please

 

[PascalXLD]

Tiens voici

1 - en evenementiel

Private Sub Worksheet_Change(ByVal Target As Range)

Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

2 par macro

Sub Macro1()

Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Bon courage

 

[Ti_]

c'est faisable sans macros. Tu peux aller voir mes fichiers démo 'Tris auto sans macros' sur Vériti Ce lien n'existe plus.
S'il n'y a qu'une seule colonne à trier, c'est encore plus simple.

 

[Ju]

Merci Beaucoup tous les 2 je vé le faire en evenementielle mais le probleme c'est que ma colonne c'est des noms et il y a 2 colonnes qui y sont attachés donc il faudrait qu'il bouge en meme temps que la colonne des noms....
Encore un petit coup de pouce?
Merci encore
@+
Ju

 

[PascalXLD]

Re

voici une modif ta macro s'effectue en cas de changement dans ta colonne A mais tes colonnes B et C doivent bouger en même temps

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('A1:A65536')) Is Nothing Then

Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End If

End Sub

 

[Ju]

Merci beaucoup Pascal76
@+
Ju

 

[Ju]

Pascal76 AU SECOURS
Si je ne tape pas le nom exactement en dessous du dernier nom de la colonne le code en basic se plante ya pas moyen de réparé ça je sais je suis chiant
Merci d'avance
@+
Ju

 

[PascalXLD]

Re

Voilà modifiée toujours avec colonne A à C

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('A1:A65536')) Is Nothing Then

Range('A1:C' & Target.Row).Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End If

End Sub