Copier des cellules d'une feuille vers une nouvelle feuille

Résolu/Fermé
Messages postés
3
Date d'inscription
vendredi 26 avril 2013
Statut
Membre
Dernière intervention
30 avril 2013
-
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
-
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 !

2 réponses

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 733
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
 

Messages postés
3
Date d'inscription
vendredi 26 avril 2013
Statut
Membre
Dernière intervention
30 avril 2013

Merci infiniment ca marche du tonnerre !
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 733
De rien, au plaisir de te relire sur Forum

Cordialement
Patrice