Re: Localiser les param d'une fonction
<HTML>Bonjour,
voici une solution très très bâtarde je trouve.
à retenir surtout : la boucle sur les cellules contenant les formules
attention, j'ai mis aucune gestion d'erreur là-dedans, et cela suppose que les formules sur la feuille de calcul contiennent uniquement un numéro, ce numéro ne doit pas être donné par un calcul ou une autre référence.
pour envisager de pouvoir remplacer une référence, il faudrait des variables string au lieu des variables integer
Function test(anccompte As Integer, nvcompte As Integer)
For Each cl In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If InStr(1, cl.Formula, "LibélléCompte") > 0 Then cl.Replace What:=anccompte, Replacement:=nvcompte ', SearchOrder:=xlByColumns, MatchCase:=True
If InStr(1, cl.Formula, "SoldeCompte") > 0 Then cl.Replace What:="," & anccompte & ")", Replacement:="," & nvcompte & ")" ', SearchOrder:=xlByColumns, MatchCase:=True
Next cl
ActiveSheet.Calculate
End Function
Sub kkk()
t = test(1, 5)
End Sub
pardonnez moi si vous trouvez ça trop bâtard
bye
stephane</HTML>
|