Bonjour,
J'ai une formule sous excel :
=SI(ET(K393>1;R393="");"";(AD393+AE393)*30+Q393)
Je dois l'automatiser en VBA et ai donc créer ce code :
Cependant lorsque je l'exécute il me donne une erreur d'incompatibilité de type. Sachant que dans mes colonnes O et P sont stockées des valeurs et dans ma colonne I des dates, je pense que c'est de là que vient le problème. J'ai essayé d'utiliser CDate mais ça n'a rien changé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 For i = 2 To ActiveSheet.UsedRange.Rows.Count If Range("C" & i) > 1 And Range("J" & i) = "" Then Range("R" & i) = "" Else Range("R" & i) = Range("O" & i).Value + Range("P" & i).Value * 30 + Range("I" & i).Value End If Next i
Merci pour les solutions que vous pourrez m'apporter!
Partager