Discussion :

[hadjchaibahmed]

salut a tous
svp un coup de main a cette condition;;;;;;;;


textbox2=textbox1 si textbox1 commence par "vous vouleztransferer"
textbox3=textbox1 si textbox1 commence par "votre credit et de "
et merci davance

[XylonAkau]

___Ia ora na.
___A première vue, quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If InStr(TextBox1, "vous vouleztransferer") = 1 Then
   TextBox2 = TextBox1
ElseIf InStr(TextBox1, "votre credit et de") = 1 Then
   TextBox3 = TextBox1
End If

___Mais cela ne fonctionnera pas si la première zone de texte commence par "Vous voulez transférer" ou "Votre crédit est de" ou même " votre credit et de".
___Cela étant, si la première zone de texte ne peut contenir que l'une des deux formules précédentes, on peut envisager

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If InStr(1, TextBox1, "vous", vbTextCompare) > 0 Then
   TextBox2 = TextBox1
ElseIf InStr(1, TextBox1, "votre", vbTextCompare) > 0 Then
   TextBox3 = TextBox1
End If

___Reste aussi à déterminer dans quelle procédure ces quelques lignes peuvent être placées (TextBox1_Change, peut-être).
___Bon courage pour la suite de votre projet.