Bonjour!
J'ai un petit probleme sur un "Run Time erro 13 type mismatch".
J'ai deux colonnes a comparer et en gros si, pour chaque ligne, valeur colonne A * 1.05 - Valeur colonne B >=0 alors on peut passer au i suivant. Sinon, une msg box doit s'ouvrir et dire a quelle ligne ca a bugue !
Voici le code:
Je suis un peu perdu avec les sheets.range, sheets.range.value, sheets.cells alors je ne sais pas si l'erreur vient de la.
De plus apres then, j'ai mis j=1 car je ne savais pas comment lui dire "Juste continue et passe au i suivant".
Merci pour vos indications!
J'ai un petit probleme sur un "Run Time erro 13 type mismatch".
J'ai deux colonnes a comparer et en gros si, pour chaque ligne, valeur colonne A * 1.05 - Valeur colonne B >=0 alors on peut passer au i suivant. Sinon, une msg box doit s'ouvrir et dire a quelle ligne ca a bugue !
Voici le code:
Code:
Sub macro()
Dim i As Integer
Dim j As Integer
'Verification des temperatures
For i = 4 To 25923
[I]If Sheets("Sheet1").Range("C" & i).Value * 1.05 - Sheets("Sheet1").Range("D" & i).Value >= 0 Then[/I] j = 1
Else
MsgBox "The wrong temperature is in cell" & i
Exit For
End If
Next i
End Sub
Je suis un peu perdu avec les sheets.range, sheets.range.value, sheets.cells alors je ne sais pas si l'erreur vient de la.
De plus apres then, j'ai mis j=1 car je ne savais pas comment lui dire "Juste continue et passe au i suivant".
Merci pour vos indications!