Discussion :

[Guiguedu13]

Bonjour,

Comme indiqué en titre, j'ai un petit programme tout bête pour soustraire deux colonnes et afficher le résultat dans une troisième. Seulement voilà, les cellules étant toutes (ou presque toutes) négatives, VBA me signale une "Incompatibilité de type" lorsque je lance la macro... Par contre, lorsque j'additionne, là ça marche !
Les cellules sont bien au format chiffre, écrire une formule et la tirer fonctionne très bien (sur 7000 lignes !!!), alors je ne comprends pas vraiment d'où vient le problème...
Voici mon programme:

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Soustraction()
For i = 1 To 7000
    If Range("C" & i).Value = 0 Or Range("D" & i).Value = 0 Then
    Range("E" & i).Value = ""
    Else: Range("E" & i).Value = Range("C" & i).Value - Range("D" & i).Value
    End If
Next i
End Sub

Si vous avez une idée, je suis preneur !

Merci !

GUILLAUME

[jfontaine]

Bonjour,

Essais en forçant la valeur ou en convertissant le type de données

Code :

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

Else: Range("E" & i).Value = Val(Range("C" & i).Value) - Val(Range("D" & i).Value)

[Guiguedu13]

Merci Jérôme pour ton aide, le message d'erreur n'apparaît plus avec la petite modification !
A ceci près que la macro m'arrondit le résultat à l'entier le plus proche...

[jfontaine]

Et en remplaçant Val par Cdbl?

Tu as probablement la virgule en symbole décimal.

[Guiguedu13]

CDbl donne "incompatibilité de type".
Effectivement le séparateur de décimales est la virgule (Excel français).