Correction de code vba

[Richard_Kimou]

bonjour j’ai ecris ce VBA sur GOAL SEEK pour une plage mais en fin de traitement ca sort un code d’erreur debug
comment faire pour annuler cette erreur
je rappelle que le VBA fonctionne
voici:
Sub RC()
Dim Netapayer As Range
For Each Netapayer In ActiveSheet.Range(« Au2:Au90 »)
Netreel = ActiveSheet.Range(« Av » & Netapayer.Row)
TauxReel = ActiveSheet.Range(« Q » & Netapayer.Row)
x = Range(Netapayer.Address).GoalSeek(Goal:=Netreel, ChangingCell:=ActiveSheet.Range(« Q » & Netapayer.Row))
Next

[Cow18]

sans fichier, c’est toujours un pari

Sub RC()
     Dim Netapayer As Range
     With ActiveSheet
          For Each Netapayer In .Range("AU2:AU90").Cells
               Set Netreel = .Range("AV" & Netapayer.Row)
               Set Tauxreel = .Range("Q" & Netapayer.Row)
               x = Netapayer.GoalSeek(Goal:=Netreel, ChangingCell:=Tauxreel)
          Next
     End With
End Sub

[Richard_Kimou]

non c’est un fichier comptable
I_MKN_CASUAL_ SEPTEMBER-1_2023_PAYROLL-RK_FINAL FILE-updt.xlsm (1,8 Mo)

[Johnny]

bonjour

a teste

salutations

I_MKN_CASUAL_ SEPTEMBER-1_2023_PAYROLL-RK_FINAL FILE-updt (1).xlsm (1,9 Mo)