intervertir des cellules

[tom]

Bonjour le forum,
Un truc tout simple a priori. J'ai une colonne 'prénom' et une colonne 'nom', malheureusement, il y a quelques fois des inversions. Je souhaiterais avoir un raccourci, une fonction de Excel ou une macro, qui me permette simplement d'intervertir le contenu de mes deux cellules.
merci d'avance !
tom

 

[PascalXLD]

Bonjour

Ce petit code si ton nom et ton prénom se trouve en colonne A et B

Tu selectionnes une de tes 2 cellules et tu le lances

Sub Inverser()

Dim MonNom as string

MonNom=range('B' & activecell.row)
range('B' & activecell.row)=range('A' & activecell.row)
range('A' & activecell.row)=MonNom

End sub

 

[tom]

que dire....


MERCI !


rapide, clair et précis. Ce forum et ces utilisateurs me fascinent !
tom