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