Copier des cellules d'une feuille vers une nouvelle feuille
Résolu
4 ailes d'espoir
Messages postés
4
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,
Je cherche à savoir comment sélectionner une plage de cellules d'une feuille excel vers une nouvelle feuille en faisant une macro.
En fait j'ai a ma disposition à la base d'une feuille avec des données. Tout d'abord je dois modifier la mise en forme de ces données celon une trame précise (cette partie la de mon programme fonctionne bien), puis a partir de cette nouvelle mise en forme, je souhaiterais sélectionner les 14 prmieres lignes et les mettre dans une nouvelle feuille excel.
Voici le programme que j'ai, pourriez-vous m'aider à completer mon programme pour obtenir ce que je veux ?
Merci par avance !
Je cherche à savoir comment sélectionner une plage de cellules d'une feuille excel vers une nouvelle feuille en faisant une macro.
En fait j'ai a ma disposition à la base d'une feuille avec des données. Tout d'abord je dois modifier la mise en forme de ces données celon une trame précise (cette partie la de mon programme fonctionne bien), puis a partir de cette nouvelle mise en forme, je souhaiterais sélectionner les 14 prmieres lignes et les mettre dans une nouvelle feuille excel.
Voici le programme que j'ai, pourriez-vous m'aider à completer mon programme pour obtenir ce que je veux ?
Private Sub Modification1_Click()
'Modification feuille 1
Sheets("FF").Cells(1, 1).Value = "date_traitement"
Sheets("FF").Cells(1, 2).Value = "code_societe"
Sheets("FF").Cells(1, 5).Value = "cle_defaut"
Columns("C:C").Select
Selection.NumberFormat = "0.00"
Columns("D:D").Select
Selection.NumberFormat = "0.00"
For i = 2 To 53
Sheets("FF").Cells(i, 5).Value = Sheets("FF").Cells(i, 5).Value & "" & Sheets("FF").Cells(i, 6)
Next i
Columns("F:F").Delete
Selection = Sheets("FF").Range("A1:A14")
Sheets.Add
ActiveSheet.Name = Sheets("FF_HABITAT").Selection
End Sub
Merci par avance !
A voir également:
- Copier des cellules d'une feuille vers une nouvelle feuille
- Comment imprimer en a5 sur une feuille a4 - Guide
- Bruler feuille de laurier - Guide
- Darkino nouvelle adresse - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
2 réponses
Bonjour,
Essaies ce code :
Essaies ce code :
Option Explicit
Private Sub Modification1_Click()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim i As Integer
'Modification feuille "FF"
Set sh1 = ThisWorkbook.Worksheets("FF")
sh1.Cells(1, "A").Value = "date_traitement"
sh1.Cells(1, "B").Value = "code_societe"
sh1.Cells(1, "E").Value = "cle_defaut"
sh1.Columns("C:C").NumberFormat = "0.00"
sh1.Columns("D:D").NumberFormat = "0.00"
For i = 2 To 53
sh1.Cells(i, "E").Value = sh1.Cells(i, "E").Value & sh1.Cells(i, "F")
Next i
sh1.Columns("F:F").Delete
'Ajout feuille "FF_HABITAT"
Set sh2 = ThisWorkbook.Worksheets.Add
sh2.Name = "FF_HABITAT"
'Copie vers feuille "FF_HABITAT"
sh1.Rows("1:14").Copy Destination:=sh2.Rows("1:14")
End Sub
