XL 2013 Sélectionner une cellule par macro

[Petitom42]

Bonjour à tous!

J'ai un souci avec une macro. Je précise que mon niveau est plutôt débutant dans ce domaine et que j'utilise souvent les enregistrements de macro.
Pour faire simple, j'ai créé un bouton et j'aimerais que lorsque l'on clique dessus, le contenu de la cellule sélectionnée soit coupé et collé dans la cellule qui se situe 2 colonnes avant, dans la même ligne. Je n'arrive malheureusement pas à trouver la solution, et lorsque j'enregistre ma macro en utilisant soit les flèches, soit tab pour me déplacer d'une cellule à l'autre, la macro se contente de sélectionner la cellule utilisée pour l'enregistrement (exemple K27 quelle que soit la ligne sélectionnée au moment de l'exécution de ma macro).

Quel code permettrait de sélectionner cette cellule, qui soit donc dans une colonne donnée (la colonne K) mais tout en restant dans la même ligne que la cellule sélectionnée?

Un grand merci par avance

Petitom42

 

[Lolote83]

Salut PETITOM42,
Peut être comme ça.

Sub Test()
    If ActiveCell.Column < 3 Then
        MsgBox "IMPOSSIBLE DE COLLER"
    Else
        xVal = ActiveCell.Value
        ActiveCell.Value = Empty
        ActiveCell.Offset(0, -2) = xVal
    End If
End Sub

@+ Lolote83

 

[jpb388]

Bonjour à tous

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      ActiveCell.Copy ActiveCell.Offset(0, -2)
End Sub

 

[Lolote83]

Bonjour JPB388,
Notre ami PETITOM42 ne souhaite pas un Copier-Collé mais un Couper-Collé.
De plus, ton code ne tiens pas compte si Dbl-Clic dans une cellule pour une colonne inférieure à 3. (Le code plante).
@+ Lolote83

 

[jpb388]

Bonjour Lolote83
tout à fait exact j'ai lu et fait un peu trop vite
Bonne journée

 

[mapomme]

Notre ami PETITOM42 ne souhaite pas un Copier-Collé mais un Couper-Collé.
De plus, ton code ne tiens pas compte si Dbl-Clic dans une cellule pour une colonne inférieure à 3. (Le code plante).

Bonjour à tous,

Qu'à cela ne tienne :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Column > 2 Then ActiveCell.Cut ActiveCell.Offset(0, -2): Cancel = True
End Sub

 

[Lolote83]

Bien vu MaPomme,
Mais comme dans la demande, il était fait état de :

j'ai créé un bouton et j'aimerais que lorsque l'on clique dessus

je n'ai pas prévue le coup du Dbl-Clic
Mais qui peu le plus peu le mois .....
@+ Lolote83

 

[mapomme]

Re @Lolote83 ,

Dans ce cas pour l'associer à un bouton :

Sub RetroCouper()
   If ActiveCell.Column > 2 Then ActiveCell.Cut ActiveCell.Offset(0, -2)
End Sub

 

[Petitom42]

Bonjour à tous,
Ca marche! Merci beaucoup pour votre implication et votre réactivité!
Super site
A bientôt
Petitom42