Appliquer une macro sur une sélection de cellule
bonjour, j'ai un fichier qui me sert de base de donnée. j'importe via une macro des statistiques tous les jours.
j'ai donc étendu mes lignes afin d'avoir du 01/01 au 31/12.
Chaque jour, mes stats portent sur 20 machines. je traite ces infos avec un td croisé dynamique. pour mes filtres j'ai besoin que chaque jour soit étendu sur 20 lignes afin qu'il y ait une ligne 01/01 par machine.
j'ai créé une macro pour étendre ma cellule et copier sur 20 lignes mais ça ne marche pas sur une sélection de cellule.
voici la commande:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Sub essaii()
'
' essaii Macro
'
'
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(19, 0).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Offset(-19, 0).Range("A1:A20"), Type _
:=xlFillCopy
ActiveCell.Offset(-19, 0).Range("A1:A20").Select
End Sub |
merci pour votre aide.