Copier/Coller une plage en VBA

G

Gareth

XLDnaute Impliqué

• 23 Septembre 2012

• #16

Re : Copier/Coller une plage en VBA

Bonsoir,

Ci-joint une variante qui exporte dans la Feuil2

 

Pièces jointes

• Exporter2.xlsm

  23.5 KB · Affichages: 47
• Exporter2.xlsm

  23.5 KB · Affichages: 50
• Exporter2.xlsm

  23.5 KB · Affichages: 44

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 23 Septembre 2012

• #17

Re : Copier/Coller une plage en VBA

Bonsoir Gareth,

voilà un pseudo que je croise pour la 1ère fois, d'après votre fiche, vous êtes récemment inscript et bienvenu sur ce forum,

Pour ce qui est de votre variante, ça fonctionne trés bien et je vous remercie pour votre contribution,

Et je dirais encore un code d'un autre genre comme celui de VDAVID que je remercie également pour son aide sur ce fil,


Bonne nuit à toutes et à tous,

Cordialement

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 23 Septembre 2012

• #18

Re : Copier/Coller une plage en VBA

Bonjour le Forum, VDAVID, GARETH,

Les solutions à VDAVID et GARETH fonctionnent trés bien sur le fichier que j'avais soumis intialement,

Malheureusement dans le fichier final que je vous transmets ci-dessous et mille excuses pour ce désagrément, il s'avère que le code à GARETH n'est plus applicable car la propriété .CurrentRegion va sélectionner l'ensemble de la plage, y compris les titres et les colonnes adjacentes à ma plage délimitée en jaune...!!!


Le code à VDAVID fonctionne trés bien même avec le nouveau fichier modifié, mais je n'arrive pas à exporter cette plage sur l'onglet "feuil2" plutôt que la "feuil1"


Merci d'avance pour aide


Cordialement

 

Pièces jointes

• Exporter.xlsm

  26.3 KB · Affichages: 37
• Exporter.xlsm

  26.3 KB · Affichages: 37
• Exporter.xlsm

  26.3 KB · Affichages: 41

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 23 Septembre 2012

• #19

Re : Copier/Coller une plage en VBA

Bonsoir Gareth, Amilo,

Il faut modifier le code comme ceci:

Code:

Sub exporter()


Dim maPlage As Range
Dim maPlagefin As Range
Dim i As Long
Dim h As Long
Dim m As Long
Dim tabl(), tableau()

'Sheets("Feuil1").Select
m = 0
Set maPlage = Sheets("feuil1").Range("B5:D11") 'Plage du traitement
Set maPlagefin = Sheets("feuil2").Range("K" & Sheets("Feuil2").Range("K65536").End(xlUp).Row + 2 & ":" & "M" & Sheets("Feuil2").Range("K65536").End(xlUp).Row + 1 + maPlage.Rows.Count)

tabl = maPlage.Value


ReDim tableau(UBound(tabl()), 1 To maPlage.Columns.Count)

For i = LBound(tabl()) To UBound(tabl())

For h = LBound(tabl(), 2) To UBound(tabl(), 2)

If tabl(i, 1) = "" Then
GoTo Borne
End If

tableau(m, h) = tabl(i, h)

Next h


m = m + 1

Borne:
Next i

maPlagefin.Value = tableau


End Sub

Toujours en destination une ligne à partir de la dernière ligne non vide de la colonne "K" dans l'onglet "feuil2".
Bonne fin de week-end !

EDIT: Ces lignes sont à mettre en une seule:

Code:

Set maPlagefin = Sheets("feuil2").Range("K" & Sheets("Feuil2").Range("K65536").End(xlUp).Row + 2 & ":" & "M" & Sheets("Feuil2").Range("K65536").End(xlUp).Row + 1 + maPlage.Rows.Count)

 

Dernière édition: 23 Septembre 2012

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 23 Septembre 2012

• #20

Re : Copier/Coller une plage en VBA

Bonsoir VDAVID,

Merci pour votre réponse et cette modification,

Je comprends mieux mon erreur, j'ai omis de modifier partout là où il y avait l'objet .Range...

En tout cas tout fonctionne comme souhaité désormais...

Mille mercis pour votre aide

Bonne fin de dimanche

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 24 Septembre 2012

• #21

Re : Copier/Coller une plage en VBA

Bonsoir,

Je ne vois pas d'entete, ni colonne adjacente ...

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 25 Septembre 2012

• #22

Re : Copier/Coller une plage en VBA

Bonsoir Gareth,

Effectivement vous avez raison, c'est pas le bon fichier que j'ai joint et désolé pour cette maladresse,

Comme vous avez pu le constater, VDAVID a modifié son code suite à mon dernier message,

Par contre je remets le bon fichier avec les entêtes et les colonnes supplémentaires pour constater que votre code qui fonctionnait trés bien avec mon 1er fichier, ne s'applique plus à ce nouveau fichier...

Toute autre proposition est biensur la bienvenue pour mon apprentissage de VBA...

P.S : j'en ai profité aussi pour inclure dans ce fichier, la dernière modification à VDAVID qui donne exactement le résultat souhaité.

Mille mercis à vous pour toute l'aide que vous m'avez apportée.


Cordialement

 

Pièces jointes

• Exporter.xlsm

  27 KB · Affichages: 30
• Exporter.xlsm

  27 KB · Affichages: 32
• Exporter.xlsm

  27 KB · Affichages: 29

Dernière édition: 25 Septembre 2012

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 26 Septembre 2012

• #23

Re : Copier/Coller une plage en VBA

Bonsoir,

Ci-joint une autre mouture adaptée au nouveau contexte

 

Pièces jointes

• Exporter.xlsm

  27.8 KB · Affichages: 30
• Exporter.xlsm

  27.8 KB · Affichages: 28
• Exporter.xlsm

  27.8 KB · Affichages: 30

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 26 Septembre 2012

• #24

Re : Copier/Coller une plage en VBA

Bonjour Gareth,

Merci beaucoup pour cette modification et votre aide,

J'avoue que je m'attendais à un tout autre code que le 1er,

Finalement, il est plutôt simple d'utilisation et à comprendre,

Bonne journée à vous

Cordialement

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 26 Septembre 2012

• #25

Re : Copier/Coller une plage en VBA

Bonjour,

Je vois qu'il y avait un petit bug dans mon code.
Il ne prenait pas en compte la colonne Test.
Je l'ai modifié et commenté.

 

Pièces jointes

• Exporter.xlsm

  28.2 KB · Affichages: 34
• Exporter.xlsm

  28.2 KB · Affichages: 34
• Exporter.xlsm

  28.2 KB · Affichages: 35

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 26 Septembre 2012

• #26

Re : Copier/Coller une plage en VBA

Bonsoir Gareth,

Merci beaucoup pour votre code réadapté à mon nouveau fichier,

J'avais déjà exploité rapidement le fichier ce matin avant votre dernier message concernant le "bug" de la colonne Test,

Je l'avais également vu et déjà corrigé tôt ce matin au boulot,

Par contre, je m'attendais à un tout autre code et je suis agréablement surpris de voir qu'il ressemble beaucoup au précédent donc plutôt facile à comprendre et à mémoriser...

Merci encore à vous et à VDAVID pour votre proposition et votre aide,

Bonne soirée

 

Dernière édition: 26 Septembre 2012

Vote positif 0 Vote négatif