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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
t
thomasbcy
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 18 mars 2014
Version d'Excel : 2010

Message par thomasbcy » 18 mars 2014, 11:09

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message