Bonsoir, je suis de retour.
En ajoutant ou en modifiant les lignes en gras ci-dessous.
Tout dépend de ce que tu veux comme annotation, j'ai pas tous contrôlé...
Public faj, finit
Sub ajouter()
chemin = ThisWorkbook.Path
Set finit = ThisWorkbook.Sheets(1)
'Set aj = Workbooks("ajouter.xlsx")
Set aj = Workbooks.Open(chemin & "\ajouter.xlsx")
Set faj = aj.Sheets(1)
n = 0
Set debinit = finit.Cells(2, 3)
While debinit.Offset(n, 0) <> ""
res = cherche(debinit.Offset(n, 0), "Vérifier ajouter")
If res <> False Then
debinit.Offset(n, 5) = debinit.Offset(n, 5).Value + res
End If
n = n + 1
Wend
aj.Close savechanges:=True
End Sub
Function cherche(valeur, annotation)
Set debaj = faj.Cells(2, 1)
While debaj.Offset(n, 0) <> ""
If ( _
debaj.Offset(n, 0) = valeur.Offset(0, 0) And _
debaj.Offset(n, 1) = valeur.Offset(0, 1) And _
debaj.Offset(n, 2) = valeur.Offset(0, 2) And _
debaj.Offset(n, 3) = valeur.Offset(0, 3) And _
debaj.Offset(n, 4) = valeur.Offset(0, 4) _
) Then
Set cherche = debaj.Offset(n, 5)
cherche.Offset(0, 1) =annotation
Exit Function
End If
n = n + 1
Wend
End Function
Sub rectifier()
chemin = ThisWorkbook.Path
Set finit = ThisWorkbook.Sheets(1)
'Set aj = Workbooks("a rectifier.xlsx")
Set aj = Workbooks.Open(chemin & "\a rectifier.xlsx")
Set faj = aj.Sheets(1)
n = 0
Set debinit = finit.Cells(2, 3)
While debinit.Offset(n, 0) <> ""
res = cherche(debinit.Offset(n, 0), "Vérifier rectifier")
If res <> False Then debinit.Offset(n, 5) = res
n = n + 1
Wend
aj.Close
End Sub