macro "couper insérer"

[fire24]

Bonjour, je souhaiterai créer une macro pour couper du texte d'une cellule et l'insérer dans une autre cellule via l'option insérer les cellules coupées. Quelqu'un à une idée?
Merci

 

[ERIC S]

Re : macro "couper insérer"

Bonjour

pas trop le temps mais déjà utilise l'enregistreur de macro et regarde le code généré

 

[fire24]

Re : macro "couper insérer"

il y a un problème, dans la macro il y a un nom de cellule, il me faudrait une solution "générale", sans nom de cellule

 

[vbacrumble]

Re : macro "couper insérer"

Bonjour tous



Sans connaitre le contenu de ton code VBA, il ne va pas être aisé de t'aider ...

 

[fire24]

Re : macro "couper insérer"

grosso modo c'est un truc comme ça:


Sub test()
'
' test Macro
'

'
Range("A1").Select
Selection.Cut
Range("B3").Select
Selection.Insert Shift:=xlDown
End Sub

 

[vbacrumble]

Re : macro "couper insérer"

Bonjour


Voici une macro qui ne fonctionne qu'à moitié

Je n'ai pas trouvé comment résoudre le bug.
(qui se produit so on sélectionne une cellule se situant sous la cellule active
la recopie s'effectue avec un décalage d'une ligne ?? )

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/04/2009 par VBACrumble
'
Dim myCell As Range
On Error Resume Next
Set myCell = Application.InputBox( _
prompt:="Selectionner la cellule de destination", Title:="Copie", Type:=8)
ActiveCell.Cut
myCell.Insert Shift:=xlDown
End Sub