Discussion :

[Gregney]

Bonjour,

Debutant en vb.net je voudrais savoir comment exporter un datagridview vers excel mais dans un ordre decroissant.

Pour l'instant j'ai un code qui fonctionne mais qui exporte le datagrid dans l'ordre ou il est afficher a l'ecran.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim xlApp As Excel.Application
 Dim xlBook As Excel.Workbook
 Dim xl As Excel.Worksheet
 
 xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
 xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
 xl = CType(xlBook.Worksheets(1), Excel.Worksheet)
 
Dim i As Integer = DataGridView.Rows.Count - 1 
Dim j As Integer = DataGridView.Columns.Count - 1 
Dim i, j, x, y As Integer
 
For x = 0 To i
     For y = 0 To j
             xl.Cells(x + 1, y) = DataGridView(x, y).Value.ToString
     Next
Next

[wakan]

Bonjour Gregney,
Bienvenue sur développez.
Quelques précisions :
-Sur quel colonne veux tu trier tes données.
- Est ce un trie simple sur une valeur ou un string ?
Merci de tes précisions.
A bientôt.
Wakan

[Gregney]

Bonsoir wakan et merci pour ton accueil

J'ai un datagridview avec une colonne avec des pays et une seconde avec des ville.

Pour l'instant mon datagridview est trier par ordre alphabetique des pays et des villes. (Je dois le garder présenter de cette façon).

Et je voudrais pouvoir l'exporter sur excel dans l'ordre ou il est afficher ( ce qui marche avec le code que j'ai copier) mais je voudrais pouvoir l'exporter dans le sens inverse ( dans A1 la derniere ligne de mon DGV ...)).

Merci pour l'interet que vous portez a mon topic =D.

[sinople]

En utilisant une requête linq avec comme source de donnée les rows de ton datagridview:

Code :

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

1
2
3
From c As DataGridViewRow in DataGridView.Rows _
Select Ville=c.Cells(0).Value, Pays=c.Cells(1).Value _
Order By Ville Ascending

Ensuite tu utilise le résulats de la requête pour faire l'export Excel.

[Gregney]

En utilisant une requête linq avec comme source de donnée les rows de ton datagridview:

Code :

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

1
2
3
From c As DataGridViewRow in DataGridView.Rows _
Select Ville=c.Cells(0).Value, Pays=c.Cells(1).Value _
Order By Ville Ascending

Ensuite tu utilise le résulats de la requête pour faire l'export Excel.

Bonsoir et merci pour votre aide

Désolé Sinople mais je ne vois pas ce que tu veux dire je debute tout juste avec vb.net. En utilisant un exemple de requete linq trouve sur internet j'ai essayé mais j'ai eu aucun resultat donc je pense que j'ai du mal comprendre y aurait il moyen que tu me m'explique si to plais?

Sinon je me demandé s' il est possible ( voir meme plus simple d'exporter le datagridview en mettant la premiere ligne, la derniere ligne, la seconde, l'avant derniere ...)

Etant donne que je cherche a avoir la liste des pays dans un ordre "inutilisé" par l'association

[Theze]

Bonsoir Gregney,

Teste ce qui suit, à partir de ton code et en inversant le sens du parcours de lignes (en partant du bas) "For x = i To 0 Step -1" :

Code :

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

1
2
3
4
5
6
 
        For x = i To 0 Step -1
            For y = 0 To j
                xl.Cells(x + 1, y) = DataGridView1(x, y).Value.ToString
            Next
        Next

Par contre, je suis surpris que tu n'est pas d'erreur sur la ligne :

Code :

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

1
2
 
xl.Cells(x + 1, y) = DataGridView1(x, y).Value.ToString

car pour Excel "xl.Cells(x + 1, y) " y ne peut être égal à zéro puisque il n'existe pas de colonne 0 ni de ligne 0 d'ailleurs ?

Hervé.

[Gregney]

Bonsoir Gregney,

Teste ce qui suit, à partir de ton code et en inversant le sens du parcours de lignes (en partant du bas) "For x = i To 0 Step -1" :

Code :

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

1
2
3
4
5
6
 
        For x = i To 0 Step -1
            For y = 0 To j
                xl.Cells(x + 1, y) = DataGridView1(x, y).Value.ToString
            Next
        Next

Par contre, je suis surpris que tu n'est pas d'erreur sur la ligne :

Code :

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

1
2
 
xl.Cells(x + 1, y) = DataGridView1(x, y).Value.ToString

car pour Excel "xl.Cells(x + 1, y) " y ne peut être égal à zéro puisque il n'existe pas de colonne 0 ni de ligne 0 d'ailleurs ?

Hervé.

Bonsoir et merci pour votre reponse

J'ai essayé votre code est il m'affiche toujours mon datagridview dans l'odre auquel il apparait a l'ecran

Sinon pour mon code moi aussi j'aii trouvé sa bizarre sachant que je lise partout que en vb les lignes et colonnes commencer a 1 mais quand je mettais 1 la premiere ligne de mon datagridview ne s'afficher pas

[Brialex]

Bonsoir et merci pour votre aide

Désolé Sinople mais je ne vois pas ce que tu veux dire je debute tout juste avec vb.net. En utilisant un exemple de requete linq trouve sur internet j'ai essayé mais j'ai eu aucun resultat donc je pense que j'ai du mal comprendre y aurait il moyen que tu me m'explique si to plais?

Sinon je me demandé s' il est possible ( voir meme plus simple d'exporter le datagridview en mettant la premiere ligne, la derniere ligne, la seconde, l'avant derniere ...)

Etant donne que je cherche a avoir la liste des pays dans un ordre "inutilisé" par l'association

Eu pour exporter ton datagrid de cette façon je te proposerai bien d'essayer de déclarer une variable x qui commence a la première ligne et une autre y qui part de la dernière ligne tu exporte chacune de te variable ( puis tu incrémente la première et décrémente la deuxième) jusqu'à' a tes deux variables soit égale.

Je dit juste sa mais je ne sais ABSOLUMENT pas si sa fonction, je debute a peine avec vb et donc sa serait bien si quelqu'un pourrai confirmer ou infirmer ce que je veux d'ecrire


en tout cas bon courage

[Gregney]

Apres plusieurs heures d'essaie j'ai enfin reussi =) Merci beaucoup a Brialex pour ton idée et a Theze pour ton bout de code