Recopie valeur de plusieurs feuille sur une autre
HUGO BASS
Messages postés
20
Statut
Membre
-
foo -
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
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 -
Bonjour Maurice,
merci beaucoup pour la réponse très rapide et très judicieuse.
Mon problème est résolu
Merci
Tchuss
Hugues -
merci
tu peux aussi changer
Range("A2282:H3901").Select
Selection.ClearContents
Par
Range("A2282:H3901").ClearContents
amuse toi
A+
Maurice