Macro copier coller dans ligne spécifique d'un tableau

Bonjour à tous,

Je me suis construit un BBD avec une feuille qui me sert, grâce à des recherchev à lire plus facilement mes informations.

Je voudrais, grâce à un macro, pouvoir copier une élément changé dans la feuille de lecture et ensuite réécrire la fonction recherchev par dessus. Comme ça ma base de données se complète facilement et je peux avoir un visuel facile sur celle via ma fiche de lecture ("fiche magasin").

J'ai essayé une macro, qui filtre le tableau comme demandé, mais qui continue de coller les cellules copiées à la ligne initialement utilisé pour créer la macro. Pouvez vous m'aider?

Merci,

Thomas

ps en rouge la ligne sélectionnée à plusieurs reprise. Je souhaiterais prendre la ligne filtrée.

Sub Macro3()

'

' Macro3 Macro

'

'

Sheets("BDD").Select

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=Sheets("FICHE MAGASIN").Range("C2"), Operator:=xlOr

Sheets("FICHE MAGASIN").Select

Range("M3").Select

Selection.Copy

Sheets("BDD").Select

ActiveWindow.SmallScroll ToRight:=6

Range("O71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("M4").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

Range("J71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("M5").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

Range("K71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("M6").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

Range("L71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("M7").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

Range("M71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("M8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

Range("N71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("C4:J4").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

Range("P71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("C5:J5").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

ActiveWindow.SmallScroll ToRight:=9

Range("X71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("FICHE MAGASIN").Select

Range("C6:J6").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("BDD").Select

ActiveWindow.ScrollColumn = 17

ActiveWindow.ScrollColumn = 27

Range("AF71").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.ScrollColumn = 26

ActiveWindow.ScrollColumn = 1

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1

ActiveWindow.SmallScroll Down:=-6

Sheets("MACRO NE PAS TOUCHER").Select

Range("M3:M8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("FICHE MAGASIN").Select

Range("M3").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Sheets("MACRO NE PAS TOUCHER").Select

Range("C4:J6").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("FICHE MAGASIN").Select

Range("C4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("C4").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Range("C8").Select

End Sub

Rechercher des sujets similaires à "macro copier coller ligne specifique tableau"