Bonjour à tous, j'ai un petit bout de code qui ne veut pas fonctionner mais je ne pige pas pourquoi ..
"Erreur d'exécution '13' : Incompatibilité de type"
Voici le code :
D'avance merci pour votre aide
"Erreur d'exécution '13' : Incompatibilité de type"
Voici le code :
Code:
Dim i As Long
With ThisWorkbook.Sheets("Resultats SC")
For i = .Range("AI" & .Rows.Count).End(xlUp).Row To 31 Step -1
If .Range("F" & i) = 6278 And .Range("V" & i) = 0 And .Range("AI" & i).Value > .Range("AI" & i - 1).Value
Then .Range("AI" & i - 1).Value = .Range("AI" & i).Value
Next i
End With
D'avance merci pour votre aide