constitution d'un TRINOME

[gds35]

Mes AMIS (E) du Forum , Bonjour et Bon WE
Voila mon pb :
J'ai 3 textbox : NOM-PRENOM-TRIN
Après saisie du NOM & Prenom , je desire creer le TRIN compose des
2 Premieres lettres du prenom et la 1Ere lettre du NOM l'inscrure dans la text boxbox TRIN , verifier si dans ma base ( Feuille TRIN) existe ce TRIN n'est pas present et si est le cas de pouvoir le creer manuellement puis mettre a jour ma feuille de base. Apres des test sur differents fichiers , impossible d'y arriver , pouvez m'aider ???

D'avance Merci

Cordialement GDS35

 

[kjin]

Re : constitution d'un TRINOME

Bonjour,
La base oui mais où, quoi, comment
A défaut de ne pouvoir prendre le TRIN en marche, des précisions serait bienvenues (et ça tu le sais depuis longtemps)
A+
kjin

 

[JNP]

Re : constitution d'un TRINOME

Bonjour Gds35, Kjin ,
De base, un petit

TextBoxTrin = Left(TextBoxPrénom, 2) & Left(TextBoxNom, 1)

devrait faire l'affaire. Ensuite un test sur

Sheets("TRIN").Find(TextBoxTrin)

te permettra de vérifier s'il existe déjà.
Bonne journée

 

[gds35]

Re : constitution d'un TRINOME

Merci a tous les 2 de votre reponse pour l'approche de la solution a mon Probleme

Cordialement et Bon WE

GDS35

 

[gds35]

Re : constitution d'un TRINOME

Bonjour a tous les AMIS du forum,
Malgre vos precieux conseils impossible de mettre le trinome issu des 2 premieres textbox dans la troisieme . Je ne vois pas pourquoi , j'ai tenté . Value et .text ss succes.
Je joins un p'tit Fichier
Si qq peut m'aider MERCI

Bon DIMANCHE GDS35

 

[Jiheme]

Re : constitution d'un TRINOME

Bonjour le fil

Si j'ai tout compris, change ton code par celui ci :

Private Sub TextBoxprenom_Change()
TextBoxtrin = Left(TextBoxprenom, 2) & Left(TextBoxnom, 1)
End Sub

En effet si tu attends le changement de textboxtrin il ne peut rien se passer puisque c'est lui qui doit recevoir le résultat...

A+

 

[gds35]

Re : constitution d'un TRINOME

Salut Jihemme et merci de ton intervention rapide sur mon pb , ta salotion marche ss pb
entre temps j'avais trouvé une autre solution qui marche , c'est celle ci :
Private Sub BOXNOMRU_AfterUpdate()
'
' CENTRER VERTICALEMENT LE TEXTE SAISIE DANS LA TEXTBOX BOXNOMRU
'
BOXNOMRU.TextAlign = fmTextAlignCenter
BOXTRIRU = Left(BOXPRENOMRU.Value, 2) & Left(BOXNOMRU.Value, 1)
'
End Sub

Private Sub BOXPRENOMRU_AfterUpdate()
'
' CENTRER VERTICALEMENT LE TEXTE SAISIE DANS LA TEXTBOX BOXPRENOMRU
'
BOXPRENOMRU.TextAlign = fmTextAlignCenter
BOXTRIRU = Left(BOXPRENOMRU.Value, 2) & Left(BOXNOMRU.Value, 1)
'
End Sub

Elle fonctionne aussi , maintenant le m'attaque à le recherche de doublon afin que si 2 trinomes sont identique pouvoir en modifier 1 manuellement.

Merci encore de ton aide bon dimanche l'AMI A+
Cordialement GDS35