Copier des cellules d'une feuille vers une nouvelle feuille Résolu/Fermé

Question

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 ? 

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 !

Patrice33740 · Accepted Answer

Bonjour,

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

4 ailes d'espoir · Answer

Merci infiniment ca marche du tonnerre !

Copier des cellules d'une feuille vers une nouvelle feuille

2 réponses

Discussions similaires