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
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
non c’est un fichier comptable
I_MKN_CASUAL_ SEPTEMBER-1_2023_PAYROLL-RK_FINAL FILE-updt.xlsm (1,8 Mo)
bonjour
a teste
salutations
I_MKN_CASUAL_ SEPTEMBER-1_2023_PAYROLL-RK_FINAL FILE-updt (1).xlsm (1,9 Mo)
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.