AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 23 00:55:28
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Text_change... mais comment faire??? [ Divers / General ] (Sator1)

jeudi 17 juillet 2008 à 07:14:38 | Text_change... mais comment faire???

Sator1
Voilà mon problème, simple; mais qui prend une alure de casse-tête...

j'ai 2 champs text... le fait est, que quand je change la valeur du champ text1 je veux changer la valeur du text2, et quand je veux rentrer des valeur dans le text2 la valeur du text1 change...

imaginons que je rentre 1 dans le text2, le text1 doit me mette le n° 1, quand je rentre une valeur comprise entre 1 et 100000 dans le text1 le text2 me mette toujours 1, mais quand je met 2 dans le text2 le text1 me mette 150000 par exemple mon problème en fait c'est que ça fait boucle... si vous m'avez suivi... exist-il un moyen pour désactiver un des "change" ???

je suis pas sûre de m'être bien exprimer... mais si jamais... vous n'avez pas tout compris je comprendrai... donc n'hésitez pas à poser des questions... merci pour votre attention

@+ Sator
jeudi 17 juillet 2008 à 07:50:08 | Re : Text_change... mais comment faire???

Renfield

Administrateur CodeS-SourceS
joues avec un Flag,
ou testes le controle actif, lors des modifs...

Private Sub Text1_Change
    If Me.ActiveControl Is Text1 Then
          Text2 .....
    End If
End Sub

Renfield
Admin CodeS-SourceS- MVP Visual Basic
jeudi 17 juillet 2008 à 10:01:38 | Re : Text_change... mais comment faire???

jmfmarques

Membre Club
Réponse acceptée !
Bonjour,

ou plus directement :

Private Sub Text1_Change()
 Text2.Text = ActiveControl.Text
End Sub

Private Sub Text2_Change()
 Text1.Text = ActiveControl.Text
End Sub

(si les modifications dans l'un ou l'autre sont le fait d'une intervention de l'utilisateur... sinon ==>> acrobatie nécessaire).
Tu aurais par contre intérêt à utiliser un groupe de contrôles indexés Text1(0) et Text1(1) et alors :

Private Sub Text1_Change(Index As Integer)
  ou = IIf(Index = 0, 1, 0)
  Text1(ou) = ActiveControl.Text
End Sub
jeudi 17 juillet 2008 à 10:04:55 | Re : Text_change... mais comment faire???

Renfield

Administrateur CodeS-SourceS
pas l'impression que ce soit tant une recopie, il y a l'air d'y avoir un test...

Si Text1 Actif Alors
  Text2.Text = 1+ Text1.Text \ 100000
Fin Si
jeudi 17 juillet 2008 à 14:51:00 | Re : Text_change... mais comment faire???

mortalino

Membre Club
salut,

Renfield :

pourquoi faire ce test => If Me.ActiveControl Is Text1 Then ?
Y'aurait-il une subtilité dans tout ça qui m'échapperait ?

Merci pour l'info

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
jeudi 17 juillet 2008 à 14:59:08 | Re : Text_change... mais comment faire???

Renfield

Administrateur CodeS-SourceS
l'idée (de ce que j'ai compris)

si on modifie Text1, Text2 est modifié en retour, et inversement (y'a un calcul lambda).

je modifie le contenu de Text1.
l'evenement Text1_Change se déclenche.
Le calcul lambda1 effectué, j'impacte le contenu de Text2

l'evenement Text2_Change se déclenche.
Le calcul lambda2 effectué, j'impacte le contenu de Text1

l'evenement Text1_Change se déclenche.
Le calcul lambda1 effectué, j'impacte le contenu de Text2

l'evenement Text2_Change se déclenche.
Le calcul lambda2 effectué, j'impacte le contenu de Text1

et ce petit jeu pourrait durer un moment.

l'idée, ici, est de tester le controle actif, lors du _Change.
Ca permet de savoir si c'est l'utilisateur ou le code qui est a l'origine du déclenchement de l'evenement.
jeudi 17 juillet 2008 à 15:27:28 | Re : Text_change... mais comment faire???

mortalino

Membre Club
Bien vu, je ne pensais pas aux modifications apportées par code..

Effectivement, ça peut durer un moment, ce jeu de 'jonglage' entre contrôles !
Merci pour ta précision

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
vendredi 18 juillet 2008 à 10:38:27 | Re : Text_change... mais comment faire???

Sator1
En fait je fait un prog de probabilité sur l'euromillion...

j'ai généré  toute les solutions des tirages chiffres. donc ce que je veux c'est que quand je note que je veux une solution comprise entre 1741769 et 1794128 (dans le text1)  il me dise que le premier nombre de la série est 15 (dans le text5)
mais en suposant que je mette 15 dans le text5 il faut qu'il m'indique que la première soluce est 1741769 dans le text1, voilà....

Dès que j'aurai testé vos soluces. je mettrai "réponse acceptée". Merci pour votre attention.
@+ Sator


Cette discussion est classé dans : text, valeur, text1, text2, change

Répondre à ce message

Sujets en rapport avec ce message

text box 2 [ par balsagoth ] salut j'ai un gros probleme que je ne comprends pas trop voila ma command If text1.Text > Text2.Text Thentour2joueur1.Caption = joueur1.CaptionIf text Trois derniers caractere a reperer [ par PetiteBille ] PetiteBille d'amooouur!Petite bille a eu probleme avec ce message alors petite bille recommence .Petite bille possede encore 2 text box l'un text1 l'a Les if... [ par SamuelCadieux ] Intro:voici une programmation qui consite, a changer une shape (shape1) de backcolor selon des données inscrites ds 3 zones de textes(Text1, Text2, Te mid [ par kalif ] salut j'essaye de fair un truc et j' y arrive pas si qq sais m'aider ...==>text1.text contien : "salut" & vbtab & "comment" & vbtab & "ca" & vbtab & Après la virgule [ par zelze ] J'ai un truc du genre :text4.text = text1.text * text2.text / text3.texttext4 affiche le calcul entre text1, text2 et text3 mais j'ai un ptobleme il n Comment enregistrer plusieurs "Text"(text1.text, text2.text ,...) dans un seul fichier et pouvoir le réouvrir ? [ par Olisoft ] Je cherche comment je peux enregistrer les données contenues dans plusieurs "Text" (text1.text, text2.text,...) dans 1 seul fichier et comment je pour Un petit PROBLÈME Avec Variable ! [ par ATH|500| ] Bon voici mon problème c'est que je veux mettre du texte et puis ma variable apres regarder !Option ExplicitDim nom1$Private Sub Text1_click()If Text1 Recherche le premier mot d'une phrase.... [ par petite bille ] Resalut à tous !Je réécris cette demande après que la première fut éffacéeen la validant.J'ai créé 3 textBox (Text1.text, Text2.Text, Text3.Text et un traducteur lettre par lettre [ par charleshenri ] voila jai un code qui est :Private Sub Command1_Click()If Text1.Text = "a" Then Text2 = "grd"If Text1.Text = "b" Then Text2 = "grfg"If Text1.Text = " pb de champ dans une requette [ par elodie1511 ] voilà, quand j'execute ma requete, il ne recupere pas les champs text1.text et text2.text:r = 1 rs.MoveFirst SQL = "insert into hommes(nomhomme,pren


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,203 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.