G
gerome1980
Guest
Bonjour tout le monde,
voilà j'ai un problème avec select case dans ma fonction ci-dessous.
L'argument sol est soit u, soit t. Est-il possible de faire un select case avec ce type d'argument?
Merci de votre attention,
Jerome
voilà j'ai un problème avec select case dans ma fonction ci-dessous.
L'argument sol est soit u, soit t. Est-il possible de faire un select case avec ce type d'argument?
Code:
Function sollic(sol As Variant, chargt, abscisse As Double)
Application.Volatile
Dim Cell As Range
longueur = Range('Longueur')
Select Case sol
Case 'u'
trs = 'u'
Case 't'
u = 0
For j = 1 To 10000
If Sheets('LISTING').Range('A' & j).Value = longueur + 1000000 And Sheets('LISTING').Range('B' & j).Value = abscisse Then
u = u + 1
Set Cell = Sheets('LISTING').Range('C' & j & ':D' & j)
End If
If u = chargt Then GoTo label1
Next j
label1:
trs = MaxRel(Cell)
End Select
End Function
Merci de votre attention,
Jerome