Inversion cellule

[gourdin]

Bonjour,

Je souhaite inverser par macro evenementielle 2 cellules

J'ai trouvé le code suivant (dans le forum) qui était parfait mais que je n'arrive pas à adapter à une macro évenementielle

Sub Inverser()
Dim F$
F = [A1].Formula
[A1].Formula = [C1].Formula
[C1].Formula = F
End Sub

Merci

Voir fichier joint

 

[Pierrot93]

Re : Inversion cellule

Bonjour,

code ci dessous à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As String
If Target.Count > 1 Or Target.Column <> 4 Then Exit Sub
s = Cells(Target.Row, 2).Formula
Cells(Target.Row, 2).Formula = Cells(Target.Row, 6).Formula
Cells(Target.Row, 6).Formula = s
End Sub

bonne journée
@+

 

[pierrejean]

Re : Inversion cellule

Bonjour gourdin


Teste:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
temp = Range("B" & Target.Row)
Range("B" & Target.Row) = Range("F" & Target.Row)
Range("F" & Target.Row) = temp
End If
End Sub

Edit : Salut ami Pierrot 🙂

 

[gourdin]

Re : Inversion cellule

Parfait Merci à vous deux