Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel EditBoxes(suite)

EditBoxes(suite)

1 réponse
Avatar
EXCNRE
Bonjour,

Comment passer un TextBox en argument dans une fonction, S.V.P. ?

Merci d'avance

ex de ce que je cherche à faire

Function Valeur_Ok (Zone as TextBox) as Boolean
If Zone.value <> 5 ...........
End Function

Sub TextBox1_Change()
Ret =Valeur (TextBox1)
End Sub

Sub TextBox2_Change()
Ret =Valeur (TextBox2)
End Sub

etc...

Merci d'avance.

EX-CNRE
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
sub parametres()
a = textbox1.value
valeurok(a)
end sub

function valeurok(parametre)
valeurok = 36 * parametre
end function



"EXCNRE" a écrit dans le message de
news:bte6gr$ldg$
Bonjour,

Comment passer un TextBox en argument dans une fonction, S.V.P. ?

Merci d'avance

ex de ce que je cherche à faire

Function Valeur_Ok (Zone as TextBox) as Boolean
If Zone.value <> 5 ...........
End Function

Sub TextBox1_Change()
Ret =Valeur (TextBox1)
End Sub

Sub TextBox2_Change()
Ret =Valeur (TextBox2)
End Sub

etc...

Merci d'avance.

EX-CNRE