Extraction De Chaine En Vba

[inviteb2917e5f]

Bonjour , a tout le Forum, pardon de ma maladresse, je suis "bisu" sur le forum, voila mon pb en VBA
J'ai crée un USF avec 3 textbox : une ou je saisie le nom ex : DUPONT la deuxieme ou je saisie le Prenom ex : Valerie et je souhaite récuperer dans la troisieme VDT. Impossible , d'y parvenir Merci de votre aide.
Quelqu'un peut il me fournir le code.
Merci GDS35
-----

[mécano41]

Bonjour,

Pourrais-tu mettre un exemple de ce que tu as fait (en EXCEL ou WORD sous .zip) parce que là, pour te suivre...?

Cordialement

[inviteb2917e5f]

OK mon AMI , je te joins un pt'it fichier
A+ et Merci GDS35 (GéGé)

[inviteb2917e5f]

Je ne sais si le fichier est recu etant tout neuf sur le forum une erreur est tj possible . Je revois a nx . A+ Les AMIS
GéGé

[A voir en vidéo sur Futura]

[mécano41]

Ton fichier est reçu mais tant qu'il est marqué "en attente de validation", il n'est pas accessible.

[JPL]

Il est validé (le temps qu'un modérateur soit passé par là).

[mécano41]

Bonsoir,

Je n'avais jamais fait ça. C'est drôle, ça marche!

(j'ai mis le trigramme en majuscules)

Cordialement

[inviteb2917e5f]

Bsr et bien merci le Mecano , t'es un As !!!!!
Bonne soirée , je vais de détendre en regardant les grosses têtes , demain il fera jour ..... A+ GéGé

[polo974]

Afin d'éviter la duplication du code, il est possible de faire un truc du genre:

Private Sub TNOM_Modif() 'ce qui doit être modifié
    TNOM.Value = UCase(Left(SURNAME.Value, 1) + Left(NOM.Value, 1) + Right(NOM.Value, 1))
End Sub

Private Sub NOM_Change() 'quand le nom change
    TNOM_Modif
End Sub

Private Sub SURNAME_Change() 'et quand le prénom change
    TNOM_Modif
End Sub

Comme ça, si on change d'avis sur la composition du trinome, il suffit de faire une seule modif dans le code et surtout ça évite d'oublier l'autre...

Par ailleurs, si le résultat dans TNOM ne doit pas pouvoir être modifié directement, il vaut mieux mettre dans les propriétés de TNOM Locked à True (et pour bien faire comprendre qu'il n'y a pas a y toucher mettre la couleur de fond à la valeur "sommet de bouton").

[inviteb2917e5f]

Bon Dimanche Pascal le forum . Merci a tous de vos réponses elles vont me faire progresser a grand pas . Je renvoi un p'tit a faire ds un USF ds lequel se trouve une zone label . Encore Merci A+ GDS35