rangement colonne a ouverture fichier ...

[n3Twork]

Bonjour


Je n'arrive pas a faire en sorte qu'a l'ouverture de mon fichier la colonne B se range de maniere alaphabetique ... mais attention car sur ma ligne 1 j'ai le libellé de ma collonne ... donc je ne voudrai pas que lui il bouge ...

Merci de votre aide

 

[JC de Lorient]

Re : rangement colonne a ouverture fichier ...

salut
a mettre dans le Workbook_Open
Private Sub Workbook_Open()
Range("B1:B" & Range("B65536").End(xlUp).Row).Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1").Select
End Sub