AIDE !! Ma macro ne fonctionne pas

Bonjour,

j'ai fait une macro toute simple pour faire des conversions et je m'aperçois qu'elle ne marche pas alors que pourtant il n'y à rien qui manque.

Voici le code:

Sub convert_to_Euro()
If Not IsNumeric(Range("C9")) Then
Range("A13").Font.ColorIndex = 3
Range("A13") = "Impossible de convertir une valeur non numérique !!"
End If
If Not Range("C9") = "..." Or Not Range("C9") = 1 Then
Range("A13") = Range("C9") & " dollars américain équivallent à " & Round((Range("C9") / 0.730193501), 2) & " euros"
End If
If Range("C9") = "1" Then
Range("A13") = "1 dollar américain équivaut à 0.73 euros"
End If
End Sub

Ca me marque "Incompatibilité de ce type" pour la ligne 7 ,

merci d'avance

Bonsoir,

Sub convert_to_Euro()
If Not IsNumeric(Range("C9")) Then
Range("A13").Font.ColorIndex = 3
Range("A13") = "Impossible de convertir une valeur non numérique !!"
Exit Sub 'C9 non numerique affiche le message et quitte la macro
End If
If Not Range("C9") = "..." Or Not Range("C9") = 1 Then
Range("A13") = Range("C9") & " dollars américain équivallent à " & Round((Range("C9") / 0.730193501), 2) & " euros"
End If
If Range("C9") = 1 Then   'j'ai enlevé les guillemets c'est numérique
Range("A13") = "1 dollar américain équivaut à 0.73 euros"
End If
End Sub

Bonjour,

Pour le fun

Option Explicit
Public Sub test()
Const tx As Double = 0.730193501
Dim x As String, y As String
    [A13].Font.ColorIndex = xlAutomatic
    If Not IsNumeric([C9]) Then
        [A13] = "Impossible de convertir une valeur non numérique !!"
        [A13].Font.ColorIndex = 3
        Exit Sub
    Else
        If [C9] >= 2 Then x = "s"
        If Round([C9] / tx, 2) >= 2 Then y = "s"
        [A13] = [C9] & " U.S. dollar" & x & " équivaut à " & Round([C9] / tx, 2) & " Euro" & y
    End If
End Sub

Merci à vous deux, j'ai pris la solution de kingfadhel mais même si celle de Jean-Eric marche très bien;

Encore merci