Discussion :

[beegees]

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 :

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

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

J'ai un message d'erreur :

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

[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

[beegees]

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

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

J'ai donc fait :

Code :

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

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

[guitoux1]

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 :

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

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

[beegees]

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 :

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

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

[guitoux1]

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

[beegees]

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

[guitoux1]

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

Code :

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

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

et

Code :

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

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

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

[BalBalNet]

Et avec un Trim ?

[beegees]

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

Code :

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

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

et

Code :

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

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