Bonjour,
J'utilise Excel 2003.
J'ai une base de données.
A la ligne 161, je rentre des valeurs ( une valeur par colonne B161=une date et C161 à AQ160=une valeur ).
En cliquant sur un bouton MISE A JOUR, je lance une macro qui va intégrer les valeurs de la ligne 161 dans la ligne 160 et décaler toutes les autres lignes vers le haut.( la ligne 160 vers 159 et ainsi de suite jusqu'à la ligne 89)
Question : est-il possible de modifier cette macro qui permettrait de faire remonter ces lignes jusqu'à la ligne 2 ?
J'utiliserai ainsi les lignes 160 à 2 au lieu de 160 à 89.
En espérant ne pas avoir été trop confus dans les explications
Je vous remercie par avance pour votre précieuse aide
Cdlt
Voici la macro ci-dessous
Sub MacroMISEAJOUR()
'
' MacroMISEAJOUR Macro
' Macro enregistrée le 08/02/2004 par Christian
'
'
Range("B161:AQ161").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Range("C161").Select
Selection.NumberFormat = "0.0000"
Range("A90:AQ161").Select
Range("A161").Activate
Selection.Copy
Range("A89").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
ActiveWindow.SmallScroll Down:=71
Range("B161:AQ161").Select
Selection.ClearContents
ActiveWorkbook.Save
End Sub
J'utilise Excel 2003.
J'ai une base de données.
A la ligne 161, je rentre des valeurs ( une valeur par colonne B161=une date et C161 à AQ160=une valeur ).
En cliquant sur un bouton MISE A JOUR, je lance une macro qui va intégrer les valeurs de la ligne 161 dans la ligne 160 et décaler toutes les autres lignes vers le haut.( la ligne 160 vers 159 et ainsi de suite jusqu'à la ligne 89)
Question : est-il possible de modifier cette macro qui permettrait de faire remonter ces lignes jusqu'à la ligne 2 ?
J'utiliserai ainsi les lignes 160 à 2 au lieu de 160 à 89.
En espérant ne pas avoir été trop confus dans les explications
Je vous remercie par avance pour votre précieuse aide
Cdlt
Voici la macro ci-dessous
Sub MacroMISEAJOUR()
'
' MacroMISEAJOUR Macro
' Macro enregistrée le 08/02/2004 par Christian
'
'
Range("B161:AQ161").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Range("C161").Select
Selection.NumberFormat = "0.0000"
Range("A90:AQ161").Select
Range("A161").Activate
Selection.Copy
Range("A89").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
ActiveWindow.SmallScroll Down:=71
Range("B161:AQ161").Select
Selection.ClearContents
ActiveWorkbook.Save
End Sub