coipe de feuilles

[Delors]

bonjour a tous.

svp j'aimerais creer une macro qui me permette de copier le contenu des feuilles "cecaw_pp" et "cecaw_pm" (a partir de la ligne 6) respectivement dans les feuilles "conso_pp" et "conso_pm" (il colle juste apres le dernier enregistrement de chacune des feuilles)

merci d'avance. big up a bruno et à JCGL

 

[Delors]

Re : copier contenu des feuilles


il n' y a personne pour m'aider ? please......

 

[mromain]

Re : coipe de feuilles

bonjour Delors,

pressé??? on ne l'est pas ici
peux-tu modifier ton fichier afin de faire correspondre les colonnes de tes feuilles ?
cela permettrai de faire une simple copie de ligne...

a te lire
a+

 

[Delors]

Re : copie de feuilles

bjr mromain. mais tkt sui pas pressé

je ne te saisis pas tres bien . qu'entends tu par "faire correspondre les colonnes de mes feuilles "

Les colonnes de "conso_pm" et "cecaw_pm" ainsi que "conso_pp" et "cecaw_pp" sont identiques. c'est la syntaxe pour la copie qui me manque...

 

[mromain]

Re : coipe de feuilles

re,

oups, autant pour moi
je m'était trompé d'onglet...

 

[Compte Supprimé 979]

Re : copie de feuilles

Bonjour,

Je ne sais pas faire une "coipe" de feuille

En revanche une copie, oui, à améliorer

Sub Copie()
  Dim DLigS As Long, DLigD As Long
  With Sheets("CECAW_pp")
    DLigS = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("B6:N" & DLigS).Copy
  End With
  With Sheets("conso_pp")
    DLigD = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("B" & DLigD + 1).Select
    .Paste
  End With
End Sub

A+

 

[mromain]

Re : coipe de feuilles

donc,

me revoilà
voici un essai (à adapter pour l'autre cas) :

Sub test()
Dim feuilleSource As Worksheet, feuilleDestination As Worksheet

Set feuilleSource = ThisWorkbook.Sheets("CECAW_pp")
Set feuilleDestination = ThisWorkbook.Sheets("conso_pp")

With feuilleSource
    .Range("B6:N" & .Range("B" & .Rows.Count).End(xlUp).Row).Copy feuilleDestination.Range("B" & feuilleDestination.Rows.Count).End(xlUp).Offset(1, 0)
End With
End Sub

a+

 

[Delors]

Re : copie de feuilles

merci a vous les gars et super bruno pour la "coipe" (lle est bonne celle la)
mes resultats apres tests:

bruno -> une erreur a ce niveau dans ta fonction

.Range("B" & DLigD + 1).Select

mromain -> ca marche tres bien mais bon d'un autre coté j'ai pas compris le sens du "N" dans
.Range("B6:N"......

a quoi fais t'il exactement reference ? je remarque qu'il n'est mm pas declaré.

thanks et a+

 

[mromain]

Re : coipe de feuilles

re,
BrunoM45,

c'est la zone copiée, de B6 à Nx (x étant la dernière ligne)

a+