cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 18 juil. 2003 à 11:09
Bonjour
Il faut tester les changements sur les 2 TextBoxes :
En supposant qu'au départ Label1 affiche "Dodo"
Private Sub Text1_Change()If Val(Text1) > Val(Text2) - 1 And Val(Text1) < Val(Text2) + 1 Then Label1.Caption "Coucou" Else Label1.Caption "Dodo"
End Sub
Private Sub Text2_Change()If Val(Text1) > Val(Text2) - 1 And Val(Text1) < Val(Text2) + 1 Then Label1.Caption "Coucou" Else Label1.Caption "Dodo"
End Sub
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 18 juil. 2003 à 11:16
Merci les gars !
En fait je ne l'ai pas utilisé dans le programme que fais en ce moment, mais je suis sur que ca va me servir plus tard...
Merci bcp !
Voila !