A voir également:
- Excel macro applicable à toutes les cellules
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Protéger des cellules excel - Guide
- Supprimer les doublons excel - Guide
1 réponse
Bonjour,
Il manque des informations à ta demande !
Je ne vois pas le collage dans le code soumis !
Il existe plusieurs façon de faire, mais il faudrait nous en dire plus.
En attendant, voici une façon de faire :
L'instruction : [ Range("H24").Activate ] me semble ici
superflus, et on ne voit pas l'instruction de collage :
Range("xy").Select
ActiveSheet.Paste
Il te faudra détailler à quel endroit tu dois coller la sélection
qui est couper.
Cdt
Lupin
Il manque des informations à ta demande !
Je ne vois pas le collage dans le code soumis !
Il existe plusieurs façon de faire, mais il faudrait nous en dire plus.
En attendant, voici une façon de faire :
Sub MacroEssai()
Dim Cellules As Range
Dim Adresse As String
Set Cellules = Application.InputBox("Sélectionner la cellule de départ", Type:=8)
Adresse = "A" & Cellules.Row & ":D" & (Cellules.Row + 1)
Range(Adresse).Select
Selection.Cut
Adresse = "E" & Cellules.Row & ":H" & Cellules.Row
Range(Adresse).Select
Selection.Cut
Range("A26").Select
End Sub
'
L'instruction : [ Range("H24").Activate ] me semble ici
superflus, et on ne voit pas l'instruction de collage :
Range("xy").Select
ActiveSheet.Paste
Il te faudra détailler à quel endroit tu dois coller la sélection
qui est couper.
Cdt
Lupin
29 avril 2011 à 18:06
ActiveCell.Offset(1, 0).Range("A1:D2").Select
Selection.Cut
ActiveCell.Offset(-1, 4).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1:D1").Select
Selection.Cut
ActiveCell.Offset(-1, 4).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(3, -8).Range("A1").Select
c'est une macro assez simple finalement!
merci encore