Inverser nom et prénom

[breeze]

Bonjour ,
j'ai une liste d'élève monté en nom, prénom EX(Lalonde,Pierre)
J'ai une macro pour supprimer des élèves dans cette liste et j'ai un message de confirmation
J'utilise cette macro
Dim val
val = ActiveCell.Value

retour = MsgBox("Voulez vous vraiement supprimer le nom de " & val & " ? ", vbYesNo + vbInformation + vbDefaultButton2, "Ecole Secondaire de Saint-Damien")
If retour = vbYes Then

Selection.ClearContents
Range("c6:ha403").Select
Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom
Range("b6").Select

Le probleme c'est que le message se lit comme ca:

Voulez vous vraiement supprimer le nom de Lalonde,Pierre ?

Alors que je voudrais voir cela
Voulez vous vraiement supprimer le nom de Pierre Lalonde ?
Est-ce possible d'inverser le nom et le prénom dans ma valeur ??

Merci !!

 

[Softmama]

Re : Inverser nom et prénom

Bonjour,

val = split(Activecell,",")(1) & " " & split(Activecell,",")(0)

à la place de

val = activecell.value

 

[Grand Chaman Excel]

Re : Inverser nom et prénom

Bonjour Breeze,

Avec la fonction Split :

val2 = Split(val, ",")(1) & Split(val, ",")(0)

A+

Edit : bonjour Softmama, plus rapide que moi.