Discussion :

[FuNKyMIkE]

Bonjour,

Je precise pour commencer que je suis debutant en VBA.

J'essaye de comparer deux cellules, mais pas moyen, l'erreur est :
Run-time error '13': Type mismatch

Alors que si j'ai bien compris les posts parlant du meme probleme sur le forum, ca devrait fonctionner vu que je precise qu'il faut comparer le texte.

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
Sub Update_machines_list()
 
Dim WS1machines As Worksheet, WS2export As Worksheet
Dim FileName As String
 
    FileName = "G:\Michael\BTTC\Draft\export_mv8.xls"
    Set WS1machines = ThisWorkbook.Worksheets("Sheet1")
    Set WS2export = Workbooks.Open(FileName).Worksheets("Sheet1")
 
If WS1machines.Cells("A1").Text = WS2export.Cells("A1").Text Then
MsgBox ("Yes")
Else
MsgBox ("no")
End If
 
End Sub

Merci d'avance

Solution : WS1machines.Cells("A1").Text = WS2export.Cells("A1").Text Then WS1machines.Range("A1").Text = WS2export.Range("A1").Text

[aalex_38]

Bonjour,

Pour la comparaison des valeurs on utilise .value et non pas .text ou même la cellule sans propriétés, remplace ta condition par celle-ci :

Code :

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

If WS1machines.Cells("A1") = WS2export.Cells("A1") Then

[FuNKyMIkE]

Bonjour aalex_38, merci de ta reponse.

Ca me donne le meme resultat, que ce soit avec .value ou sans rien (c'etait comme ca que j'avais commence).

Dans mes tableaux, les cellules A1 sont de type "general" et contiennent du texte (identique).

[aalex_38]

Re,

cette syntaxe me semble etrange (je ne sais pas si ça fonctionne, mais je n'aurai pas fait comme ça :

Code :

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

1
2
 
 Set WS2export = Workbooks.Open(FileName).Worksheets("Sheet1")

J'aurai plutot fait :

Code :

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

1
2
3
Dim wk as workbook
Set Wk  = Workbooks.Open(FileName)
Set WS2export = wk.Worksheets("Sheet1")

Edit : essai msgbox WS2export.name pour voir ce que ça donne dans ton code.

EDIT2: Cells et "A1", mon Dieu ça aurait du me sauter aux yeux, mais c'est passé comme une lettre à la poste

[FuNKyMIkE]

Rebonjour,

MsgBox WS2export.Name me donne "Sheet1".

Par contre quand je mets MsgBox (WS2export.Cells("A1").Text) ou (WS2export.Cells("A1")) juste apres, j'obtiens Run-time error '13': Type mismatch de nouveau.

[mercatog]

Essaie comme ceci

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
Sub Update_machines_list()
Dim WB2export As Workbook 
Dim WS1machines As Worksheet, WS2export As Worksheet
Dim FileName As String
 
    FileName = "G:\Michael\BTTC\Draft\export_mv8.xls"
    Set WS1machines = ThisWorkbook.Worksheets("Sheet1")
    Set WB2export = Workbooks.Open(FileName)
    Set WS2export = WB2export.Worksheets("Sheet1")
 
If WS1machines.Range("A1").Value= WS2export.Range("A1").Value Then
MsgBox ("Yes")
Else
MsgBox ("no")
End If
 
End Sub

à propos, tu as quoi dans tes cellules A1 respectives?

EDIT: Range au lieu de Cells, oups