Macro Copier-coller

[Gengiskhan]

Bonjour,
j'ai un soucis avec ce bout de code, il me permet de récupérer une plage définit dans des onglets spécifiés du même classeur et de les coller en valeur "bout à bout " dans un onglet "conso".
Le problème c'est qu'il me met également en valeur les plages copiées, qui contiennent des formules que je souhaiterais conserver ?. et je comprends pas pourquoi 😕

For Each Worksheet In ThisWorkbook.Worksheets
If Not IsError(Application.Match(Worksheet.Name, Onglet, 0)) Then
            Worksheet.Activate
            Range("a3:g57").Select
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
            Sheets("conso").Select
            Sheets("conso").Range("D65536").End(xlUp).Offset(1).Select
            ThisWorkbook.Sheets("conso").Paste
            Application.CutCopyMode = False
            
            End If
Next

merci bcp pour votre aide.

 

[Guest]

Re : Macro Copier-coller

Bonsoir Gengiskhan,

Dans la macro ci-dessous j'ai Remplacer 'WorkSheet' par une variable 'Sh' parce que WorkSheet est un des mots-clefs VBA Excel, que cela prête à confusion et entraîne des complications.
​

    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Not IsError(Application.Match(Sh.Name, Onglet, 0)) Then
            With Sh.Range("a3:g57")
                .Copy Destination:=ThisWorkbook.Sheets("conso").Range("D65536").End(xlUp).Offset(1)
                .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            End With
        End If
    Next
    Application.CutCopyMode = False

A+

 

[Gengiskhan]

Re : Macro Copier-coller

Bonjour Hasco,
et merci bcp.
a+