Function VBA qui ne fonctionne pas

[baptbapt]

=SI(R6>M6;SI(K6>0;1+M5;M5);M6) formule excel

Function NbMax(R As Range)
If R.Value > M.Value Then
If K.Value > 0 Then
NbMax = Range("M" & R.Row).Offset(-1, 0).Value + 1
Else
NbMax = Range("M" & R.Row).Offset(-1, 0).Value
End If
Else
NbMax = Range("M" & AE.Row).Value
End If
End Function

Sa devrais etre sa, si j'ai bien compris, mais pour cette fonction sa ne marche pas.

 

[porcinet82]

Re : Function VBA qui ne fonctionne pas

Salut baptbapt,

Heu... qu'est ce qui ne fonctionne pas au juste?
Est-ce que tu peux nous filer un peu plus d'info parce que là c'est un peu vague.

@+

 

[baptbapt]

Re : Function VBA qui ne fonctionne pas

j'ai un joli message #valeur qui se met dans la cellule.

La fonction colle pourtant a l'équation excel, c'est sa que je comprend pas.

 

[Bernard_XLD]

Re : Function VBA qui ne fonctionne pas

Bonjour

Vba n'est pas devin, tu ne définis que R, quid de m,k et ae
modifie le début de ton code et cela ira mieux

Cordialement, A+

Function NbMax(R As Range)
Dim K As Range, M As Range, AE As Range
Set M = R.Offset(0, -5)
Set K = R.Offset(0, -7)
Set AE = R.Offset(0, 13)

 

[baptbapt]

Re : Function VBA qui ne fonctionne pas

=SI(R6>M6;SI(K6>0;1+M5;M5);M6) formule excel

Function NbMax(R As Range)
If R.Value > M.Value Then
If K.Value > 0 Then
NbMax = Range("M" & K.Row).Offset(-1, 0).Value + 1
Else
NbMax = Range("M" & K.Row).Offset(-1, 0).Value
End If
Else
NbMax = Range("M" & R.Row).Value
End If
End Function

il n'y a pas de AE, simple erreur lors du recopiage.
Mais voila, j'ai toujours une erreur.
Dois-je ajouter une fonction a l'intérieur de ma fonction

afin de faire
function
if
___function
_____if
_____else
_____end if
___end function
else
end if
end function

 

[porcinet82]

Re : Function VBA qui ne fonctionne pas

re,

Pour baptbapt, je pense pas que tu ais besoin d'une autre fonction.

Pour Yeahou, je ne suis pas un spécialiste des fontion, mais il me semble que R est déclaré mais n'st pas définit, à moins qu'il soit définit dans la macro appelant la fonction.
Donc si ce n'est pas le cas, est-ce qu'il ne faut rajouter un truc du genre:
Set R = Cells(6, 18)

@+

 

[baptbapt]

Re : Function VBA qui ne fonctionne pas

=SI(AE5>0;AB5+M4;M5)

Function ValeurMax(AE As Range)
If AE.Value > 0 Then
ValeurMax = Range("AB" & AE.Row).Value + Range("M" & AE.Row).Offset(-1, 0).Value
Else
ValeurMax = Range("M" & AE.Row)
End If
End Function

Voila la précedente fonction que j'ai réaliser (enfin plutot Jeanpierre, merci encore)

Je suis parti pour cette nouvelle fonction sur le meme principe, mais sa ne marche pas du tout.
J'ai essayeé en modifiant

NbMax = Range("M" & K.Row).Offset(-1, 0).Value + 1

a la place
NbMax = Range("M" & K.Row).Offset(-1, 0).Value
NbMax=NbMax+1

mais sa n'apporte rien de plus

Je revien donc a mon point de départ