Copier des cellules d'une feuille vers une nouvelle feuille
Résolu
4 ailes d'espoir
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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
- Darkino nouvelle adresse - Guide
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - 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
