Compilation d'onglet en valeur

Bonjour à tous,

Je sais que ce sujet a déjà été abordé mais après de nombreuses recherches je n'ai pas trouvé de solution.

Je m'en remet donc à vous

Je n'arrive pas à modifier cette macro pour de compilation d'onglet pour qu'elle colle les données en valeur et non avec les formules sur la feuille recap et je souhaiterai que le collage sur la feuille recap commence en A12.

ci dessous vous trouverez la macro utilisé

Sub RegroupeFeuilles() 'dans "Récap"
Dim Lg&, Sh As Worksheet, f As Worksheet
        Set f = Sheets("Recap")
    f.Range("a2:EB" & f.[a65000].End(xlUp).Row).[code=vb]ClearContents   'efface Récap

    For Each Sh In Worksheets
        If Sh.Name <> f.Name And Sh.Name <> "base" Then         'feuilles à ne pas traiter
           Lg = Sh.Range("a" & Rows.Count).End(xlUp).Row
            Sh.Range("a12:EB" & Lg).Copy Destination:= _
            f.Range("a" & Rows.Count).End(xlUp)(2)
        End If
    Next
End Sub

Cordialement

Bonjour,

Tu remplaces cette ligne :

Sh.Range("a12:EB" & Lg).Copy Destination:= _

f.Range("a" & Rows.Count).End(xlUp)(2)

par :

Sh.Range("a12:EB" & Lg).Copy
f.Range("a" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteValues

Par ailleurs, qu'est-ce que cet élément parasite : [code=vb]

Cordialement.

Bonjour,

Faute de fichier joint, sépare l'instruction copy après le mot clé Copy. Enlève destination. Applique la méthode avec le paramètre .PasteSpecial xlPasteValues

Merci pour vos réponses rapides

il reste plus qu'a décaler la compilation des fichiers à partir de la ligne 12?

que dois je modifier ?

Cordialement

S'il y a quelque chose ligne 11, pas de problème !

en fait il n'y a rien pour le moment

UN GRAND MERCI je viens de rajouter les titres de mes colonnes en ligne 11 et tout va bien

Cordialement

Bonjour,

Si ton sujet est clos peux-tu appuyer sur le bouton vert pour valider ton sujet ?

Merci, ça aide tout le monde