Excel macro applicable à toutes les cellules
georgesL
-
georgesL -
georgesL -
Bonjour,
je dois sur une feuille excel faire une tâche répétitive de coupage et collage, j'ai donc créé une macro:
Sub Macroessai()
'
' Macroessai Macro
'
'
Range("A24:D25").Select
Selection.Cut
Range("E24:H24").Select
Range("H24").Activate
Selection.Cut
Range("A26").Select
End Sub
comment faire pour que cette macro soit applicable à toutes mes cellules? j'aimerai réitérer la macro sur la cellule A26 puis A28...
merci
je dois sur une feuille excel faire une tâche répétitive de coupage et collage, j'ai donc créé une macro:
Sub Macroessai()
'
' Macroessai Macro
'
'
Range("A24:D25").Select
Selection.Cut
Range("E24:H24").Select
Range("H24").Activate
Selection.Cut
Range("A26").Select
End Sub
comment faire pour que cette macro soit applicable à toutes mes cellules? j'aimerai réitérer la macro sur la cellule A26 puis A28...
merci
A voir également:
- Excel macro applicable à toutes les cellules
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
- Excel additionner plusieurs cellules - Guide
- Word et excel gratuit - 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
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