[VB.Net] Comment comparer deux cellules Excel avec un DataSet ?

Bonjour tout le monde,

J'aimerais juste comparer deux cellules Excel.

Pour faire cela, j'utilise un dataset qui est déclaré et qui fonctionne très bien.

Le problème est qu'avec cette ligne :

Code:

---

If appexcel.Cells(i, " 40") = appexcel.Cells(i, " 2") Then

---

J'ai un message d'erreur :

Citation:

---

Une exception non gérée du type 'System.InvalidCastException' s'est produite dans microsoft.visualbasic.dll

Informations supplémentaires : L'opérateur n'est pas valide pour type 'Range' et type 'Range'.

---

Est-ce que quelqu'un a déjà rencontré ce problème ?

Merci d'avance pour votre aide.

bgs

Il semblerait que tu ne puisse pas comparer un type Range avec un autre eype Range. Essai de comparer les valeur de Range plutot, ou alors utlise .Equals() si il existe sur cet objet

Citation:

---

Envoyé par guitoux1

Il semblerait que tu ne puisse pas comparer un type Range avec un autre eype Range. Essai de comparer les valeur de Range plutot, ou alors utlise .Equals() si il existe sur cet objet

---

Bonjour guitoux1,

Merci pour ta réponse.

Malheureusement en changeant cells par Range j'ai ce message d'erreur :

Une exception non gérée du type

Citation:

---

'System.Runtime.InteropServices.COMException' s'est produite dans WindowsApplication1.exe
Informations supplémentaires*: Exception de HRESULT*: 0x800A03EC.

---

J'ai donc fait :

Code:

---

1 2 3

If appexcel.Range(i, " 40") Is appexcel.Range(i, " 2") Then

---

En plus j'ai dû changer le = par un Is.

Qu'en penses-tu ?

Merci pour ton aide.

bgs

C'est pas du tout ce que je voulais dire !!
Je voulais dire que le type de appexcel.Cells(i, " 40") ne semble pas pouvoir être comparé avec un autre appexcel.Cells(x, x). Je ne connais pas ce type, mais surement qu'il possède une méthide .Equals() dans ce cas, utilise la pour effectuer ta comparaison :

Code:

---

1 2	If appexcel.Cells(i, " 40").Equals(appexcel.Cells(i, " 2")) Then

---

Ou mieux, peut-être il y a t'il une propriété Value

Excuse-moi d'avoir mal compris.

on avance ! il n'y a plus d'erreur ! merci !

Maintenant, je suis sur d'avoir exactement la même donnée dans l'enregistrement de mon dtt et dans ma cellule Excel mais lui ne les voient pas comme identique.

voici le code utilisé :

Code:

---

1 2 3 4 5 6 7 8

If appexcel.Cells(i, " 40").Equals(appexcel.Cells(i, " 2")) Then ' Instructiions Else MessageBox.Show("Les informations entre Excel et Access sont différentes", "Attention") Exit Sub End If

---

Je suis sûr que la donnée dans l'enregistrement du dtt et de la cellule excel est même car j'insère dans la même page Excel mais dans une collone éloignée le nom de l'enregistrement du dtt et il correspond exactement à la cellule excel.

Pour info, appexcel.cells, le appexcel correspond à une variable que j'ai instancié au début du programme pour déclarer le programme excel.

J'espère que tu pourras encore m'aider.

Merci d'avance.

bgs

avec avec .Value (ou Value2 je crois sur Excel) ??

Citation:

---

Envoyé par guitoux1

avec avec .Value (ou Value2 je crois sur Excel) ??

---

idem malheureusement.

Je pense que je vais devoir trouvé une autre stratégie ?

Qu'en penses-tu ?

Merci
bgs

effectivement, c'est assez étrange.
Les codes :

Code:

---

If appexcel.Cells(i, " 40").Value2.Equals(appexcel.Cells(i, " 2").Value2) Then

---

et

Code:

---

If appexcel.Cells(i, " 40").Value2 == appexcel.Cells(i, " 2").Value2 Then

---

Ne donnent rien (en essayant aussi avec .Value ça existe) ??

Et avec un Trim ?

Citation:

---

Envoyé par guitoux1

effectivement, c'est assez étrange.
Les codes :

Code:

---

1 2 3

If appexcel.Cells(i, " 40").Value2.Equals(appexcel.Cells(i, " 2").Value2) Then

---

et

Code:

---

1 2	If appexcel.Cells(i, " 40").Value2 == appexcel.Cells(i, " 2").Value2 Then

---

Ne donnent rien (en essayant aussi avec .Value ça existe) ??

---

Je t'informe que.... ça marche !!!!

Désolé c'est de ma faute !

J'avais mis .value qu'au premier appexcel.cells...

Merci beaucoup guitoux1, c'est avec des gens comme toi qu'on avancent !

Merci encore et bonne soirée.

bgs