Macro concatener nom et prénom avant l'espace

[carlos]

Bonjour

Je recherche une macro qui me concatene le NOM avec le premier PRENOM avant l'espace vide .



NOM ¨PRENOM Resultat attendu
DUPONT Daniel DUPONT Daniel
DUPONT Jean-claude DUPONT Jean-claude
DUPONT René Michel Georges DUPONT René
DUPONT Pierre marie DUPONT Pierre


Merci

PJ Fichier [file name=PrenomSansEspace.zip size=4955]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PrenomSansEspace.zip[/file]

 

[dg62]

Bonsoir Carlos, le forum

mode d'emploi : selectionner les cellules destinations et lancer la macro.

Sub concatene()


Dim cell As Range
Dim nom As String
Dim prenom As String

For Each cell In Selection
nom = cell.Offset(0, -2)
prenom = cell.Offset(0, -1)
cell.Value = nom & ' ' & prenom
Next
End Sub

je n'avais pas vu 1er prénom, suite dans quelques minutes...

Message édité par: dg62, à: 13/09/2005 19:17

 

[dg62]

re

Il y a certainement plus simple...

Sub concatene()


Dim cell As Range
Dim nom As String
Dim prenom As String
Dim premier As String

For Each cell In Selection
nom = cell.Offset(0, -2)
prenom = cell.Offset(0, -1)
lg = Len(prenom)
pos = InStr(1, prenom, ' ')
If pos = 0 Then
cell.Value = nom & ' ' & prenom
Else
premier = Mid(prenom, 1, pos)
cell.Value = nom & ' ' & premier
End If
Next
End Sub

Message édité par: dg62, à: 13/09/2005 19:43

 

[carlos]

Bonjour Dg62
Bonjour le forum

C'est exactement ce que je voulais

Merci beaucoup