Separer nom des prenoms en VBA
Bonjour le forum,
voila le problème : je part d'une cellule d'un tableau avec le NOM et les Prénoms et je les renvois dans une userform avec deux textbox (5 & 6 en l'occurrence)
exemple BERTRAN Alain Gérald === dans TB5 :BRETRAN == dans TB6 Alain Gérald
pour le renvoi du nom j'utile la fonction Instr , soit :
Dim cellValue As String
cellValue = Range("F" & nbl) '
Me.TextBox5.Value = Left(cellValue, InStr(1, cellValue, " ") - 1)
ce qui fonctionne très bien.
par contre pour les prénom je voulais, je voulais rajouter l'instruction "vbBinaryCompare -1 " sensible aux MAJUSCULE
mais je bute.
Si quelqu'un peu m'aider, merci d'avance
Bonsoir ccia83
Sujet maintes fois abordés
Vous avez ce sujet tout récent par exemple :
https://forum.excel-pratique.com/excel/separer-des-prenoms-et-noms-colles-186756
Ou celui-ci
https://forum.excel-pratique.com/excel/separation-prenom-prenom-compose-et-nom-nom-compose-175391#p1...
A+
Bonsoir BrunoM45
j'avais déjà trouvé la première solution, mais ne me convenais pas.
par contre je n'avais pas vu la deuxième qui m'apporte des possibilités très intéressantes.
je vais étudier ces possibilités et reviendrai vers le forum
merci
Bonsoir
Après visualisation de la deuxième solutions,
le but est atteint, mais par un moyen contourné, je m'explique :
d'une cellule avec le nom et prénoms je renvoi en séparant sur deux autres cellules du même tableau le nom et les prénoms,
puis je renvoi vers les textbox de la userform.
donc ma demande est de trouver la macro qui me renvoi directement et uniquement les prénoms dans une textbox...
je pensai :
Dim cellValue As String
cellValue = Range("F" & nbl) '
Me.TextBox5.Value = Left(cellValue, InStr(1, cellValue, " ") - 1) ' --- pour les noms FONCTIONNE BIEN
Me.TextBox6.Value = Right(cellValue, InStr(1, cellValue, "a-z ", vbBinaryCompare) - 2) ' pour les prénoms
mais ma deuxième commande ne fonctionne pas !!
Merci pour vos solutions
Bonjour BrunoM45
oui effectivement avec un fichier c'est plus parlant
il s'agit d'un fichier ou j'index ma généalogie
initialement je saisissait manuellement, en enlevant la protection à chaque fois' le premier but était de faire des recherches.
j'ai rajouter un userform pour visualiser, saisir ou modifier
le fichier n'est pas fini, je viendrai vers vous pour certainement d'autres problèmes, mais heureusement votre base de données du forum est bien rempli.
LE PB : dans les macros du userform, dans initialisation voir les commandes qui renvoies les données vers les textbox.
vous pourrez noter que je viens d'appliquer une des solution trouvé dans le forum, mais si il y a mieux.
Merci d'avance et bonne journée
Bonjour ccia83
Petite remarque, il faut penser à définir ses variables quand on code, c'est mieux
Mettre "Option Explicit" en entête de module ou d'USF
Donc pour le prénom, pour moi c'est "simple"
Dans l'USF évènement Activate
Dim sNom As String
' Récupérer NOM et Prénom
cellValue = Range("F" & nbl)
' Prendre juste le nom
sNom = Left(cellValue, InStr(1, cellValue, " ") - 1)
Me.TextBox5.Value = sNom
' En déduire le prénom
TextBox6 = Mid(cellValue, Len(sNom) + 2, 255)A voir si cela vous convient, si c'est la cas n'oubliez pas de mettre le sujet comme résolu
A+
cette commande fonctionne extrêmement bien.
c'est celle que je vais utiliser
Merci beaucoup