Un transfert de cellule un peu différent

[André]

Bonjour a tous,
en lisant certain messages postés, je me demandais si il était possible et comment réaliser un transfert de cellule. Je m'explique, comment créer une fonction qui échangerait le contenu de deux cellules?

Je trouve que cette fonction pourrait arranger rapidemant certaine erreurs sur de gros fichiers.

merci d'avance

 

[justine]

bonjour
si je comprends, tu veux intervertir les donnees de deux cellules, soit par exemple echanger A1 en A2 et A2 en A1

en vba:
range('A3')=range('A1')
range('A1')=range('A2')
Range('A2')=range('A3')
range('A3')=''

en fonction xl, je connais pas desolee

 

[Charly2]

Bonsoir André et Justine,

Comme Justine, je ne connais pas de fonction XL qui fasse cela. Ceci dit, je pense que dans le code proposé par Justine, il est préférable de passer par une variable :

Sub Swap(Cell1 As Range, Cell2 As Range)
'
Dim Temp
'
  Temp = Cell1
  Cell1 = Cell2
  Cell2 = Temp
End Sub

Amicalement
Lionel