Modifier macro pour copier tous les onglets dans un seul onglet mais sans les formule

[Belsebou]

Bonjour,

J'ai une petite macro qui tourne bien depuis pas mal de temps.
Qu'est-ce qu'elle fait: juste copier toutes les informations de chacun des onglets de mon classeur dans un seul onglet.
Le problème c'est que j'ai voulu ajouter une formule dans les nouveaux onglets et que ma macro elle me copie la formule plutôt que les valeurs...

Que dois-je modifier?

Merci à vous

    Sub transfert()
    'Macro copier plusieurs feuilles dans une seule
    Dim dlgR As Integer, dlgi As Integer
    Dim i As Byte
    
    With Sheets("RECADEVS")
    dlgR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A2:E" & dlgR).ClearContents
    End With
    
    For i = 3 To Worksheets.Count
        If UCase(Sheets(i).Name) <> "RECADEVS" Then
            dlgR = Sheets("RECADEVS").Range("A" & Rows.Count).End(xlUp).Row
            With Sheets(i)
                dlgi = .Range("A" & Rows.Count).End(xlUp).Row
                .Range("A2:E" & dlgi).Copy Sheets("RECADEVS").Range("A" & dlgR + 1)
            End With
        End If
    Next
    End Sub

 

[Paritec]

Re : Modifier macro pour copier tous les onglets dans un seul onglet mais sans les fo

Bonjour Belsebou le forum
tu modifies comme cela
a+
Papou🙂

.Range("A2:E" & dlgi).Copy
Sheets("RECADEVS").Range("A" & dlgR + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

EDIT : Bonjour Pierrot🙂

 

[Pierrot93]

Re : Modifier macro pour copier tous les onglets dans un seul onglet mais sans les fo

Bonjour,
Bonjour Papou🙂

ceci devrait également fonctionner :

Sheets("RECADEVS").Range("A" & dlgR + 1).value =.Range("A2:E" & dlgi).Value

bonne journée
@+