Bonjour,
VBA s'obstine à me dire "erreur d'exécution 13 incompatibilité de type" lorsque j'exécute ma macro et je ne comprend pas pourquoi... (je ne comprend pas ce qu'il veut dire non plus d'ailleurs).
Le programme suivant doit servir à retrouver deux dates identiques dans une feuille Excel (dans les colonnes B et L) puis, une fois les dates trouvées, soustraire les heures inscrites dans les cases adjacentes (colonnes C et M) et afficher le résultat dans la case de la colonne K située sur la ligne i du départ.
Je fais appel à une fonction "heure" pour ma soustraction.
Sub soleil()
Dim i, j As Integer
For i = 2 To 5305
For j = 2 To 366
If Range("B" & i).Value = Range("L" & j).Value Then
Range("K" & i).Value = heure("C" & i, "M" & j)
End If
Next j
Next i
End Sub
Function heure(time As Date, sun As Date) As Date
heure = time - sun
End Function
au secours, sinon je me tape 5305 soustractions...
merci
