cerhu > microsoft.* > microsoft.excel

Jean (21/02/2006, 20h01)
Bonjour à tous,

j'ai écris le petit bout de code ci-dessous pour extraire le nom et le
prénom d'une chaine de caractère.
je ne sais pas comment je demande à la fonction de retourner les deux
éléments "nom" et "prenom" pour pouvoir les afficher dans test1

Function test(contact As String)
Position = InStr(1, contact)
prenom = Left(texte, Position)
nom = Right(texte, (Len(contact) - Position))
End Function

Sub test1()
tab_contact = test("jean vasseur")
MsgBox toto(1)
End Sub

Merci d'avance pour votre aide

Jean
JpPradier (21/02/2006, 20h44)
Bonjour jean

En modifiant ta macro comme suit, ca devrait aller :

Function test(contact As String)
Dim Tout(2)
Position = InStr(1, contact, " ")
prenom = Left(contact, Position - 1)
nom = Right(contact, (Len(contact) - Position))
Tout(0) = prenom
Tout(1) = nom
test = Tout
End Function

Sub test1()
tab_contact = test("jean vasseur")

MsgBox tab_contact(0) & " " & tab_contact(1)
End Sub

j-p
Jean (21/02/2006, 21h05)
Merci beaucoup

Jean

"JpPradier" <jp.pradier.JVeuxPasDeSpam> a écrit dans le message
de news:2916
[..]
JB (21/02/2006, 22h10)
Bonjour,

La fonction de JP est une fonction matricielle.Tu peux:

[..]

-Sélectionner 2 cellules horizontales
-Frapper =Test(A1)
-Valider avec Maj+CTRL+Entrée

Le nom et le prénom seront chacun dans une cellule

Avec la fonction ci dessous, tu sélectionne 2 cellules verticalement.

Function test(contact As String)
Dim Tout(1 To 2)
P = InStr(contact, " ")
Tout(1) = Left(contact, P - 1)
Tout(2) = Mid(contact, P + 1)
test = Tout
End Function

Function test2(contact As String)
Dim Tout(1 To 2)
P = InStr(contact, " ")
Tout(1) = Left(contact, P - 1)
Tout(2) = Mid(contact, P + 1)
test2 = Application.Transpose(Tout)
End Function

Cordialement JB
AV (22/02/2006, 10h10)
Juste comme ça....
Connais-tu la fonctionnalité
"Données > Convertir.... " ?

PS : Pour extraire un Nom et Prénom d'un chaîne il n'existe AUCUNE méthode
totalement fiable !
Pour une fiabilité sans faille, il faudrait faire référence à une liste,
totalement exhaustive, des prénoms....

AV pour le smilblick
Jean (22/02/2006, 20h57)
Oui je connais mais là, ça fait parti d'un module qui récupére des données
dans une base Excel et qui imprime un document Word. Je récupére une chaine
"Nom Prénom" et je dois imprimer dans un tableau word le prénom dans une
colonne et le nom dans une autre colonne.

Jean
"AV" <alainPFFFvallon> a écrit dans le message de news:
OQ$jyd4NGHA.3556...
[..]
Discussions similaires
Fonction de Hash retournant une clé sur 12 bits

Fonction retournant une formule

Fonction retournant un pointeur...

Fonction retournant 2 valeurs


Fuseau horaire GMT +2. Il est actuellement 03h36. | Privacy Policy