Trouver la valeur max de plusieurs textbox

[Laurent313131]

Bonjour le Forum,

J'ai crée un multipage avec 3 textbox. Lorsque je clique sur le bouton valider, je voudrais que le code correspondant à ce bouton me trouve la textbox qui a le plus grand nombre et qu'il m'affîche cette valeur dans la première cellule vide de mon tableau.

J'ai essayé avec la fonction Application Max mais j'ai un message d'erreur :

Private Sub CommandButton27_Click()
Dim dl1 As Integer
Dim val1

dl1 = Cells(20, 30).End(xlUp).Row + 1

val1 = Application.Max(CDbl(Replace(TextBox60.Value, ".", ",")), CDbl(Replace(TextBox69.Value, ".", ",")), CDbl(Replace(TextBox70.Value, ".", ",")))

Cells(dl1, 30).Value = val1

End sub

Je joins le fichier excel au cas où ...

Merci.

 

[skoobi]

Re : Trouver la valeur max de plusieurs textbox

Bonjour,

Les références vers les textbox sont fausses:

val1 = Application.Max(CDbl(Replace(TextBox60.Value, ".", ",")), CDbl(Replace(TextBox61.Value, ".", ",")), CDbl(Replace(TextBox62.Value, ".", ",")))

 

[Laurent313131]

Re : Trouver la valeur max de plusieurs textbox

Merci skoobi !

Quel boulet je fais 😀😀😀