Recopie valeur de plusieurs feuille sur une autre

HUGO BASS Messages postés 20 Statut Membre -  
 foo -
Bonjour à toutes et tous,

Je cale
Je me sers d'une macro pour copier une partie de plusieurs feuille excel sur une seule et autre feuille à un certains endroit de celle ci du même classeur.
Ma procédure fonctionne très bien mais je n'arrive pas à copier seulement les valeurs( les formules sont reprises)
Auriez vous une solution à mon problème ?

Ci après ma macro
Sub RECAP2013()
Dim LigSuiv As Long, I As Integer

Range("A2282:H3901").Select
Selection.ClearContents

For I = 156 To Sheets.Count
LigSuiv = Range("A1048576").End(xlUp).Row + 1
Sheets(I).Range("A1:H15").Copy Range("A" & LigSuiv)
Next
End Sub

merci
Hugues

3 réponses

  1. foo
     
    Bonjour

    Modication a faire

    LigSuiv = Range("A" & Rows.Count).End(xlUp).Row + 1

    et mettre sur 2 lignes

    Sheets(I).Range("A1:H15").Copy
    Range("A" & LigSuiv).PasteSpecial xlPasteValues

    A+

    Maurice
    0
  2. HUGO BASS Messages postés 20 Statut Membre
     
    Bonjour Maurice,

    merci beaucoup pour la réponse très rapide et très judicieuse.

    Mon problème est résolu

    Merci

    Tchuss
    Hugues
    0
  3. foo
     
    merci

    tu peux aussi changer
    Range("A2282:H3901").Select
    Selection.ClearContents

    Par
    Range("A2282:H3901").ClearContents

    amuse toi

    A+

    Maurice
    0