Gexk5
XLDnaute Occasionnel
Bonsoir le forum
Voici mon problème, j'ai 3 macos pratiquements identiques, 1 seule s'execute sans message d'erreur et les deux autres s'executent mais me mettent: erreur d'execution 13, incompatibilité de type.
Quelqu'un aurait il une idée??????
Voici mes macros
Sub RecalculCPreste()
Dim l As Byte
For l = 36 To 217
With Sheets("BASE")
.Range("E" & l).Value = .Range("C" & l) - .Range("D" & l) - .Range("AX" & l)
End With
Next l
End Sub
Sub RecalculRTTreste() ' celle ci fonctionne sans erreur
Dim m As Byte
For m = 36 To 217
With Sheets("BASE")
.Range("H" & m).Value = .Range("F" & m) - .Range("G" & m) - .Range("AV" & m)
End With
Next m
End Sub
Sub RecalculCAreste()
Dim n As Byte
For n = 36 To 217
With Sheets("BASE")
.Range("k" & n).Value = .Range("I" & n) - .Range("J" & n) - .Range("AW" & n)
End With
Next n
End Sub
' cela fonctione avec RTT mais avec CA et CP , erreur d'execution'13', incompatibilité de type
' mais le code est executé
Merci a tous ceux qui pourront m'aider
@micalement
Voici mon problème, j'ai 3 macos pratiquements identiques, 1 seule s'execute sans message d'erreur et les deux autres s'executent mais me mettent: erreur d'execution 13, incompatibilité de type.
Quelqu'un aurait il une idée??????
Voici mes macros
Sub RecalculCPreste()
Dim l As Byte
For l = 36 To 217
With Sheets("BASE")
.Range("E" & l).Value = .Range("C" & l) - .Range("D" & l) - .Range("AX" & l)
End With
Next l
End Sub
Sub RecalculRTTreste() ' celle ci fonctionne sans erreur
Dim m As Byte
For m = 36 To 217
With Sheets("BASE")
.Range("H" & m).Value = .Range("F" & m) - .Range("G" & m) - .Range("AV" & m)
End With
Next m
End Sub
Sub RecalculCAreste()
Dim n As Byte
For n = 36 To 217
With Sheets("BASE")
.Range("k" & n).Value = .Range("I" & n) - .Range("J" & n) - .Range("AW" & n)
End With
Next n
End Sub
' cela fonctione avec RTT mais avec CA et CP , erreur d'execution'13', incompatibilité de type
' mais le code est executé
Merci a tous ceux qui pourront m'aider
@micalement