couper coller

[Cruz]

(re)Bonjour le forum

J'aimerais savoir quel code correspond à l'action couper-coller dans une macro ???
ex: Si A1 = 1 alors A2:A4 est coupé puis collé dans B2:B4
merci d'avance
a+
cruz

 

[porcinet82]

Salut Cruz,

Avec ce code tu devrais y arriver:

Sub coup()

If Cells(1, 1).Value = '1' Then
    Range('A2:A4').Select
    Selection.Cut
    Range('B2').Select
    ActiveSheet.Paste
End If
End Sub

@+

 

[Cruz]

merci de me répondre aussi rapidement
mais la macro ne fonctionne pas entièrement:
la cellule est coupée mais non collée

 

[porcinet82]

re,

C'est bizarre, je viens de retester, et chez moi elle fonctionne. Essaye comme ceci peut etre :

Sub coup()

If Cells(1, 1).Value = '1' Then
    Range('A2:A4').Select
    Selection.Cut
    Range('B2:B4').Select 'modif ici
    ActiveSheet.Paste
End If
End Sub

@+

 

[Cruz]

merci
en fait c'est moi qui ai mal regardé
désolé
mais sais-tu comment faire pour que cette macro s'effectue automatiquement ??

 

[Temjeh]

Rebonjour à tous

Moi personnellement jutilise beaucoup la fonction doubleclic dans la feuille:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = Range('A1') Then
coup
Cancel = True
End If
End Sub

Doubleclic en A1 et la macro s'exécute

Tu peut t'en mettre partout.

Autre option dans propriété de macro tu lui met un raccourci de clavier

Temjeh

 

[Cruz]

merci beaucoup c'est exactement ce que je cherchais
a+ cruz