Aller à la ligne dans ma Macro

Hello à tous,

Alors voilà, j'ai concocté la macro ci-dessous, mais j'ai un léger détail que je souhaite régler :

Je souhaite qu'à chaque fois, au lieu de Range("A2").Select la macro aille juste à la ligne en dessous de celle dans laquelle j'ai collé mes données précédentes.

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("Q7").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2").Select
    Sheets("Inventaire_RFID").Select
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A5:A5694").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A5").Select
End Sub

Merci d'avance de vos lumières !!

Bonjour, a tester

Pierrot

Sub Décaler()            
'            
' Macro4 Macro            
'            

'            
    ActiveCell.Range("A1:A6").Select               ' Copie colonne A1:A6            
    Selection.Copy            
    ActiveCell.Offset(10, 5).Range("A1").Select    ' Décale de 10 lignes vers le bas et 5 colonnes 
                                                                                 'vers la droite            
    ActiveSheet.Paste                     'Pour l'inverse, il faut mettre un signe -            
    ActiveCell.Offset(10, 5).Range("A1").Select    '(-10,-5)=10 lignes vers le haut et 5 lignes vers la gauche            
    ActiveSheet.Paste            
    ActiveCell.Select            
    ActiveSheet.Paste            
    Application.CutCopyMode = False            
End Sub            

Hello Cappe Pierre,

J'ai résolu mon problème grâce à la ligne ActiveCell.Offset(10, 5).Range("A1").Select que tu proposais dans ton code. En mettant en valeur 1,0.

Merci de ton aide !

Salut,

Heureux d'avoir pu t'aider

n'oublies pas la coche verte comme étant résolu

Pierrot