Discussion :

[Windaube]

Bonjour,

Je rencontre actuellement un petit problème... Etant débutant en VB .NET je suis actuellement en train de me créer un petit programme qui relève des informations depuis l'active directory et les insert ensuite dans un fichier Excel. Mon fichier excel contient 3 colonnes:

Nom et Prénom | Visa | Numéro de téléphone

Quand je relève les informations, mon programme de les ecris pas dans l'ordre alphabétique... j'ai alors le code suivant pour trier une colonne par ordre alphabétique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
wb = excel.Workbooks.Add(1) 'on ouvre un classeur dans excel
ws = wb.Worksheets(1) 'on ouvre une feuille dans le classeur excel 
ws.Cells(4, 2).SortSpecial(Global.Excel.XlSortMethod.xlPinYin) 'Tri de la 2ème colonne par ordre alphabétique

Le problème est le suivant. Il tri correctement la colonne Nom et Prénom à partir de la 4ème ligne, mais le problème est que vu qu'il ne tri qu'une seule colonne, ça ne correspond plus au autre colonne... j'avais pensé mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ws.Range("B4:F500").SortSpecial(Global.Excel.XlSortMethod.xlPinYin)

Mais il me met référence non valide...

Si quelqu'un à une idée, je suis tout ouïe

Merci d'avance

[Windaube]

J'ai trouvé la solution merci quand même à ceux qui ont réfléchi à mon problème (s'il y en à bien sûr)

Je laisse la solution on sait jamais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ws.Range("B4:F500").Sort(Key1:=ws.Range("B5"), Order1:=Global.Excel.XlSortOrder.xlAscending, Header:=Global.Excel.XlYesNoGuess.xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=Global.Excel.XlSortOrientation.xlSortColumns)