Public Function correspondance(ligne, col As Integer)
'declaration des variables
Dim per_col, sign, proj As Integer
'attributions des numeros de colonnes variables
With Worksheets("Feuil3")
per_col = .Cells(4, 5).Value
sign = .Cells(5, 5)
proj = .Cells(6, 5)
End With
With Worksheets("Feuil1")
correspondance = (.Cells(ligne, proj) - .Cells(ligne, sign)) * .Cells(ligne, per_col)
End With
End Function
je me disais que par fonction que je ne ferais qu'adapter à la ligne et à la colonne, le fichier serai moins lours
fait tout aussi bien que ta fonction personalisée VBA!=(G$15-$D16)*$E16
je n'ai po encore pu inserer les for et if car je me demande si elles sont prises en compte par les fonctions.