Salut tout le monde!
Voilà j'ai fait une fonction en Vba qui permet d'interpolé des valeurs d'un tableau.Ca fonctionne nickel, mais je voudrais qu'elle utillise la feuille "hydro" pour interpolé les valeurs du tableau qui est contenu dedans.
Et lorsque je suis sous une autre feuille, ma fonction prend les valeurs de cette autre feuille.
Je voudrais pouvoir utiliser cette fonction dans d'autre feuille mais qu'elle se réfère toujours à la feuille "hydro".Voilà mon prog:
Function displ(draft As Double) As Double 'donne le déplaçement EXTREM en fonction du draft EXTREM'
Dim i As Integer
With worksheets("HYDRO")
For i = 2 To 100
If cells(i + 1, 1) > draft Then
displ = cells(i, 3) + ((cells(i + 1, 3) - cells(i, 3)) / (cells(i + 1, 1) - cells(i, 1)) * (draft - cells(i, 1)))
i = 200
End If
Next
End With
End Function
Comme vous pouvez le voir j'ai essayer de placer with worksheets("hydro"), mais apparement aucune influence...Je suis ultra novice sous vba.
Merci d'avance pour vos réponse et bonne journée.
Sylvain
Voilà j'ai fait une fonction en Vba qui permet d'interpolé des valeurs d'un tableau.Ca fonctionne nickel, mais je voudrais qu'elle utillise la feuille "hydro" pour interpolé les valeurs du tableau qui est contenu dedans.
Et lorsque je suis sous une autre feuille, ma fonction prend les valeurs de cette autre feuille.
Je voudrais pouvoir utiliser cette fonction dans d'autre feuille mais qu'elle se réfère toujours à la feuille "hydro".Voilà mon prog:
Function displ(draft As Double) As Double 'donne le déplaçement EXTREM en fonction du draft EXTREM'
Dim i As Integer
With worksheets("HYDRO")
For i = 2 To 100
If cells(i + 1, 1) > draft Then
displ = cells(i, 3) + ((cells(i + 1, 3) - cells(i, 3)) / (cells(i + 1, 1) - cells(i, 1)) * (draft - cells(i, 1)))
i = 200
End If
Next
End With
End Function
Comme vous pouvez le voir j'ai essayer de placer with worksheets("hydro"), mais apparement aucune influence...Je suis ultra novice sous vba.
Merci d'avance pour vos réponse et bonne journée.
Sylvain