mertronic
Messages postés28Date d'inscriptionmardi 18 janvier 2005StatutMembreDernière intervention 9 août 2015
-
14 déc. 2005 à 11:37
mertronic
Messages postés28Date d'inscriptionmardi 18 janvier 2005StatutMembreDernière intervention 9 août 2015
-
14 déc. 2005 à 12:00
heuuu bijour tt le monde
Voila, suis po une pointure en vb et la j'sai pas comment faire.
je souhaite appeler une function et transmettre dans les paramètres d'appel de cette function le nom d'une textbox, je vous écrit un ch'tit bout de prog qui plante pour mieux comprendre ce que je recherche.
une feuille avec text1(0) à text1(5) et text2(0) à text2(5)
la validation des valeurs saisies par l'utilisateur est faite lors de l'appuie sur "enregistrer"
private sub Enregistrer_click()
'Dim B as textbox
for n=1 to 5
if val(text1(n)) < val(text1(n-1)) then
' Set B = Text1
' Attention B,n
Attention text1,n
If Attention = True then exit sub
end if
if val(text2(n)) < val(text2(n-1)) then
' Set B = text2
' Attention B , n
Attention text2,n
If Attention = True then exit sub
end if
next
end sub
Private function Attention (B as TextBox, I as integer) as boolean
Inp = msgbox ("Problème à " & B(I) & " confirmez Y/N")
if Inp=vbno then Attention = false else Attention = True
end function
Bon vous moquez pas, c pas drôle!!! lol
j'ai essayé avec les 2 solutions, celle en vert et l'autre mais rien ne marche. j'ai regardé dans mes book sur vb mais rien vu sur ce sujet...
Encore une fois merci de votre aide.
A voir également:
Transmition d'un textbox sur l'appel d'une function
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 14 déc. 2005 à 11:48
Salut,
La pochaine fois, evite d'écrire en sms stp
private sub Enregistrer_click()
for n=1 to 5
if val(text1(n)) < val(text1(n-1)) then
If Attention(Text1(n)) then exit sub
if val(text2(n)) < val(text2(n-1)) then
if Attention(Text2(n)) then exit sub
end if
next
end sub
Private function Attention (B as TextBox) as boolean
Inp = msgbox ("Problème à " & B.Text & " confirmez Y/N")
if Inp=vbno then Attention = false else Attention = True
end function
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
domsig
Messages postés125Date d'inscriptionlundi 6 septembre 2004StatutMembreDernière intervention11 mai 2010 14 déc. 2005 à 11:49
bah non on rigole pô.
Ta fonction Attention comporte deux paramètres ; quand tu l'appelles tu dois les lui passer. Donc dans le click sur enregistrer, est-ce que Attention(text1,n) ne fonctionne pas mieux ? dans ton code je ne vois pas les parenthèses...