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
A voir également:
- Recopie valeur de plusieurs feuille sur une autre
- Comment imprimer en a5 sur une feuille a4 - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Bruler feuille de laurier - Guide
- Imprimer feuille excel sur une page - Guide
- Comment supprimer une feuille sur word - Guide
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
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