Discussion :

[jacko842]

Bonjour,

J'ai un fichier excel avec 4 colonnes:

La première contient des références.
La deuxième est vide
La troisième contient aussi des références liées à la quatrième colonnes qui contient des articles:

5 ? 89 CD
7 ? 15 JEUX
15 ? 45 VOITURE
89 ? 5 Vêtement
45 ? 7 PC

Je voudrais utiliser un programme vb.net qui va rechercher dans la colonne 3 la référence qui est égale à la première colonne pour copier l'article dans la deuxième colonne.

Pour avoir au final dans les colonnes 1 et 2:

5 Vêtement
7 PC
15 JEUX
89 CD
45 VOITURE

Pour le moment j'ai ceci comme code:

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
18
19
20
21
22
23
24
25
26
 
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Excel
Imports System.Data
Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Déclaration des variables
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excelge
 
        'Ouverture de l'application
        appExcel = CreateObject("Excel.Application")
        'Ouverture d'un fichier Excel
        wbExcel = appExcel.Workbooks.Open("C:\Users\neotof\Desktop\pharmacie\article_infohos.xlsx")
        'wsExcel correspond à la première feuille du fichier
        wsExcel = wbExcel.Worksheets(1)
 
        wsExcel.Columns(1).Select()
 
        MsgBox("ok")
    End Sub
End Class

Je dois maintenant voir comment utiliser les données des cellules pour les comparer.

Pouvez vous m'aider ?

D'avance merci

[jacko842]

Pour finir vais fare ça avec une marco

[Pol63]

depuis vb.net excel peut s'utiliser comme une base de données via ado.net
il est alors possible d'exécuter la requête suivante

Code :

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

1
2
3
 
update nom_de_la_feuille set colonne2 = f2.colonne4 
from nom_de_la_feuille inner join nom_de_la_feuille f2 on nom_de_la_feuille.colonne1 = f2.colonne3