Copier des cellules d'une feuille vers une nouvelle feuille

Résolu/Fermé

4 ailes d'espoir Messages postés 3 Date d'inscription vendredi 26 avril 2013 Statut Membre Dernière intervention 30 avril 2013 - 29 avril 2013 à 16:57
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 1 mai 2013 à 23:44

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 !

A voir également:

Copier des cellules d'une feuille vers une nouvelle feuille
Darkino nouvelle adresse - Guide
Copier une vidéo youtube - Guide
Feuille de pointage excel - Télécharger - Tableur
Supprimer une feuille word - Guide
Feuille a5 - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
29 avril 2013 à 22:27

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

Réponse 2 / 2

4 ailes d'espoir Messages postés 3 Date d'inscription vendredi 26 avril 2013 Statut Membre Dernière intervention 30 avril 2013
30 avril 2013 à 09:41

Merci infiniment ca marche du tonnerre !

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
1 mai 2013 à 23:44

De rien, au plaisir de te relire sur Forum

Cordialement
Patrice

Discussions similaires

[PIX] Commencer chaque poème sur une nouvelle page

Feuille de score belote

Colis en cours de transport vers votre site de livraison ?

Dessiner avec son clavier et avec des lettres

feuille excel de gestion belote

Discussions similaires

Newsletters