Bonjour,

J'ai rencontré une erreur de compilation lors du lancement de mon macro ci-dessous:

1. Celui_la marche correctement:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 'count target date passed mitigation actions
 
    If (s1.Range("H8").Offset(j).Value <= s1.Range("B1").Value) And s1.Range("I8").Offset(j) <> "complete" Then
            nbpassed_all = nbpassed_all + 1
    End If
     s.Range("d28").Value = nbpassed_all
2.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
'count target date passed mitigation actions from previous year
   Dim nb_pass_late As Integer
   nb_pass_late = 0
Ici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
s1.Range("I8").Offset(j)

cette partie affiche une erreur de compilation alors que j'ai utilisé exactement le meme code en haut. je voulais juste avoir le chiffre pour les actions dont l'annee de date est different que Year.s1.Range("B1")
J'ignore pourquoi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 If (s1.Range("H8").Offset(j).Value <= s1.Range("B1").Value) _
        And s1.Range("I8").Offset(j) <> "complete" _
            And Year.s1.Range("B8").Offset(j) <> Year.s1.Range("B1") Then
 
             nb_pass_late = nb_pass_late + 1
        End If
 
       s.Range("e28").Value = nb_pass_late


Si vous pourriez me dire où est mon erreur, ça pourrais bien m'aider.

Merci beaucoup