Mister Binaire
XLDnaute Occasionnel
Bonsoir le Forum,
Voila, j'ai créé avec l’éditeur de macro ce bout de code (voir-ci dessous)
Tout ceci est bien lourd, ce que je voudrais c'est tout simplement de copier les données localisées dans chaque feuilles de D1170 et de les recopier dans l'onglet "Master Data" sans la mise en forme. Le top serait que lorsque la colonne d'une feuille ne contient pas de donnée que celle -ci ne soit pas recopier. (au total 30 feuilles)
Merci à toutes celles et tout ceux qui pourront m'aider.
Sub CopieData()
'
' CopieData Macro
'
'
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Master Data").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Gloss").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Master Data").Select
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Curling").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Master Data").Select
Columns("C:C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Voila, j'ai créé avec l’éditeur de macro ce bout de code (voir-ci dessous)
Tout ceci est bien lourd, ce que je voudrais c'est tout simplement de copier les données localisées dans chaque feuilles de D1170 et de les recopier dans l'onglet "Master Data" sans la mise en forme. Le top serait que lorsque la colonne d'une feuille ne contient pas de donnée que celle -ci ne soit pas recopier. (au total 30 feuilles)
Merci à toutes celles et tout ceux qui pourront m'aider.
Sub CopieData()
'
' CopieData Macro
'
'
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Master Data").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Gloss").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Master Data").Select
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Curling").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Master Data").Select
Columns("C:C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub