George doit souvent travailler avec des données fournies par d’autres personnes. En travaillant avec ces données, il peut avoir besoin de convertir un nom, disons Joe Bloggs, afin que le nom de famille soit le premier, comme dans Bloggs, Joe. George comprend qu’il peut utiliser une formule pour faire l’inversion de nom, mais il doit le faire dans la même cellule dans laquelle réside le nom. Il se demande s’il existe une commande intégrée qui effectuera cette tâche.

Non, il n’y a pas de commande intégrée pour le faire. Vous pouvez cependant créer une macro qui effectuera la commutation à votre place. Cette macro pourrait ensuite être affectée à une touche de raccourci ou placée sur une barre d’outils afin d’être facilement accessible. Voici une macro simple qui fera la commutation:

Sub ReverseNames()

Dim x As Integer     Dim sCell As String     Dim sLast As String     Dim sFirst As String     Dim rCell As Range

For Each rCell In Selection         sCell = rCell.Value         x = InStr(sCell, " ")

If x > 0 Then             sFirst = Left(sCell, x - 1)

sLast = Mid(sCell, x + 1)

rCell.Value = sLast & ", " & sFirst         End If     Next     Set rCell = Nothing End Sub

Pour utiliser la macro, sélectionnez simplement la plage de cellules que vous souhaitez affecter, puis exécutez-la. La macro recherche un espace dans la cellule et considère tout ce qui se trouve devant l’espace comme étant le prénom et tout ce qui se trouve après l’espace comme le nom de famille. Ces deux éléments sont inversés, une virgule placée entre eux et replacés dans la cellule.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3812) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Reversing_Names_In_Place [Inversion des noms en place].