macro "couper insérer"

ERIC S

XLDnaute Barbatruc

• 17 Avril 2009

• #2

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é

 

Vote positif 0 Vote négatif

F

fire24

Guest

• 17 Avril 2009

• #3

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 17 Avril 2009

• #4

Re : macro "couper insérer"

Bonjour tous



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

 

Vote positif 0 Vote négatif

F

fire24

Guest

• 20 Avril 2009

• #5

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Avril 2009

• #6

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 ?? )

Code:

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

 

Vote positif 0 Vote négatif