Recopie valeur de plusieurs feuille sur une autre

Fermé
HUGO BASS Messages postés 20 Date d'inscription dimanche 11 août 2013 Statut Membre Dernière intervention 18 septembre 2015 - Modifié par GrandCaribou le 11/08/2013 à 19:14
 foo - 11 août 2013 à 20:33
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

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
HUGO BASS Messages postés 20 Date d'inscription dimanche 11 août 2013 Statut Membre Dernière intervention 18 septembre 2015
11 août 2013 à 20:25
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
merci

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

Par
Range("A2282:H3901").ClearContents

amuse toi

A+

Maurice
0