Discussion :

[jb1975]

Bonjour

Je voudrai svp pouvoir concaténer en VBA la première lettre du nom et du prénom ainsi que l'année de naissance qui est représenté xx/xx/xxxx

Code :

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

1
2
3
4
Textnom = Cells(NumLigne, 1)
Textprenom = Cells(NumLigne, 2)
Textddn = Cells(NumLigne, 4)
Textidentifiant = Cells(NumLigne, 20)

Avec cela il ira en Identifiant pour la personne merci infiniment pour votre aide

[Thautheme]

Bonjour Jb, bonjour le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
Dim ID As String
Textnom = Cells(NumLigne, 1)
Textprenom = Cells(NumLigne, 2)
Textddn = Cells(NumLigne, 4)
ID = Left(Textnom.Value, 1) & Left(Textprenom.Value, 1) & Textddn
Textidentifiant = ID
'ou Cells(NumLigne, 20)=ID

[jb1975]

Bonjour Thautheme

Merci beaucoup pour votre réponse.

Je viens de tester, mais rien ne se passe. Pouvez-vous regarder svp je vous laisse le fichier merci beaucoup Excel 2019.xlsm

Login Jamal
mdp 123


Limite lui demander de mettre la première lettre du prénom, du nom et la date de naissance en Ligne 20
Textnom = Cells(NumLigne, 1)
Textprenom = Cells(NumLigne, 2)
Textddn = Cells(NumLigne, 4)
Textidentifiant = Cells(NumLigne, 20)

merci

[Thautheme]

Re,

Si tu veux concaténer la procédure Change de la TextBox Texidentifiant n'a pas lieu d'être. En pièce jointe ton fichier corrigé...

[jb1975]

Re,

Si tu veux concaténer la procédure Change de la TextBox Texidentifiant n'a pas lieu d'être. En pièce jointe ton fichier corrigé...

Un grand merci pour ton professionnalisme.


C'est possible de le placer plus sur sur l'ajout de nouvelle personne au lieu de le placer sur l'Userform modification ?