lancer une action si textbox informer

Fred0o

XLDnaute Barbatruc

• 21 Mars 2010

• #2

Re : lancer une action si textbox informer

Bonsoir Creolia,

Tu peux essayer un code de ce genre :

Code:

Sub TextBoxPrenom_Change()
    Me.TextBoxNom.Value = Me.TextBoxNom.Value & " " & Me.TextBoxPrenom.value
End Sub

Ceci te mettra à jour le contenu de la textBox Nom au fur et à mesure de la saisie dans TextBox Prénom.

A+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Mars 2010

• #3

Re : lancer une action si textbox informer

Bonsoir le fil 🙂,
Techniquement, c'est fort déconseillé 😛...
Admettons TextBoxNom = "Toto".
Saisie dans TextBoxPrénom "M" :
TextBoxNom = "Toto M"
Jusque là, ça va, mais après :
Saisie dans TextBoxPrénom "a" :
TextBoxNom = "Toto M Ma"
Saisie dans TextBoxPrénom "r" :
TextBoxNom = "Toto M Ma Mar",
Etc. 😀
Eventuellement avec

Code:

Private Sub TextBoxPrénom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBoxNom = TextBoxNom & " " & TextBoxPrénom
End Sub

à condition d'effacer le prénom dans le nom en cas de changement avec

Code:

Private Sub TextBoxPrénom_Enter()
If TextBoxPrénom <> "" Then
TextBoxNom = Left(TextBoxNom, Len(TextBoxNom) - Len(TextBoxPrénom) - 1)
TextBoxPrénom = ""
End If
End Sub

Bonne soirée 😎

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 22 Mars 2010

• #4

Re : lancer une action si textbox informer

je me suis fais mal comprendre

je m'explique mon but final est d'afficher dans image une photos
cette derniere apparais si dans ma combobox2 s'afiche ex. Toto Dupont

pour pouvoir mettre le nom et prénom dans une combobox j'utilise

ce code

Code:

ComboBox2 = TextBoxNom.Value + " " + TextBoxPrenom

le probleme j'aimerais que quand la textbox nom et prenom soit renseigner automatiquement ce code s'aplique

Code:

ComboBox2 = TextBoxNom.Value + " " + TextBoxPrenom

pour afficher ma photos dans mon usf sans utiliser de bouton


à l'heure actuel j'utilise un clic sur la photos pour que ce code

Code:

ComboBox2 = TextBoxNom.Value + " " + TextBoxPrenom

s'affiche

mais mois je veut ce code s'applique automatiquement quand la textbox est informer

merci pour votre aide

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Mars 2010

• #5

Re : lancer une action si textbox informer

Re 🙂,
Donc les événements proposés devraient fonctionner sans problème (avec une préférence pour l'Exit, car Toto Dupont sera au complet. Il te suffit de déclencher l'appel de ta photo dans la même procédure.
A + 😎

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 24 Mars 2010

• #6

Re : lancer une action si textbox informer

bonjour JPN j'ai tester le nom apparais pas au complet je comprend pas pourquoi je n'ai que le nom et pas le p renom

je continue aà chercher à bientot

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 24 Mars 2010

• #7

Re : lancer une action si textbox informer

Re 🙂,
Un petit test joint.
A + 😎

 

Pièces jointes

• USF.xls

  31.5 KB · Affichages: 57
• USF.xls

  31.5 KB · Affichages: 59
• USF.xls

  31.5 KB · Affichages: 57

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 25 Mars 2010

• #8

Re : lancer une action si textbox informer

Merci beuacoup mais malheureusement se suis obliger de clicker sur la combobox pour que la copie se fasse il est pas automatique mais bon à default de mieux je le garde merci de ton aide

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 25 Mars 2010

• #9

Re : lancer une action si textbox informer

Re 🙂,
Il est automatique dès que tu quittes la ListBox2 (et non quand tu cliques le ComboBox1). C'est la démarche qui me parrait la plus logique, avec un USF comprenant de nombreux champs, que l'action ne se passe que lorsqu'on passe au champs suivant, mais si tu souhaites que chaque lettre apparaisse après chaque saisie, maintenant que ta concaténation se situe bien dans une troisième boîte, tu peux utiliser le code proposé par Fred0o tout au début. Dans l'exemple que je t'ai fourni, tu remplaces

Code:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1 = TextBox1 & " " & TextBox2
End Sub

par

Code:

Private Sub TextBox2_Change()
ComboBox1 = TextBox1 & " " & TextBox2
End Sub

Bon courage 😎

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 25 Mars 2010

• #10

Re : lancer une action si textbox informer

Re bonjour merci je tenterais cela et je te tiens au couraant bonne journée

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 26 Mars 2010

• #11

Re : lancer une action si textbox informer

Bonjour et merci pour votre aide solution trouver par JEAN MARCEL

citation:

si ta texbox est documentée par une combo , il y a surement une macro qui le fait , il te suffit donc d'insérer ta nouvelle macro dans celle qui qui documente la text box.

fin citation:


merci à tous et à bientot

 

Vote positif 0 Vote négatif